如何在R中将列表作为...参数传入自定义多数据集合并函数？

当然可以！不过因为你的multimerge函数用的是...（接受多个单独的参数），直接传列表进去的话，Reduce会把整个列表当成单个元素处理，肯定跑不通。这里我们用do.call()来解决这个问题——它能帮你把列表里的每个元素“展开”成...需要的单独参数。

方法1：用do.call调用现有函数 #

你的原函数完全不用改，只需要这样调用：

# 先定义你的函数
multimerge <- function(..., by, all=T) { 
  value <- list(...) 
  Reduce(function(x,y)merge(x,y,by=by, all=all), value) 
}

# 你的示例列表
List <- list( 
  data.frame('x'=c('a','b','c'), 'y'=1), 
  data.frame('x'=c('a','b','c'), 'z'=2) 
)

# 用do.call调用，把列表元素和命名参数一起传进去
result <- do.call(multimerge, c(List, by = "x", all = TRUE))
print(result)

运行后会得到合并后的结果：

x y z
1 a 1 2
2 b 1 2
3 c 1 2

原理很简单：c(List, by = "x", all = TRUE)会把列表的两个data.frame和命名参数合并成一个新列表，do.call会把这个新列表里的每个元素作为单独参数传给multimerge——相当于你手动写了multimerge(List[[1]], List[[2]], by="x", all=TRUE)，完美适配原函数的逻辑。

方法2：优化函数，直接支持列表参数 #

如果你不想每次都写do.call，可以给函数加一个data_list参数，让它同时支持...和直接传列表：

multimerge <- function(..., data_list = NULL, by, all = TRUE) {
  # 把...里的元素和data_list合并成一个统一的列表
  value <- c(list(...), data_list)
  # 确保至少有两个数据集可以合并
  if(length(value) < 2) stop("需要至少两个数据集来合并")
  Reduce(function(x,y) merge(x,y, by=by, all=all), value)
}

# 现在两种调用方式都可行：
# 方式1：传单独的data.frame
multimerge(df1, df2, df3, by="x")
# 方式2：直接传列表
multimerge(data_list = List, by="x")

这样用起来更灵活，也更直观，适合经常需要传列表的场景。

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