Comment créer une table imbriquée dans R?

Question

Je sais qu'il y a un moyen de le faire facilement en utilisant un paquet ... J'ai trouvé le paquet il y a quelques mois et l'ai fait ensuite. Cependant, je n'ai pas noté le lien à l'époque, et maintenant je ne trouve plus la solution pour la vie de moi!

Ma question est: comment créer une table imbriquée dans R? Par exemple, j'ai un tableau de données des individus. Chaque rangée est une personne différente. Chaque colonne contient une variable telle que l'âge, le sexe, la taille, etc.

Je sais qu'en utilisant la commande table, je peux faire quelque chose comme ceci: table (data $ gender, data $ ageCategory).

Cela ferait une table 2 x 2 avec les comptes à l'intérieur.

Cependant, je voudrais faire une table imbriquée, analogue à celui qui est ici (ignorer la dernière colonne avec les totaux): http://psycnet.apa.org/journals/ror/32/2/images/ror_32_2_199_tbl1a.gif

Ie, je voudrais faire une table avec le genre comme les colonnes, puis avec les lignes comme catégorie d'âge, et dans chaque rangée, des rangées supplémentaires avec la catégorie de hauteur.

J'ai trouvé un paquet qui l'a fait facilement et maintenant je ne le retrouve plus!

Merci à tous ceux qui peuvent vous aider. C'est une question un peu idiote mais je pensais que je pourrais avoir plus de chance ici. Peut-être que "table imbriquée" n'est pas vraiment le nom approprié pour cela.

Answer 1

Un ensemble de données exemple (ce qui est toujours une bonne idée d'utiliser dans votre question):

dat = data.frame(value = runif(100), 
       age = round(runif(100, min = 9, max = 11)) , 
       gender = sample(c("Male", "Female"), 100, replace = TRUE), 
       school = sample(c("Public", "Private"), 100, replace = TRUE)) 

Et maintenant pour produire quelque chose d'utile le long des lignes de la table par exemple vous avez affiché:

library(plyr) 
tab = count(dat, c("age", "gender", "school")) 
# The contents of tab: 
# age gender school freq 
# 1 9 Female Private 6 
# 2 9 Female Public 6 
# 3 9 Male Private 7 
# 4 9 Male Public 8 
# 5 10 Female Private 11 
# 6 10 Female Public 13 
# 7 10 Male Private 10 
# 8 10 Male Public 14 
# 9 11 Female Private 3 
# 10 11 Female Public 11 
# 11 11 Male Private 3 
# 12 11 Male Public 8 

Et pour produire une table pour le latex, jetez un oeil au paquet xtable. Pour Word, il est probablement plus facile d'effectuer des opérations manuelles sur la sortie de count.

Answer 2

Vous pouvez transmettre plus de deux variables en table afin de répartir les comptes de l'ensemble de données de plusieurs manières. Ceci est une modification d'un exemple pour la page d'aide table.

counts <- with(airquality, table(
    OzCategory = cut(airquality$Ozone, seq(0, 180, 20)), 
    Month, 
    TempHi = Temp > 75 
)) 
print(counts, zero.print = ".")