使用 R Lapply 和函数参数列表迭代函数

Question

我有一个函数 MyFun(a,b,c,d)，它返回数据框和图的列表。 参数 a、b、c、d 只是表示“开始日期”、“结束日期”、“当前版本#”和“上一个版本#”的字符串。 为简洁起见，我将通过名称 a、b、c、d 来调用参数。

我想使用唯一的参数集运行 MyFun(a, b, c, d) 并将所有输出存储到列表中。 为此，我创建了一个列表列表：

arg_set1 <- list(a1,b1,c1,d1)

arg_set2 <- list(a2,b2,c2,d2)

arg_set3 <- list(a3,b3,c3,d3)

arg_sets <- list(arg_set1, arg_set2, arg_set3)

这是我不确定的部分：我正在尝试使用 Lapply 从 MyFun(a,b,c,d) 获取输出列表，使用 arg_sets 中列出的 3 个列表作为我的输入： output <- lapply( arg_sets，MyFun）

据我了解，上述 lapply 语句不起作用，因为 lapply 无法知道它应该传递给 MyFun 的一系列参数包含在 arg_sets[1]、arg_sets[2]、arg_sets[3] 中。 作为替代方案，我还尝试将我的输入参数作为数据框传递给 lapply，其中包含 a、b、c、d 列，每行包含一组唯一的参数，我希望 lapply 传递给 MyFun(a, b ，光盘）。 但是，我遇到了与之前输入参数列表基本相同的问题； 我无法定义 lapply 将输入矩阵的每一行作为一组参数传递给 MyFun(a,b,c,d)。

任何建议将不胜感激！

Answer 1

使用do.call

output <- lapply(arg_sets, function(x) do.call(my_fun, x))

看这个简单的例子，

my_fun <- function(x, y , z) {
   x + y + z
}

arg_sets <- list(a = as.list(1:3), b= as.list(4:6))
lapply(arg_sets, function(x) do.call(my_fun, x))

#$a
#[1] 6

#$b
#[1] 15

---

如果不是列表，而是创建一个参数向量，则可以将上述函数更改为

arg_set1 <- c(a1,b1,c1,d1)
arg_set2 <- c(a2,b2,c2,d2)
arg_set3 <- c(a3,b3,c3,d3)
arg_sets <- list(arg_set1, arg_set2, arg_set3)

lapply(arg_sets, function(x) do.call(my_fun, as.list(x)))