Discussion :

[Julie19]

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 !

[faubry]

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

[Julie19]

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 !

[faubry]

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.

[olivier.decourt]

Bonjour.
Autre solution avec la fonction fastDummies::dummy_cols

Code :

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

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

[tototode]

Bonjour,

une autre possibilité :

Code :

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

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