structure Table et analyse

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:

---

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

Citation:

---

lala 2 1
lulu 3 0
mymy 1 2

---

Si vous pouvez m'aider svp

Bonjour.
Voici une proposition de solution.

Code:

---

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

---