R语言如何实现列表条目逐元素求和生成矩阵

方案1：Base R 原生实现（推荐） #

不需要安装任何第三方包，直接用Reduce函数即可实现需求，适配一维向量、二维矩阵、更高维数组所有场景：

# 你的示例代码
list_example <- list()
for(i in 1:100){
  list_example[[i]] <- rnorm(100,0,1)
}

# 逐元素求和核心代码
sum_result <- Reduce(`+`, list_example)

逻辑说明：Reduce会将加法运算符按顺序作用在列表的所有元素上，自动按位相加，只要所有列表元素维度完全一致就能直接运行，6000个元素的计算量完全无性能压力。

方案2：转数组后按维度求和（适合需要多维度统计的场景） #

如果你后续还要计算同位置的均值、标准差等其他统计值，可以先把列表转为三维数组再做聚合：

# 转成数组，第一维是每个元素的长度，第二维是列表的条目数
arr <- array(unlist(list_example), dim = c(length(list_example[[1]]), length(list_example)))
# 沿第二维求和得到逐元素的和
sum_result <- apply(arr, 1, sum)

特殊场景适配 #

如果列表元素中存在NA值需要忽略，可以自定义求和函数传入Reduce：

sum_ignore_na <- function(x, y) {
  x + replace(y, is.na(y), 0)
}
sum_result <- Reduce(sum_ignore_na, list_example)

内容的提问来源于stack exchange，提问作者Cardinal