合并含逗号分隔值的两个R DataFrame，如何获取符合条件的行？

先来说说为什么inner_join(df2, df1)达不到你的预期：
inner_join()的核心逻辑是整列值的完全匹配——它只会保留两个数据框中Colors列内容完全一模一样的行。比如df2里的"Yellow,Pink"是一个完整的字符串，而df1里只有单独的"Yellow"和"Pink"，这两个值并不相等，所以这一行不会被匹配到；同理"Red,Cyan,Brown"也和df1里的任何单个颜色字符串都不匹配，自然被过滤掉了。

解决方案 #

我们需要的逻辑是：检查df2中每一行的所有拆分后颜色，是否全部存在于df1中，而不是整串匹配。这里提供两种常用的实现方式：

方法1：使用tidyverse工具链（dplyr + tidyr）

这种方式逻辑清晰，适合处理复杂的数据变换场景：

library(dplyr)
library(tidyr)

# 一步完成拆分、校验、合并
result <- df2 %>%
  # 给每行加个唯一标识，方便后续合并
  mutate(row_id = row_number()) %>%
  # 把逗号分隔的颜色拆分成单独行
  separate_rows(Colors, sep = ",") %>%
  # 按原行分组
  group_by(row_id) %>%
  # 筛选出组内所有颜色都在df1中的行
  filter(all(Colors %in% df1$Colors)) %>%
  # 把拆分的颜色重新合并成逗号分隔格式
  summarise(Colors = paste(Colors, collapse = ",")) %>%
  # 去掉临时的行标识
  select(-row_id)

# 查看结果
print(result)

方法2：使用Base R（更简洁）

如果不想加载额外包，用base R的字符串处理函数也能快速实现：

# 遍历df2的每一行，检查拆分后的所有颜色是否都在df1中
valid_rows <- sapply(strsplit(df2$Colors, ","), function(color_vec) {
  all(color_vec %in% df1$Colors)
})

# 提取符合条件的行
result <- df2[valid_rows, ]

# 查看结果
print(result)

两种方法都会得到你期望的输出：

Colors
1    Yellow,Pink
2          Green
3          White
4 Red,Cyan,Brown
5         Violet
6           Gray

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