Tableau des contingences avec le nom des facteurs au lieu des chiffres

Question

J'ai une trame de données avec 3 colonnes. Le premier a les noms de mes catégories, le second (q2) et le troisième (q3) contiennent d'autres facteurs. Es:

q1 q2 q3 
A w y 
G x x 
F y z 

J'utilise

t1 <- xtabs(~q2+q3, data=db) 

pour créer un tableau de contingence et savoir combien de catégories il y a combo.

Comment puis-je obtenir dans les cellules d'itération les noms des facteurs qui sont dans la colonne q1?

 x y z 
    w 0 1 0 
    x 1 0 0 
    y 0 0 1 

Dans l'exemple, au lieu de 1, je veux A, G ou F.

Answer 1

Une option est d'attribuer q1 à l'aide t1q2 et q3 comme indices.

> dn <- lapply(db[2:3], levels) 
> t1 <- array(NA, lengths(dn), dn) 
> t1[cbind(db$q2, db$q3)] <- levels(db$q1)[db$q1] 
> t1 
    q3 
q2 x y z 
    w NA "A" NA 
    x "G" NA NA 
    y NA NA "F"