r - 将逗号分隔的字符串拆分为 bool 列

Question

我有:

id choice
----------
1  "a,b,c"
2  "c"
3  "a,c"
4  "b,c"

我需要

id a b c
---------
1  1 1 1
2  0 0 1
3  0 0 1
4  0 1 1

(或等效的 TRUE/FALSE 值)

有没有办法在 R 中做到这一点？我查看了 strsplit 但这似乎没有帮助。

Answer 1

这正是我的“splitstackshape”包中的 cSplit_e 的设计目的。

library(splitstackshape)
cSplit_e(DF, "choice", sep = ",", mode = "binary", 
         type = "character", fill = 0, drop = TRUE)
#   id choice_a choice_b choice_c
# 1  1        1        1        1
# 2  2        0        0        1
# 3  3        1        0        1
# 4  4        0        1        1

---

这使用来自@G.Grothendieck 答案的 DF 作为输入:

Lines <- 'id choice
----------
1  "a,b,c"
2  "c"
3  "a,c"
4  "b,c"'
DF <- read.table(text = Lines, header = TRUE, comment = "-", as.is = TRUE)