r - 将逗号分隔的关键字转换为数据框中的列

Question

我有以下数据框:

id    keywords
---   --------
1     Red
2     Red, Blue
3     Green, Blue

我想把它改造成:

id    Red     Blue    Green
---   -----   -----   -----   
1     T       F       F
2     T       T       F
3     F       T       T

有什么想法吗？

Answer 1

您可以在将字符串拆分为子字符串后尝试 qdapTools 中的 mtabulate

library(qdapTools)
data.frame(id=df1$id,!!mtabulate(strsplit(df1$keywords, ', ')))
#   id  Blue Green   Red
#1  1 FALSE FALSE  TRUE
#2  2  TRUE FALSE  TRUE
#3  3  TRUE  TRUE FALSE

或者使用 base R

data.frame(id=df1$id,!!t(sapply(strsplit(df1$keywords, ', '),
   function(x) table(factor(x, levels=c('Red', 'Blue', 'Green'))))))
#  id   Red  Blue Green
#1  1  TRUE FALSE FALSE
#2  2  TRUE  TRUE FALSE
#3  3 FALSE  TRUE  TRUE