在数据框中应用功能列列表

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