r - 在 R 中重塑数据。是否可以有两个“值变量”

Answer 1

既然你已经走到了这一步，为什么不melt你的tx对象和使用dcast如下：

dcast(melt(tx, id.vars=c(1, 2)), ExamenYear ~ StudentGender + variable)
#   ExamenYear F_participated F_passed M_participated M_passed
# 1       2007              1        1              1        1
# 2       2008              1        1              2        2
# 3       2009             NA       NA              3        2

但是，更直接的方法可能是melt从一开始就处理您的数据：

df.m <- melt(df, id.vars=c(1:4))
dcast(df.m, ExamenYear ~ StudentGender + variable, 
      function(x) sum(x == "yes"))
#   ExamenYear F_participated F_passed M_participated M_passed
# 1       2007              1        1              1        1
# 2       2008              1        1              2        2
# 3       2009              0        0              3        2

更新：基础 R 方法

虽然所需的代码并不“漂亮”，但在基础 R 中执行此操作也不是太难。这是一种方法：

1. 用于从您的示例aggregate()中获取。tx

   dfa <- aggregate(cbind(participated, passed) ~ 
     ExamenYear + StudentGender, df, function(x) sum(x == "yes"))
   dfa
   #   ExamenYear StudentGender participated passed
   # 1       2007             F            1      1
   # 2       2008             F            1      1
   # 3       2007             M            1      1
   # 4       2008             M            2      2
   # 5       2009             M            3      2
   

2. 用于从“长”reshape转换dfa为“宽”。

   reshape(dfa, direction = "wide", 
           idvar="ExamenYear", timevar="StudentGender")
   #   ExamenYear participated.F passed.F participated.M passed.M
   # 1       2007              1        1              1        1
   # 2       2008              1        1              2        2
   # 5       2009             NA       NA              3        2