如何计算多个列表中向量的平均值？

Question

我有几个包含向量的列表,我想获得一个列表,哪些元素是初始列表的向量的平均向量.

示例:两个初始列表

lt1 <- list(a = c(1,2,3), b = c(2,5,10))
lt2 <- list(a = c(3,4,5), b = c(4,5,2))

我想获得

lt12 <- list(a = c(2,3,4), b = c(3,5,6))

我尝试了lapply和llply,但我总是最终获得每个列表的向量的平均值.

Answer 1

您可以一起使用Map()向量cbind()，然后rowMeans()在结果列表上运行。

lapply(Map(cbind, lt1, lt2), rowMeans)
# $a
# [1] 2 3 4
#
# $b
# [1] 3 5 6

或者用另一种方式lapply(Map(rbind, lt1, lt2), colMeans)