Discussion :

[habasque]

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,

[BPStA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[pitipoisson]

Bonjour,

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

Bon, ma petite contribution avec tapply :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
>

[habasque]

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