将几个参数传递给lapply（和其他* apply）的FUN

我在使用lapply中有一个关于将多个参数传递给函数的问题R。

当我将lapply与-的语法一起使用时，lapply(input, myfun);这很容易理解，我可以这样定义myfun：

myfun <- function(x) {
 # doing something here with x
}

lapply(input, myfun);

和的元素input作为x参数传递给myfun。

但是，如果我需要传递更多的参数myfunc呢？例如，它的定义如下：

myfun <- function(x, arg1) {
 # doing something here with x and arg1
}

如何通过传递两个input元素（作为x参数）和其他一些参数来使用此函数？

如果您查看帮助页面，则其中的参数之一lapply是...。当查看帮助页面的“参数”部分时，会发现以下行：

...: optional arguments to ‘FUN’.

因此，您要做的就是在lapply调用中包含另一个参数作为参数，如下所示：

lapply(input, myfun, arg1=6)

并且lapply，如果认识到arg1不是自己知道该如何处理的参数，则会自动将其传递给myfun。所有其他apply功能都可以做同样的事情。

附录：您也可以...在编写自己的函数时使用。例如，假设您编写了一个plot在某个时刻调用的函数，并且希望能够从函数调用中更改绘图参数。您可以将每个参数作为参数包含在函数中，但这很烦人。相反，您可以使用...（既作为函数的参数，也可以作为对函数的调用的参数），并将函数无法识别的任何参数自动传递给plot。

正如Alan所建议的那样，函数'mapply'将函数应用于多个多重列表或向量参数：

mapply(myfun, arg1, arg2)

参见手册页：https : //stat.ethz.ch/R-manual/R-devel/library/base/html/mapply.html

您可以通过以下方式进行操作：

 myfxn <- function(var1,var2,var3){
      var1*var2*var3

    }

    lapply(1:3,myfxn,var2=2,var3=100)

您将得到答案：

[[1]] [1] 200

[[2]] [1] 400

[[3]] [1] 600

myfun <- function(x, arg1) {
 # doing something here with x and arg1
}

x是向量或列表，分别针对的每个元素调用myfunin 。lapply(x, myfun)x

选项1

如果您想使用全arg1在每个myfun呼叫（myfun(x[1], arg1)，myfun(x[2], arg1)等），使用lapply(x, myfun, arg1)（如上所述）。

选项2

如果您想然而就像打电话myfun到的每一个元素arg1单独一起的元素x（myfun(x[1], arg1[1])，myfun(x[2], arg1[2])等），这是不可能的使用lapply。相反，请使用mapply(myfun, x, arg1)（如上所述）或apply：

 apply(cbind(x,arg1), 1, myfun)

要么

 apply(rbind(x,arg1), 2, myfun).