如何为数据框两列的逗号分隔字符生成全部组合？

方法一：使用tidyverse工具包 #

这是更简洁的现代化处理方式，依赖dplyr和tidyr包：

• 首先加载工具包：

library(tidyverse)

• 执行数据处理：

# 原始数据
df <- data.frame(ID = c("Sample 1", "Sample 2", "Sample 3"), 
                 V1 = c("A, B, C",  "E"       , "A, F"),
                 V2 = c("H, G"   ,  "C, A"    , "J"))

# 生成所有组合
result <- df %>%
  # 拆分逗号分隔的字符串为字符列表，\\s*用来匹配可能的空格
  mutate(V1 = str_split(V1, ",\\s*"), V2 = str_split(V2, ",\\s*")) %>%
  rowwise() %>%
  # 对当前行的V1和V2列表做*笛卡尔积*展开
  mutate(comb = list(expand.grid(V1 = V1, V2 = V2, stringsAsFactors = FALSE))) %>%
  unnest(comb) %>%
  ungroup() %>%
  # 调整列顺序与预期结果对齐
  select(ID, V1, V2)

• 查看结果：

print(result)

方法二：基础R实现 #

如果不想加载额外包，可以用基础R的循环和字符串处理：

# 原始数据
df <- data.frame(ID = c("Sample 1", "Sample 2", "Sample 3"), 
                 V1 = c("A, B, C",  "E"       , "A, F"),
                 V2 = c("H, G"   ,  "C, A"    , "J"))

result_list <- list()
# 遍历每一行生成组合
for (row_idx in 1:nrow(df)) {
  # 拆分字符串并去除多余空格
  v1_items <- trimws(strsplit(df$V1[row_idx], ",")[[1]])
  v2_items <- trimws(strsplit(df$V2[row_idx], ",")[[1]])
  # 生成当前行的所有*笛卡尔积*组合
  row_comb <- expand.grid(
    ID = df$ID[row_idx],
    V1 = v1_items,
    V2 = v2_items,
    stringsAsFactors = FALSE
  )
  result_list[[row_idx]] <- row_comb
}
# 合并所有行的结果
result <- do.call(rbind, result_list)

两种方法最终生成的结果都包含所有预期的组合，ID标识会完整保留，仅顺序可能因实现方式略有差异，不影响数据完整性。

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