Discussion :

[pontarose]

Bonjour,
j'ai un data frame contenant pour chaque individu les éléments qu'il possède. Mon but est d'obtenir pour chaque élément, le nombre d'individu ayant au moins l'élément et le nombre d'individu qui n'ont pas l'élément.
J'arrive à obtenir pour chaque élément, le nombre d'individus qui ont au moins l'élément (en faisant la somme de la colonne). Mais voilà, je ne parviens pas avec la structure de ma Table (table_data) à obtenir le nombre d'individus qui n'ont pas l'élément. (Il correspond pour un élément donnée, au nombre d'individus avec la valeur 0).

Voiçi un exemple de mon jeu de donnée

Code :

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

1
2
3
4
5
6
7
8
9
10
 
vec1 <- ("jean", "jean","jean", "anna", "anna","anna", "louis")
vec2 <- ("lulu","lulu", "lala", "lulu","lala", "mymy", "lulu" )
df <- data.frame (x=vec1, y=vec2)
colnames(df) <- c("indiv","element")
df <- df[!duplicated(df),]
 
table_data <- table(df)
 
nb_indiv_ele <- apply(table_data,2, sum

Si je considère l'élément, lala
anna et jean ont l'élément lulu -> 2
seul louis n'a pas l'élément lala -> 1

Donc je devrais obtenir un data frame avec

lala 2 1
lulu 3 0
mymy 1 2

Si vous pouvez m'aider svp

[olivier.decourt]

Bonjour.
Voici une proposition de solution.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
df <- data.frame (indiv=c("jean", "jean","jean", "anna", "anna","anna", "louis"), 
                  element=c("lulu","lulu", "lala", "lulu","lala", "mymy", "lulu" ))
 
df <- df[!duplicated(df),]
 
# comptage par élément
res <- as.data.frame(table(df$element))
 
colnames(res) <- c("element",
                   "nb_possedent")
 
# on complète
res$nb_possedent_pas <- length(unique(df$indiv)) - res$nb_possedent