r - 使用 tidyverse 将字符串列拆分为多个

Question

我有一个带逗号的字符串列。我想将此单个列转换为多个标记列，并适当填充值。输出数据帧将有 3 列(A、B 和 C)。第 1 行的 A 列和 B 列填写"is"，C 列填写“否”。第 2 行的所有 3 列均填充"is"等。

df1 <- data.frame(X= c("A, B", "A, B, C", "A", "A, C"))

df1
        X
1    A, B
2 A, B, C
3       A
4    A, C

所需输出

A    B    C
Yes  Yes  No
Yes  Yes  Yes
Yes  No   No
Yes  No   Yes

请提供任何提示。

Answer 1

类似这样的事情:

library(tidyverse)

df1 %>%
  mutate(id = row_number()) %>% 
  separate_rows(X) %>% 
  group_by(id) %>% 
  mutate(Y = "yes") %>% 
  spread(X, Y, fill = "no")

# A tibble: 4 x 4
# Groups:   id [4]
     id A     B     C    
  <int> <chr> <chr> <chr>
1     1 yes   yes   no   
2     2 yes   yes   yes  
3     3 yes   no    no   
4     4 yes   no    yes