基于正则匹配合并两个列表中对应data.frame的方法问询

嘿，我来帮你搞定这个批量合并的需求，不用再手动写一堆重复的right_join代码啦！

问题回顾 #

你有两个列表：list.1里的元素命名是A_NTI、B_NTI这种格式，list.2里是A_RC、B_RC（顺序还可能打乱），想要根据下划线前的前缀（比如A、B）把对应的数据框按Var1和Var2做右连接。

两种高效解决方案 #

方法1：基础R循环（无需额外装包）

先把两个列表的前缀提取出来，建立映射关系，再循环合并：

# 提取list.1每个元素的前缀（去掉末尾的_NTI）
prefixes_1 <- gsub("_NTI$", "", names(list.1))
# 给list.2的元素建立「前缀→元素名」的映射
prefix_to_rc <- setNames(names(list.2), gsub("_RC$", "", names(list.2)))

# 准备一个空列表存合并结果
merged_results <- list()

# 循环处理每个前缀
for(prefix in prefixes_1) {
  # 找到list.2里对应的RC元素名
  rc_element <- prefix_to_rc[prefix]
  # 执行右连接并存入结果列表
  merged_results[[paste0(prefix, "_merged")]] <- right_join(
    list.1[[paste0(prefix, "_NTI")]],
    list.2[[rc_element]],
    by = c("Var1", "Var2")
  )
}

# 如果想把合并后的df直接放到全局环境里，就跑这行（可选）
list2env(merged_results, .GlobalEnv)

方法2：tidyverse风格（更简洁）

如果你已经在用dplyr，搭配purrr的映射函数能让代码更清爽：

library(dplyr)
library(purrr)

# 先把两个列表的名字统一成前缀（去掉_NTI和_RC）
names(list.1) <- gsub("_NTI$", "", names(list.1))
names(list.2) <- gsub("_RC$", "", names(list.2))

# 按相同前缀匹配，批量执行右连接
merged_results <- map2(
  list.1, 
  list.2[names(list.1)],  # 确保只取list.1里有的前缀对应的元素
  ~right_join(.x, .y, by = c("Var1", "Var2"))
)

# 给结果加个_merged后缀（可选）
names(merged_results) <- paste0(names(merged_results), "_merged")

# 导出到全局环境（可选）
list2env(merged_results, .GlobalEnv)

小提示 #

• 不管list.2的元素顺序怎么乱，两种方法都能精准匹配前缀；
• 结果默认是命名列表，方便你统一管理，不想用列表的话就用list2env导出到全局环境；
• 如果list.2有多余的前缀（list.1里没有的），代码会自动忽略，只处理匹配上的元素。

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