在 R 中使用 Dummies 的一种热编码

Question

需要您帮助解决我无法解释的具体问题。 以下代码

library(dummies)
columna <- c(1,2,3)
columnb <- c("AR","AT","AF")
columnc <- c("word1", "word2", "word3")
alldata <- data.frame(columna,columnb,columnc)
alldata <- dummy.data.frame(alldata, names=c("columnc"), sep="_")
alldata

给我

  columna columnb columnc_word1 columnc_word2 columnc_word3
1       1      AR             1             0             0
2       2      AT             0             1             0
3       3      AF             0             0             1

现在想想，我有

columnc <- c("word1", "word2 word3", "word3 word1")

谁能告诉我如何获得？

  columna columnb columnc_word1 columnc_word2 columnc_word3
1       1      AR             1             0             0
2       2      AT             0             1             1
3       3      AF             1             0             1

问候，

Answer 1

这是tidyverse的方式：

library(tidyverse)
alldata %>% 
        separate_rows(columnc) %>% mutate(count = 1) %>% 
        spread(columnc, count, fill = 0, sep = "_")

#  columna columnb columnc_word1 columnc_word2 columnc_word3
#1       1      AR             1             0             0
#2       2      AT             0             1             1
#3       3      AF             1             0             1