La bonne façon de faire une boucle sur la longueur d'un dataframe dans la R

Après un peu de débogage aujourd'hui, à mon grand désarroi, j'ai trouvé que:

for (i in 1:0) {
     print(i)
}

Réellement imprime 1 et 0 respectivement, dans R. Le problème est venu lors de l'écriture de 

for (i in 1:nrow(myframe) {
     fn(i)
}

Qui j'avais l'intention de ne pas exécuter si nrow(myframe)==0. Est la correction juste:

if (nrow(myvect) != 0) {
    for (i in 1:nrow(myframe) {
        fn(i)
    }
}

Ou est-il un plus bonne façon de faire ce que je voulais dans la R?

InformationsquelleAutor mt88 | 2014-07-23
  1. 17

    Vous pouvez utiliser seq_along à la place:

    vec <- numeric() 
length(vec)
#[1] 0

for(i in seq_along(vec)) print(i)   # doesn't print anything

vec <- 1:5

for(i in seq_along(vec)) print(i)
#[1] 1
#[1] 2
#[1] 3
#[1] 4
#[1] 5

    Modifier après l'OP de mise à jour

    df <- data.frame(a = numeric(), b = numeric())
> df
#[1] a b
#<0 rows> (or row.names with length 0)

for(i in seq_len(nrow(df))) print(i)    # doesn't print anything

df <- data.frame(a = 1:3, b = 5:7)

for(i in seq_len(nrow(df))) print(i)
#[1] 1
#[1] 2
#[1] 3
    InformationsquelleAutor docendo discimus
  2. 3

    Pour les vecteurs, il est seq_along, pour DataFrames vous pouvez utiliser seq_len

    for(i in seq_len(nrow(the.table)){
    do.stuff()
}
    InformationsquelleAutor Boris Gorelik
  3. 2

    Concernant la modification, consultez la contrepartie de la fonction seq_len(NROW(myframe)). Cette utilisation est exactement la raison pour laquelle vous n'utilisez pas 1:N dans un for() boucle, encas, quelle que soit la valeur finit par remplacer N est 0 ou négatif.

    Une alternative (qui vient se cache la boucle) est de faire apply(myframe, 1, FUN = foo) où foo est une fonction contenant les choses que vous voulez faire pour chaque ligne de myframe et sera probablement juste être couper et coller dans le corps de la boucle.

    InformationsquelleAutor Gavin Simpson
  4. 2

    Je pense que la plus bonne façon dans R est l'utilisation d'une apply fonction. Plus souvent que pas, il y a un apply fonction qui le fait. Et plus souvent que pas, vous n'avez pas besoin d'une séquence.

    Voici un exemple qui s'applique diff pour chaque colonne, chaque rangée.

    > d <- data.frame(x = 1:5, y = 6:10)

    sur les colonnes,

    > lapply(d, diff)
$x
[1] 1 1 1 1

$y
[1] 1 1 1 1

    à travers les lignes,

    > apply(d, 1, diff)
[1] 5 5 5 5 5

    sur les colonnes de nouveau, de retour d'une matrice

    > sapply(d, diff)
     x y
[1,] 1 1
[2,] 1 1
[3,] 1 1
[4,] 1 1

    Voir ce lien pour une excellente explication sur apply

    InformationsquelleAutor Rich Scriven
  5. 1

    Clairement toutes les réponses précédentes pour faire le travail.

    Je voudrais avoir quelque chose comme ceci:

    rows_along <- function(df) seq(nrow(df))

    et puis

    for(i in rows_along(df)) # do stuff

    Totalement singulière réponse, c'est juste un wrapper.
    Mais je pense que c'est plus lisible et intuitive.

    InformationsquelleAutor Abel Borges