0

次のように定義されたデータフレームがあります(実際には200以上の変数があります):

class_level var1 var2
          1    4    7
          1    6    7
          1    7    6
          4    3    1
          4    1    3

ここで、class_level は 1 または 4 のいずれかで、var1 と var2 の値は 1 ~ 7 で、調査からのリッカートのような応答レベルです。

クラスレベルごとに各変数のレベルごとのカウントを含むデータフレームが必要で、各変数の合計行は次のようになります。

class_level variable Levels Students
          1     var1      1       10  
          1     var1      2        7  
          1     var1      3       28  
          1     var1      4       15  
          1     var1      5       54  
          1     var1      6       38  
          1     var1      7       16
          1     var1  Total      168  
          4     var1      1       58
          .        .      .        .
          .        .      .        .
          .        .      .        .
          4     var1      7       33
          4     var1  Total      294  

私は次のことを試しました:

df.m <- melt( df, id.vars=c("class_level"), na.rm=TRUE )
head(df.m)
#  class_level variable value
#1           4     var1     4
#2           4     var1     6
#3           1     var1     7
#4           4     var1     3
#5           1     var1     5
#6           4     var1     6

df.c <- dcast( df.m, class_level+variable ~ value,
               fun.aggregate=length, 
               subset=.(variable %in% c("var1","var2")),
               margins=TRUE
             )
head(df.c)
#  class_level variable 1 2  3  4  5   6   7 (all)
#1           1     var1 1 1  8 24 56 101  32   223
#2           1     var2 2 4  4 22 49  79  56   216
#3           4     var1 4 5 11 38 91 114  76   339
#4           4     var2 2 6 11 35 73  98 106   331

df.o <- melt( df.c, id.vars=c("class_level","variable"),
              variable.name="Levels", value.name="Students"
            )
head(df.o)
#  class_level variable Levels Students
#1           1     var1      1        1
#2           1     var2      1        2
#3           4     var1      1        4
#4           4     var2      1        2
#5           1     var1      2        1
#6           1     var2      2        4

ご覧のとおり、これにより各変数のレベルごとのカウントが生成されますが、行の合計は生成されません。最終データセット (df.o) で合計行を取得するにはどうすればよいですか。どんな助けでも大歓迎です。

デビッド

4

1 に答える 1

1

私は助けるために使用する傾向がありplyrます:

df.m <- melt( df, id.vars=c("class_level"), na.rm=TRUE )
df.m$value <- factor(df.m$value, levels=1:7) # To ensure 0 counts as well
df.c <- ddply(df.m, .(class_level, variable),
             function(x) c(table(df.m$value), Total=length(df$m.value)))
df.o <- melt(df.c, id.vars=c("class_level", "variable"))
于 2012-11-02T20:52:43.057 に答える