如何基于名称部分匹配合并不同列表中的数据框（无一对一对应关系）

嗨，我来帮你搞定这个合并问题～你遇到的核心问题是Map只能按列表位置一对一合并，但你需要的是根据名称前缀匹配——把sub里所有以foo开头的数据框合并到data里的foo，以bar开头的合并到data里的bar，对吧？

下面是具体的解决步骤和可运行代码：

1. 先明确原始数据 #

你给出的data和sub定义我先贴出来，方便直接运行：

# 原始数据列表
data <- list(foo = structure(list(bodyPart = c("leg", "arm", "knee", "eye"), side = c("LEFT", "RIGHT", "LEFT", "LEFT"), device = c("LLI", "LSM", "GHT", "LLM"), length = c(12, 476, 7, 2), id = c("AA", "BB", "CC", "NN"), mwID = c("a12", "k87", "j98", NA)), class = "data.frame", row.names = c(NA, -4L)), bar = structure(list(bodyPart = c("ankel", "ear", "knee", "ARM"), side = c("LEFT", "LEFT", "LEFT", "RIGHT"), device = c("GOM", "LSM", "YYY", "RWS"), id = c("ZZ", "DD", "FF", "DC"), tqID = c("kj8", "ll23", "sc26",  "fg12")), class = "data.frame", row.names = c(NA, -4L)))

# 需要合并的子列表
sub <- list(foo.new = structure(list("Duo:length" = c(23, 54, 77), id = c("AA", "BB", "CC")), class = "data.frame", row.names = c(NA, -3L)), bar.excel.km = structure(list("Duo:side" = c("LEFT", "RIGHT", "LEFT"), id = c("ZZ", "DD", "FF")), class = "data.frame", row.names = c(NA, -3L)))

2. 提取名称前缀，建立对应关系 #

我们需要先把sub里的元素和data的元素做名称匹配，提取sub元素名称的前缀（比如foo.new的前缀是foo）：

library(stringr)

# 获取data的元素名称
data_names <- names(data)
# 从sub的元素名称中提取匹配data名称的前缀
sub_prefix <- str_extract(names(sub), paste0("^(", paste(data_names, collapse = "|"), ")"))
# 把sub的元素按前缀分组，对应到data的名称顺序
sub_mapped <- split(sub, sub_prefix)[data_names]

这一步之后，sub_mapped的结构就和data完全对应了：sub_mapped$foo就是sub$foo.new，sub_mapped$bar就是sub$bar.excel.km。

3. 批量合并对应的数据框 #

现在可以用purrr的map2（或者base R的mapply）批量合并每一组对应的数据框：

library(purrr)

# 批量合并，保留所有行（all=TRUE），按id匹配
output <- map2(data, sub_mapped, ~merge(.x, .y[[1]], by = "id", all = TRUE))

# 如果不用purrr，base R的写法：
# output <- mapply(function(x, y) merge(x, y, by = "id", all = TRUE), data, sub_mapped, SIMPLIFY = FALSE)

4. 验证结果 #

运行完代码后，output就和你想要的结果完全一致：

• output$foo新增了Duo:length列，对应AA、BB、CC的数值，NN为NA
• output$bar新增了Duo:side列，对应ZZ、DD、FF的数值，DC为NA

这个方法扩展性很强——哪怕以后data里新增baz这类元素，只要sub里有baz.xxx格式的元素，代码不需要修改就能自动匹配合并～

备注：内容来源于stack exchange，提问作者Rara