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
|
X <- factor( c( rep( toupper( letters[1:3]), 3), "C"))
Y <- factor( c( rep( c( "X", "Y"), each=4), rep( "Z", 2)))
donnees <- data.frame( X=X, Y=Y)
# On verifie que Z n'est associe qu'avaec C
with( donnees, table( X, Y))
# Travail avec subset (fonction de base)
res.sub <- subset( donnees, X == "A")
# Travail avec tidyverse::filter
res.fil <- filter( donnees, X == "A")
# On verifie que les 2 approches donnent exactement la même chose
summary( res.sub)
summary( res.fil)
# On applique table aux deux
table( res.sub$Y)
table( res.fil$Y)
# On applique count aux deux
count( res.sub, Y)
count( res.fil, Y) |
Partager