从长到宽重塑并创建具有二进制值的列

我知道spread函数在tidyr包，但这是我无法实现的。 我有一个data.frame有 2 列，定义如下。我需要转置列Subject分成具有 1 和 0 的二进制列。

下面是数据框：

studentInfo <- data.frame(StudentID = c(1,1,1,2,3,3),
         Subject = c("Maths", "Science", "English", "Maths", "History", "History"))

> studentInfo
  StudentID Subject
1         1   Maths
2         1 Science
3         1 English
4         2   Maths
5         3 History
6         3 History

我期望的输出是：

  StudentID Maths Science English History
1         1     1       1       1       0
2         2     1       0       0       0
3         3     0       0       0       1

我怎样才能做到这一点spread()函数或任何其他函数。

Using reshape2 we can dcast从长到宽。

由于您只想要二元结果，我们可以unique首先是数据

library(reshape2)

si <- unique(studentInfo)
dcast(si, formula = StudentID ~ Subject, fun.aggregate = length)

#  StudentID English History Maths Science
#1         1       1       0     1       1
#2         2       0       0     1       0
#3         3       0       1     0       0

另一种方法使用tidyr and dplyr is

library(tidyr)
library(dplyr)

studentInfo %>%
  mutate(yesno = 1) %>%
  distinct %>%
  spread(Subject, yesno, fill = 0)

#  StudentID English History Maths Science
#1         1       1       0     1       1
#2         2       0       0     1       0
#3         3       0       1     0       0

虽然我（还）不是粉丝tidyr句法...