R语言数据框自连接含列表列报错，求列表匹配连接方法

这个问题我碰到过，确实直接用列表列做连接会报错——dplyr的连接函数默认没法直接比较列表类型的内容是否一致。不过我们可以通过两种实用方法实现你想要的「按列表内容匹配自连接」的需求：

方法一：将列表转换为可比较的字符串列（推荐，效率更高） #

先把列表列的内容转换成统一格式的字符串，再基于字符串列做连接，这样就能让内容相同的列表被识别为匹配项。

# 加载所需包
library(tibble)
library(dplyr)
library(purrr)

# 原始数据
bsp_fn <- c("1","2","3","4","5")
bsp_liste1 <- list(list("a","b","c"),list("a","b"),list("a","c"),list("a","b","c"),list("b","c"))
bsp_df <- tibble(bsp_fn,bsp_liste1)

# 把列表列转换为排序后的字符串（排序是为了避免元素顺序不同导致的误判）
bsp_df_processed <- bsp_df %>%
  mutate(bsp_liste_str = map_chr(bsp_liste1, ~paste(sort(.x), collapse = ",")))

# 基于字符串列执行自连接
result <- bsp_df_processed %>%
  inner_join(bsp_df_processed, by = "bsp_liste_str") %>%
  # 保留原始的列表列，去掉临时生成的字符串列（可选）
  select(bsp_fn.x, bsp_liste1.x, bsp_fn.y, bsp_liste1.y)

# 查看结果
print(result)

注意：如果你的列表元素顺序固定（比如列表里的元素顺序永远一致），可以去掉sort()，直接用paste(.x, collapse = ",")生成字符串。

方法二：用自定义条件直接比较列表内容（适合小数据集） #

如果你不想额外生成字符串列，可以用dplyr的join_by()结合purrr的函数，直接在连接条件里判断列表内容是否相同：

result <- bsp_df %>%
  inner_join(
    bsp_df,
    join_by(map2_lgl(bsp_liste1, bsp_liste1.y, ~identical(sort(.x), sort(.y))))
  )

# 查看结果
print(result)

这个方法会逐行比较两个列表列的内容（排序后判断是否完全一致），但数据量大的时候效率会比方法一低一些。

两种方法都能实现你想要的效果——让内容为list("a","b","c")的两行（bsp_fn=1和4）互相匹配连接。

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