Tableau présence/ absence

Bonjour,

J'ai un souci pour transformer un tableau. Je pense qu'il faut utiliser tidyverse...

Voici mon tableau :

placette	espece
EM10	espA
EM20	espA
EM30	espB
PR70	espB
PR10	espB
EM10	espC
PB30	espC
PR70	espC

Et j'aimerais qu'il soit de cette façon :

placette	espA	espB	espC
EM10	1	0	1
EM20	1	0	0
EM30	0	1	0
PR70	0	1	1
PR10	0	1	0
PB30	0	0	1

En fait c'est un passage d'un tableau d'occurrence à un tableau de présence/absence
Merci de votre aide !

Code:

---

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

# donnees tab <- data.frame( placette=c( "EM10", "EM20", "EM30", "PR70", "EM10", "PB30", "PR70"), espece=c( "espA", "espA", "espB", "espB", "espC", "espC", "espC"))   # je fais l'hypothese que l'option par defaut pour les data.frame est stringsAsFactors=TRUE # liste des especes espece <- unique( as.character( tab$espece))   # Construction du tableau logique resultat <- aggregate( espece ~ placette, tab, function( x) espece %in% x)   # construction du tableau numerique resultat <- aggregate( espece ~ placette, tab, function( x) as.integer( espece %in% x))   # correction du nom des colonnes # concatenation des resultats (aggregate donne un data.frame dont la seconde colonne est un matrice) resultat <- cbind( resultat$placette, as.data.frame( resultat$espece)) # noms des colonnes names( resultat) <- c( "placette", espece)

---

Bonjour,
Merci pour le code mais comment je peux faire sans noter les placettes et les espèces une à une ? car j'ai 146 espèces et 26 placettes.
Merci pour votre aide !

La solution à ta question commence à la ligne 5 de mon code, j'ai rajouté à la main un exemple de tableau/data.frame qui correspond à ton exemple. La construction de ce data.frame peut se faire à la main comme mon exemple ou ce peut être la lecture d'un tableau dans une fichier de type Excel ou csv. Cela dépend de la manière dont tu as recueilli les données.

Bonjour.
Autre solution avec la fonction fastDummies::dummy_cols

Code:

---

1 2 3 4 5 6

library(fastDummies) tab <- data.frame( placette=c( "EM10", "EM20", "EM30", "PR70", "EM10", "PB30", "PR70"), espece=c( "espA", "espA", "espB", "espB", "espC", "espC", "espC"))   tab2 <- dummy_cols(tab, select_columns = "espece")

---

Bonjour,

une autre possibilité :

Code:

---

1 2 3 4 5

res <- xtabs( ~ placette + espece, tab) # si tu veux un data.frame res <- as.data.frame.matrix(res) #si tu as besoin d'un data.frame avec le nom des placettes dans la première colonne res <- cbind(placette = rownames(res), res)

---

cdlt