Répétez les valeurs d'une ligne dans la matrice N nombre de fois

Si j'ai une matrice R qui ressemble à celle ci-dessous:

1,3 
7,1 
8,2

Comment pourrais-je écrire du code qui crée une matrice comme ceci:

1,3 
1,3 
1,3 
7,1 
8,2 
8,2

Où il répète la ligne basée sur le droit .la valeur de la colonne? Gardez à l'esprit que j'ai une matrice qui en réalité a beaucoup plus de lignes que 2

Pour info: Votre question est d'attirer vers le bas de votes parce que vous avez simplement demandé aux gens de fournir des code (c'est à dire une solution) pour vous, sans avoir à démontrer que vous avez essayé ou de recherches de toutes les solutions vous-même.
Savez-vous comment utiliser le rep fonction?
oui, j'ai essayé d'utiliser le rep fonction et il fonctionne très bien lorsque je saisie 3,1,2 que les arguments, mais je ne sais pas comment le faire sans une boucle. D'après mes recherches, j'ai essayé d'utiliser le lapply fonction sans succès
Qu'avez-vous fatigué?
bienvenue 🙂 pour tous les downvoters: OP peut être relativement nouveau, mais cette question n'est pas si mal.. peut-on trouver un duplicata? je ne pouvais pas..

OriginalL'auteur user2120963 | 2013-02-28

  1. 11
    # construct your initial matrix
x <- matrix( c( 1 , 3 , 7 , 1 , 8 , 2 ) , 3 , 2 , byrow = TRUE )

# take the numbers 1 thru the number of rows..
1:nrow(x)

# repeat each of those elements this many times
x[ , 2 ]

# and place both of those inside the `rep` function
rows <- rep( 1:nrow(x) , x[ , 2 ] )

# ..then return exactly those rows!
x[ rows , ]

# or save into a new variable
y <- x[ rows , ]
    Merci pour votre réponse à ma question. Après je lance la ligne de code lignes <- rep( 1:nrow(x) , x[ , 2 ] ), j'obtiens une erreur: Erreur dans le rep(x, chaque = n) : inutilisé argument(s) (chacun = n)
    Vérifier mon commentaire à ma propre réponse, vous avez probablement fait un autre rep fonction de votre R session qui est appelé à la place de la R de base de la bibliothèque du rep fonction.
    J'aime vraiment l'utilisation de rep ici. Élément-sage de vectorisation, très élégant
    Oui, c'est beaucoup plus efficace que le code dans ma réponse. Simple comparaison avec des rbenchmark package dit que mon code prend environ 50% de temps en plus que cela.

    OriginalL'auteur Anthony Damico

  2. 7

    Ici est votre matrice d'origine:

    a<-matrix(c(1,7,8,3,1,2),3,2)

    Ce qui fait de vous la première colonne:

    rep(a[,1],times=a[,2])

    Et cela vous rend la deuxième colonne:

    rep(a[,2],times=a[,2])

    De les combiner avec les cbind:

    cbind(rep(a[,1],times=a[,2]),rep(a[,2],times=a[,2]))

     [,1] [,2]
[1,]    1    3
[2,]    1    3
[3,]    1    3
[4,]    7    1
[5,]    8    2
[6,]    8    2
    Merci de répondre à ma question. Après je lance : cbind(rep(a[,1],times=a[,2]),rep(a[,2],times=a[,2])) j'obtiens une erreur: Erreur dans le rep(a[, 1], times = a[, 2]) : inutilisé argument(s) (temps = a[, 2])
    Si vous exécutez les codes ci-dessus dans de nouvelles R de la session, il fonctionne. Vous avez probablement une autre fonction appelée rep dans votre session chargé comme vous l'avez souligné dans vos commentaires à votre question que vous avez été en utilisant une mesure de rep la fonction. Enlever que par l'aide de la commande rm(rep) et cela devrait fonctionner.

    OriginalL'auteur Jouni Helske

  3. 0
    A <- matrix( c( 1 , 3 , 7 , 1 , 8 , 2 ) , 3 , 2 , byrow = TRUE )

a<-c(3,1,2)

f<-function(i1){
 rep(A[i1,],a[i1])
}

matrix(unlist(sapply(1:3,f)),ncol=2,byrow=TRUE)
    Veuillez préciser le contexte pour le code.

    OriginalL'auteur savalan savalan