提取lapply或mclapply结果

Question

我目前正在运行大量的应用程序行，如下所示：

test=data.frame(t=seq(1,5,1),e=seq(6,10,1))
mean(apply(test,2,mean))

我想将第二行代码转换为mclapply，这将产生与lapply相同的结果。我意识到我可以使用for循环从lapply语句中提取每一项，然后在该向量上使用mean，但这会降低性能，而我正试图通过使用mclapply来提高性能。问题是lapply和mcapply都返回一个列表，这意味着不能使用。我可以使用[[]]来获取实际值，也可以使用test$t和test$e，但是test中的列数是可变的，通常会超过1000列。肯定有一种更简单的方法来处理这件事。基本上我想知道这句话的意思：

mclapply(test,mean,mc.preschedule=TRUE)

最好不生成新的变量或使用for循环。解决方案应该等同于获得以下语句的平均值：

lapply(test,mean)

Answer 1

我很困惑-- data.frame毕竟也是list。所以除了显而易见的

R> testdf <- data.frame(t=seq(1,5,1),e=seq(6,10,1))
R> mean(testdf)
t e 
3 8 
R> mean(mean(testdf))
[1] 5.5
R> 

你也可以这样做

R> lapply(testdf, mean)
$t
[1] 3

$e
[1] 8

R> mean(unlist(lapply(testdf, mean)))
[1] 5.5
R> 

因此，对于内部lapply，您可以根据需要使用mclapply，不是吗？

Answer 2

我喜欢将mclapply()结果放在一个列表中，然后将这些列表组合起来形成一个最终产品：

results.list <- list()
results.list <- mclapply(listOfData, analysisFunction, mc.cores = 7)

library(data.table)
result <- rbindlist(results.list)