如何合并长度不等的命名数据框列表并保留未匹配项？

嘿，这个问题我碰到过！不用给list2补空数据框，咱们直接利用列表的名称匹配来搞定，既简洁又灵活。

library(purrr)
library(dplyr)

# 你的原始数据
A <- data.frame(ID = c(1,2,3), var1 = c(3,4,5), var2 = c(6,3,2))
B <- data.frame(ID = c(1,2,3), var1 = c(4,4,5), var2 = c(6,7,3))
C <- data.frame(ID = c(1,2,3), var1 = c(1,4,8), var2 = c(9,2,3))
list1 <- list(A = A, B = B, C = C)
list2 <- list(A = A, B = B)

# 核心处理逻辑
combined <- imap(list1, function(df, elem_name) {
  # 检查当前元素在list2中是否存在同名项
  if (elem_name %in% names(list2)) {
    # 存在则执行全连接，用suffix区分两个列表的变量
    full_join(df, list2[[elem_name]], by = "ID", suffix = c("_list1", "_list2"))
  } else {
    # 不存在则直接保留原数据框
    df
  }
})

• 用imap()遍历list1是关键：它会同时传递每个数据框（df）和对应的元素名称（elem_name），让我们能精准匹配list2里的同名元素
• elem_name %in% names(list2)用来判断当前元素在list2中是否存在
• 匹配成功时，用full_join连接两个数据框，加上suffix参数可以避免重名变量冲突（比如原来的var1会变成var1_list1和var1_list2）
• 匹配失败时（比如list1里的C），直接返回原数据框，完美实现你要的“C保持原样”的需求

你可以查看输出的combined列表：

• combined$A和combined$B是对应列表元素连接后的结果
• combined$C完全保留了list1中C的原始数据

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