La fonction recast(), du package reshape2, permet d’obtenir une table de contingence en une seule étape à partir d’un data.frame. La fonction renvoie un data.frame.
library(reshape2) # On charge le package reshape2
airquality
#En 2 étapes :
aqm <- melt(airquality, id=c("Month", "Day"), na.rm=TRUE)
#On passe d’un format “Wide” à un format “Long”
dcast(aqm, Month ~ variable, mean, margins = TRUE)
#On obtient une table de contingence contenant la moyenne de chaque variable en fonction du mois
#En 1 seule étape :
recast(airquality, Month~ variable, id.var = 5:6, mean, na.rm=TRUE, margins=TRUE)
#La fonction recast() permet d'obtenir une table de contingence en 1 seule étape