如何将逗号分隔的多个响应转换为 R 中的虚拟编码列

Question

在一项调查中，有一个问题是“课程的哪个方面最能帮助您学习概念？选择所有适用的”

回复列表如下所示：

Student_ID = c(1,2,3)
Responses = c("lectures,tutorials","tutorials,assignments,lectures", "assignments,presentations,tutorials")
Grades = c(1.1,1.2,1.3)
Data = data.frame(Student_ID,Responses,Grades);Data

Student_ID | Responses                           | Grades
1          | lectures,tutorials                  | 1.1
2          | tutorials,assignments,lectures      | 1.2
3          | assignments,presentations,tutorials | 1.3

现在我想创建一个看起来像这样的数据框

Student_ID | Lectures | Tutorials | Assignments | Presentation | Grades
1          |     1    |     1     |      0      |       0      |  1.3
2          |     1    |     1     |      1      |       0      |  1.4
3          |     0    |     1     |      1      |       1      |  1.3

我设法使用 splitstackshape 包将逗号分隔的响应分成列。所以目前我的数据是这样的：

Student ID | Response 1 | Response 2  | Response 3 | Response 4 | Grades
1          | lectures   | tutorials   |    NA      |     NA     |   1.1
2          | tutorials  | assignments | lectures   |     NA     |   1.2
3          | assignments| presentation| tutorials  |     NA     |   1.3

但正如我之前所说，我希望我的表格看起来像我在上面展示的方式，在虚拟代码中。我被困在如何进行。也许一个想法是遍历列中的每个观察并将 1 或 0 附加到以讲座、教程、作业、演示文稿作为标题的新数据框？

Answer 1

首先将Response 列从因子转换为字符类。然后该列的每个元素都以逗号分隔。我不知道所有可能的响应是什么，所以我使用了所有存在的响应。接下来拆分Response 列被制成表格，指定可能的级别。结果列表在混合到旧的 data.frame 之前转换为矩阵。

Data$Responses <- as.character(Data$Responses)
resp.split <- strsplit(Data$Responses, ",")

lev <- unique(unlist(resp.split))

resp.dummy <- lapply(resp.split, function(x) table(factor(x, levels=lev)))

Data2 <- with(Data, data.frame(Student_ID, do.call(rbind, resp.dummy), Grades))
Data2
#   Student_ID lectures tutorials assignments presentations Grades
# 1          1        1         1           0             0    1.1
# 2          2        1         1           1             0    1.2
# 3          3        0         1           1             1    1.3

Answer 2

我找到了对我的问题的答复。我最初是这样做的

library(splitstackshape)
Responses = cSplit(Data, "Responses",",")

然后我添加了以下行：

library(qdapTools)
TA <- mtabulate(as.data.frame(t(TA)))

它对我有用。