使用 R 函数作为列表

Question

我正在创建一个包含几个函数的 R 列表：

funs <- list(
+     sum = sum,
+     mean = mean,
+     median = median
+     )

为了使用 lapply，我所指的 Hadley Wickham 的书使用：

lapply(funs, function(f) f(x))

我确实得到 lapply 函数的第一个参数是列表，但是function(f) f(x) 作为 lapply 的第二个参数，理想情况下应该是一个函数。我的 x 是：

x <- 1:10

Answer 1

当您将匿名函数分配给名称 g 时，可能会更清楚

g <- function(f) { 
  f(x)
}

g 有一个函数作为参数，并将使用从词法范围获得的参数x 调用此函数。所以对于x <- 1:10，你会得到

g(sum) # = sum(x) = sum(1:10) 
[1] 55

同样

lapply(funs, g) # = list(g(sum), g(means), g(median)
                # = list(sum(x), means(x), median(x)
                # = list(sum(1:10), means(1:10), median(1:10)
$sum
[1] 55

$mean
[1] 5.5

$median
[1] 5.5

Answer 2

lapply 的第二个参数是

function(f) f(x)

其中是一个函数。这是一个函数，它的参数也是一个函数，f。

为了阐明发生了什么，让我们从匿名函数中取出“匿名”：

getFunc <- function(f) f(x)
lapply(funs, getFunc)

这完全一样

lapply(funs, function(f) f(x))

无需单独定义getFunc。

再进一步，我们把x拿出来：

getFunc <- function(f, xx) f(xx)
lapply(funs, getFunc, xx=x)

这是一样的

lapply(funs, function(f) f(x))

但显式传入用于计算总和、均值和中位数的数字，而不是自动从全局环境中获取它们。