Comment obtenir une table de contingence ? : melt, acast, dcast.

Les fonctions acast() et dcast() associées à la fonction melt(), du package reshape2, permettent d’obtenir une table de contingence.

library(reshape2) # On charge le package reshape2

airquality

aqm <- melt(airquality, id=c("Month", "Day"), na.rm=TRUE)

#On passe d’un format “Wide” à un format “Long”



#Pour un array



acast(aqm, Month ~ variable, mean)

#On obtient une table de contingence contenant la moyenne de chaque variable en fonction du mois



acast(aqm, Month ~ variable, mean, margins = TRUE)

#On ajoute les moyennes de chaque variable pour l'ensemble des mois

#et les moyennes de chaque mois pour l'ensemble des variables



#Pour un data.frame



dcast(aqm, Month ~ variable, mean, margins = c("Month", "variable"))