在 R 中重塑而不进行聚合（例如 MTurk 响应字符串）

通常，我会为此使用一个非常基本的从长到宽的重塑，但它似乎正在删除我的聚合变量。设置是我在 Mechanical Turk 上有一项工作，我一式三份执行——我希望 MTurk1、Mturk2、MTurk3 的答案成为数据框中它们自己的变量，但由我在工作中输入的字段唯一标识，所以我可以稍后用函数将它们相互比较。

当前格式：

> head(mturk)
  AssignmentStatus     Input.id  Input.State  Answer.Q1thing
1         Approved       134231           NY         Myguess
2         Approved       134231           NY         Myguess
3         Approved       134231           NY        BadGuess
4        Submitted       134812           CA         Another
5         Approved       134812           CA         Another
6         Approved       134812           CA         Another

我希望这成为

Input.id   Input.State Answer.Q1thing.1 Answer.Q1thing.2 Answer.Q1thing.3  AssignmentStatus.1 AssignmentStatus.2  AssignmentStatus.3
134231              NY          Myguess          Myguess         BadGuess          Approved             Approved            Approved
134812              CA          Another          Another          Another         Submitted             Approved            Approved

或者理想情况下，如果有一个变量可以在操作中重做列名称......

Id               State          Answer1          Answer2          Answer3          Status1               Status2             Status3
134231              NY          Myguess          Myguess         BadGuess          Approved             Approved            Approved
134812              CA          Another          Another          Another         Submitted             Approved            Approved

dat <- reshape(mturk, timevar="Answer.Q1thing", idvar=c("Input.id", "Input.state"), direction="wide")

这似乎失败了，因为大多数重塑长到宽的函数都期望变宽的变量本身是一个分类文本字段——也就是说，这不是一个长到宽的重塑操作，因为我不希望一个名为“MyGuess”、“BadGuess”和“Another”的变量，但我想要一个包含这些值的通用“Answer.X”变量。我不会尝试以任何方式进行聚合，例如平均值或总和，只是将值列出在新位置。

所以，这个问题有两个方向：

1. 这种操作还有别的名字吗？这是展开、取消旋转、未施放还是其他什么？
2. 如何在 R 中做到这一点？

如果您的数据位于data.tableit's a one-liner 可以按如下方式完成：

library(data.table)    
mturk.dt <- as.data.table(mturk)

mturk.dt[, as.list(
         rbind(c(Answer.Q1thing, AssignmentStatus))
         )
        , by=list(Id=Input.id, State=Input.State)]

请注意，by参数也处理名称更改！

如果您想正确命名其他列，请使用setnames事后或者更动态地使用setattr内j=..论证如下：

事后：

## Assuming 'res' is the reshaped data.table form above:
## Change the names of the six V1, V2.. columns 
setnames(res, paste0("V", 1:6), c(paste0("Answer", 1:3), paste0("Status", 1:3)))

动态地，在j=..

## Use `as.data.table` instead of `as.list`, to preserve new names
mturk.dt[, as.data.table(
         rbind(c(
              setattr(Answer.Q1thing,   "names", paste0("Answer", seq(Answer.Q1thing  )))
            , setattr(AssignmentStatus, "names", paste0("Status", seq(AssignmentStatus)))
            ))
         )
        , by=list(Id=Input.id, State=Input.State)]

       Id State Answer1 Answer2  Answer3  Status1  Status2  Status3
1: 134231    NY Myguess Myguess BadGuess Approved Approved Approved
2: 134812    CA Myguess Myguess BadGuess Approved Approved Approved