écrit le résultat d'une boucle imbriquée à un objet vectoriel en R

Question

j'ai les données suivantes lu dans R en tant que trame de données nommé « data_old »:

yes year month 
1 15 2004  5 
2 9 2005  6 
3 15 2006  3 
4 12 2004  5 
5 14 2005  1 
6 15 2006  7 
. . ...  . 
. . ...  . 

J'ai écrit une petite boucle qui passe par la données et résume la variable oui pour chaque mois/année combinaison:

year_f <- c(2004:2006) 
month_f <- c(1:12) 

for (i in year_f){ 
    for (j in month_f){ 
     x <- subset(data_old, month == j & year == i, select="yes") 
     if (nrow(x) > 0){ 
      print(sum(x)) 
      } 
     else{print("Nothing")} 
     } 
    } 

Ma question est la suivante: je peux imprimer la somme pour chaque mois/année combinaison dans le terminal, mais comment puis-je stocker dans un vecteur ? (La boucle imbriquée me donne des maux de tête en essayant de comprendre cela).

Thomas

Answer 1

Une autre façon,

library(plyr) 
ddply(data_old,.(year,month),function(x) sum(x[1])) 

    year month V1 
1 2004  5 27 
2 2005  1 14 
3 2005  6 9 
4 2006  3 15 
5 2006  7 15 

Answer 2

Oublier les boucles, vous souhaitez utiliser une fonction d'agrégation. Il y a une discussion récente d'eux dans this SO question.

with(data_old, tapply(yes, list(year, month), sum)) 

est l'une des nombreuses solutions.

De même, vous n'avez pas besoin d'utiliser c() lorsque vous ne concaténéz rien. Plain 1:12 est très bien.

Answer 3

Juste pour ajouter une troisième option:

aggregate(yes ~ year + month, FUN=sum, data=data_old)