将函数列表应用于 R 中的单个参数

Question

您好，我正在尝试将函数列表应用于 R 中的单个参数。例如，

flist <- list(F,G,H) #F,G,H are function objects

然后说我想要一个列表或向量 (F(x),G(x),H(x)) 其中 x 是一个标量数。 你知道我是怎么做到的吗？

Answer 1

实现这一目标的最有效方法（似乎）是使用单个 lapply（而不是 3 个不同的函数），例如

flist <- list(mean, unique, max) # Example functions list
MyScalar <- 1 # Some scalar
lapply(flist, function(f) f(MyScalar))
# [[1]]
# [1] 1
# 
# [[2]]
# [1] 1
# 
# [[3]]
# [1] 1

不过，如果所有函数都给出相同的大小/类别结果，您可以使用 vapply 进一步改进它

vapply(flist, function(x) x(MyScalar), FUN.VALUE = double(1))
## [1] 1 1 1

Answer 2

f <- function(x) x^1
g <- function(x) x^2
h <- function(x) x^3
l <- list(f, g, h)

sapply(l, do.call, list(2))
## [1] 2 4 8

do.call 允许使用可变长度参数列表进行函数委托。 例如，c(1, 2, 3) 可以这样调用：do.call(c, list(1, 2, 3))。 (s|l)apply 只是遍历一个列表并将指定的函数应用于每个项目。所以通过l的第一次迭代将是：do.call(l[[1]], list(2))，相当于l[[1]](2)，相当于f(2)。