如何在R语言中向多个函数传递未知数量的参数

首先明确：R不支持在函数定义中使用多个...（比如...1、...2），这种写法会直接报错，你的这个思路不可行。

推荐的解决方案是将两个目标函数的参数分别打包成列表，作为独立参数传递给外层函数f，再用do.call()调用目标函数。这种方式不管目标函数的参数数量、形式怎么变，都能灵活适配。

示例代码 #

定义目标函数

# 初始的两个函数
f1 <- function(a, b) {
  cat("f1执行：a =", a, "，b =", b, "\n")
}

f2 <- function(x, y, z) {
  cat("f2执行：x =", x, "，y =", y, "，z =", z, "\n")
}

# 后续可能替换的函数（参数结构不同）
f3 <- function(s, ...) {
  cat("f3执行：s =", s, "，额外参数：", list(...), "\n")
}

定义外层函数f

f <- function(arg1, arg2, f1, f2, f1_args = list(), f2_args = list()) {
  # 先处理arg1、arg2的业务逻辑
  cat("处理外层参数：arg1 =", arg1, "，arg2 =", arg2, "\n")
  
  # 调用f1，传入对应的参数列表
  do.call(f1, f1_args)
  
  # 调用f2（或替换后的f3），传入对应的参数列表
  do.call(f2, f2_args)
}

使用示例

• 调用初始的f1和f2：

f(arg1 = "测试1", arg2 = "测试2",
  f1 = f1, f2 = f2,
  f1_args = list(a = 1, b = 2),
  f2_args = list(x = 3, y = 4, z = 5))

• 替换f2为f3：

f(arg1 = "测试1", arg2 = "测试2",
  f1 = f1, f2 = f3,
  f1_args = list(a = 10, b = 20),
  f2_args = list(s = "你好", 额外参数1 = "foo", 额外参数2 = "bar"))

为什么推荐这种方法？ #

• 完全适配目标函数的参数变化：不管目标函数是固定参数还是带...的可变参数，只要把需要传递的参数打包成列表即可，无需修改外层函数f的定义。
• 参数边界清晰：避免了用单个...拆分参数时可能出现的混淆（比如两个目标函数有同名参数的情况）。

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