在数据框中应用函数列列表

Question

我有 2 个变量，a 和 b。 a 可能非常大。 b 始终是一个函数向量，可以应用于数据框a 中的每一列。

a <- data.frame(col1=c(1, 2, 3), col2=c(4, 5, 6))
b <- c(as.double, function(x) {1+x})

所以我想要的结果是函数b[1] 应用于col1，b[2] 应用于col2，以此类推所有列。我觉得 lapply 应该在这里使用，但文档似乎说它只能有一个功能。我想我可以使用一个循环，但“矢量化”的方式会很好。

Answer 1

这是一种方法：

results <- mapply(function(i,j) b[[i]](a[[j]]), i=1:length(b), j=1:length(a)) 

它给你：

> results
     [,1] [,2]
[1,]    1    5
[2,]    2    6
[3,]    3    7