La fonction as.data.frame() permet de passer d’un tableau croisé à un data.frame.
sechage <- factor(c(rep("lent",5),rep("rapide",5)))
marque <- factor(c(rep("Mer",3),rep("Cim",3),rep("vex",4)))
ciment <- cbind.data.frame(sechage,marque)
tab_croise<-table(ciment$sechage,ciment$marque) #On crée un tableau croisé
tab_croise
Cim Mer vex
lent 2 3 0
rapide 1 0 4
as.data.frame(tab_croise) # On reconvertie le tableau croisé en data.frame
On obtient :
as.data.frame(tab_croise)
Var1 Var2 Freq
1 lent Cim 2
2 rapide Cim 1
3 lent Mer 3
4 rapide Mer 0
5 lent vex 0
6 rapide vex 4