Utilisation de count via tapply

Bonjour,

Je cherche comment utiliser une fonction de comptage via la fonction tapply.
Un exemple, à partir du jeu de données suivant:

annee | mois | identifiant
1998 | 02 | 1234
1998 | 02 | 1234
1998 | 02 | 1234
1998 | 02 | 1235
1998 | 02 | 1235

je souhaiterais obtenir :

annee | mois | nombre_identifiant
1998 | 02 | 2

est-ce que quelqu'un pourrait m'aider là dessus ?

merci d'avance,

L'idée est de créer un tableau, extrait du premier, mais dont toutes les lignes sont différentes (par concaténation des données avec le formatage adhoc et suppression des doublons).
J'ai ajouté quelques données et un tri de ces données...(voir sM0)
Cette solution devrait être "lente" avec un très grand tableau (fonction duplicated()).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

sM0<-c("1998","02","1234","1998","02","1234","1998","02","1234","1998","02","1235","1998","03","1000","1998","03","1001","1998","03","1234") sM0<-matrix(sM0,ncol=3,nrow=7,byrow=TRUE) sM0 # # sM1<-paste(sM0[,1],sM0[,2],sM0[,3],sep="-") sAnmois<-paste(sM0[,1],sM0[,2],sep="|") #tri des lignes M1trie<-sort(sM1,method="shell",index.return=TRUE) # #suppression des doublons indx<-M1trie$ix[!duplicated(sM1[M1trie$ix])] # nombre_id<-tapply(sM1[indx],factor(sAnmois[indx]),length) out<-paste(names(nombre_id),"|",nombre_id) cat(out,sep="\n")

---

Bonjour,

Houlà, je viens juste de comprendre ce que tu cherches à faire !

Bon, ma petite contribution avec tapply :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

> data <- data.frame(annee=rep(1998:1999, each=5), + mois=rep(c(rep(2, 4), 3), 2), + identifiant=rep(c(rep(1234, 3), rep(1235, 2)), 2)) > > data annee mois identifiant 1 1998 2 1234 2 1998 2 1234 3 1998 2 1234 4 1998 2 1235 5 1998 3 1235 6 1999 2 1234 7 1999 2 1234 8 1999 2 1234 9 1999 2 1235 10 1999 3 1235 > > count <- as.data.frame(tapply(data$identifiant, + list(data$annee, data$mois), + function(x) length(unique(x)))) > > reshape(count, + ids=row.names(count), idvar="annee", + times=colnames(count), timevar="mois", + varying=list(colnames(count)), v.names="nombre_identifiant", + direction="long") mois nombre_identifiant annee 1998.2 2 2 1998 1999.2 2 2 1999 1998.3 3 1 1998 1999.3 3 1 1999 >

---

Et moi je viens juste de voir la réponse...
Merci à vous 2, je retiens la méthode de pitipoisson que je trouve + courte.