A l'aide du tableau() pour créer 3 à fréquence variable tableau dans la R

Je suis nouveau sur R et la recherche de l'aide. Je comprends le problème suivant est assez simple et recherché des questions similaires. Aucun de nous donner la réponse, je suis à la recherche pour - toute aide serait appréciée.

Le problème:

La production d'un tableau de fréquences à l'aide de la table() fonction de trois variables avec les données dans le format:

    Var1    Var2   Var3
1   0        1        0
2   0        1        0
3   1        1        1
4   0        0        1

Où, 0 = Non et 1 = "Oui"

Et la table finale est dans le format suivant avec des variables et des valeurs étiquetées:

           Var3
           Yes   No
Var1  Yes   1     0
      No    1     2
Var2  Yes   1     2
      No    1     0

Ce que j'ai essayé jusqu'à présent:

En utilisant le code suivant, je suis capable de produire un 2 table variable, avec des étiquettes pour les variables, mais pas pour les valeurs (c'est à dire. Oui et non). 

table(data$Var1, data$Var3, dnn = c("Var1", "Var3"))

Il ressemble à ceci:

      Var3
Var1  0  1
   0  2  1
   1  0  1

En essayant de l'étiquette de la ligne et de la colonne des valeurs (0 = Non et 1= Oui) je comprends row.names et responseName peut être utilisé, cependant, la tentative suivante d'une ligne d'étiquettes noms donne un all arguments must have the same length erreur.

> table(data$Var1, data$Var2, dnn = c("Var1", "Var2"), row.names = c("No", "Yes"))

J'ai aussi essayé d'utiliser ftable() cependant la forme de la table produites à l'aide du code ci-dessous n'est pas correct de mauvaises fréquences pour le problème. Le problème avec les étiquettes de ligne & col valeurs persiste.

> ftable(data$Var1, data$Var2, data$Var3, dnn = c("Var1", "Var2", "Var3"))
      Var3  0  1
Var1 Var2             
0     0     0  1
      1     2  0
1     0     0  0
      1     0  1

Toute aide pour l'utilisation de table() à produire un tableau de la forme désirée serait grandement apprécié.

  • Convertir vos données en facteurs premiers de prendre soin de la question de l'étiquetage: dat <- data.frame(lapply(dat, factor, levels=1:0, labels=c("Yes","No")))
  • Merci, c'est très utile et est parfait pour résoudre le problème d'étiquetage.
InformationsquelleAutor Alison Bennett | 2015-05-25
  1. 5

    Vous pouvez essayer de tabular de library(tables) après la modification des étiquettes, comme montré par @thelatemail

    library(tables)
data[] <- lapply(data, factor, levels=1:0, labels=c('Yes', 'No'))
tabular(Var1+Var2~Var3, data=data)

 #         Var3   
 #         Yes  No
 #Var1  Yes 1    0 
 #      No  1    2 
 #Var2  Yes 1    2 
 #      No  1    0

    de données

    data <- structure(list(Var1 = c(0L, 0L, 1L, 0L), Var2 = c(1L, 1L, 1L, 
0L), Var3 = c(0L, 0L, 1L, 1L)), .Names = c("Var1", "Var2", "Var3"
), class = "data.frame", row.names = c("1", "2", "3", "4"))
    InformationsquelleAutor akrun
  2. 1

    La manière la plus simple est probablement d'utiliser le reshape2 paquet. Tout d'abord, vous aurez besoin de convertir vos données numériques à des facteurs, afin de ne pas le traiter comme un numéro.

    data$Var1 <- as.factor(data$Var1)
data$Var2 <- as.factor(data$Var2)
data$Var3 <- as.factor(data$Var3)

    Alors vous pouvez facilement appliquer juste table(data) pour obtenir les informations que vous souhaitez. Si vous voulez vraiment transformer dans le format indiqué, puis tirer comme un data.frame et puis le transformer selon les besoins:

    df <- as.data.frame(table(data))
library(reshape2)
dcast(df, Var1+Var2 ~ Var3)

    Ce que la sortie:

      Var1 Var2 0 1
1    0    0 0 1
2    0    1 2 0
3    1    0 0 0
4    1    1 0 1

    MODIFIER: Vous pouvez simplement utiliser ftable sur le bloc de données, une fois tous les facteurs:

    > ftable(data)
          Var3 0 1
Var1 Var2         
0    0         0 1
     1         2 0
1    0         0 0
     1         0 1
    • Merci @chappers, où pourrais-je obtenir le reshape2 package à partir de? Je suis l'aide de Rstudio et il n'est pas disponible dans la liste par défaut des paquets.
    • je viens de réaliser que vous pouvez simplement utiliser ftable pour obtenir le même résultat (voir mon edit). Si vous êtes intéressé par reshape2, juste essayer de install.packages("reshape2") dans la console et il va installer automatiquement pour vous
    • le ftable solution n'est pas tout à fait le même - la réponse donne un nombre de Var1 x Var2 x Var3 pas Var1 x Var3 rejoint avec Var2 x Var3
    • c'est vrai @thelatemail, c'est précisé dans la question. Aussi, en regardant la forme de la sortie à l'aide d'reshape2, ce n'est pas la forme je suis à la recherche pour.
    • la forme souhaitée est définie à l'intérieur de la question (le 2ème bloc de code).
    • Ok, merci, le code plusieurs blocs de me distraire.
    • Concernant la conversion de factor , je ne suis pas sûr si c'est nécessaire, sauf si vous modifiez les étiquettes comme thelatemail mentionné dans les commentaires. Je reçois le même dcast de sortie sans avoir à les convertir explicitement facteur str(as.data.frame(table(data))) obtiendrez les colonnes var1:var3 comme des facteurs
    • Oh, je suis confus par les blocs de code comme @akrun ainsi!

    InformationsquelleAutor chappers