如何更简便地将R数据框中的双重响应拆分为单独因子水平？

问题场景 #

我有如下R数据框：

DF <- data.frame(V1 = factor(c("Option 1", "Option 1", "Option 1, Option 2", "Option 2", "Option 2", "Option 1, Option 2")), ID1 = factor(c("Resp1", "Resp1", "Resp3", "Resp4", "Resp5", "Resp6")))

我希望拆分其中的双重响应，仅保留"Option 1"和"Option 2"两个因子水平，让双重响应同时对应这两个水平。目前我可通过重命名因子水平再使用separate_rows函数实现，但该方法较为繁琐：

levels(DF$V1)
levels(DF$V1)[levels(DF$V1)=="Option 1"] <- "Option1"
levels(DF$V1)[levels(DF$V1)=="Option 2"] <- "Option2"
levels(DF$V1)[levels(DF$V1)=="Option 1, Option 2"] <- "Option1, Option2"
DF_result <- DF %>% separate_rows(V1) %>% mutate(V1 = factor(V1))
DF_result

请问是否有更直接简便的实现方法？

解决方案：无需手动修改因子水平 #

当然有更清爽的实现方式！你完全不用提前修改因子的水平值，利用separate_rows的分隔符参数就能直接拆分，一步到位：

library(tidyverse)

DF <- data.frame(V1 = factor(c("Option 1", "Option 1", "Option 1, Option 2", "Option 2", "Option 2", "Option 1, Option 2")), 
                 ID1 = factor(c("Resp1", "Resp1", "Resp3", "Resp4", "Resp5", "Resp6")))

# 简洁版拆分代码
DF_result <- DF %>%
  separate_rows(V1, sep = ",\\s+") %>%  # 精准匹配"逗号+空格"的分隔模式
  mutate(V1 = factor(V1, levels = c("Option 1", "Option 2")))  # 可选：指定因子水平顺序

# 查看结果
DF_result

代码说明：

1. sep = ",\\s+"：用正则表达式匹配逗号后面跟一个或多个空格的分隔符，确保拆分出来的结果就是原始的"Option 1"和"Option 2"，不需要提前修改因子名。
2. mutate(V1 = factor(...))：如果需要严格控制因子水平的顺序，可以加上这一步；如果不需要，拆分后的结果会自动识别这两个水平，直接转因子也没问题。

另一种备选方法：用strsplit+unnest #

如果你习惯用字符串拆分的思路，也可以这样写，效果完全一致：

DF_result <- DF %>%
  mutate(V1 = strsplit(as.character(V1), ",\\s+")) %>%  # 把因子转字符后拆分
  unnest(V1) %>%  # 展开列表列
  mutate(V1 = factor(V1))  # 转回因子

这两种方法都省去了手动修改因子水平的繁琐步骤，代码更简洁易读。

内容的提问来源于stack exchange，提问作者KaC