在R中的列表中添加相應的元素

Question

我有一個包含多個矩陣（從2到n）的列表。 為了簡單起見，假設我有以下5種矩陣的列表。

> lst
[[1]]
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    1    1
[2,]    1    1    1    1    1

[[2]]
     [,1] [,2] [,3] [,4] [,5]
[1,]    2    2    2    2    2
[2,]    2    2    2    2    2
...
[[5]]
     [,1] [,2] [,3] [,4] [,5]
[1,]    5    5    5    5    5
[2,]    5    5    5    5    5

我如何執行將這些操作加在一起並獲得一個矩陣作為輸出的操作（類似於colSums但用於列表）：

     [,1] [,2] [,3] [,4] [,5]
[1,]   15   15   15   15   15
[2,]   15   15   15   15   15

我嘗試了mapply(sum,lst[[1]],lst[[2]],lst[[3]],lst[[4]],lst[[5]]) 。 這確實為我提供了總和，但是矩陣失去了形狀，需要命名每個列表項（對於5，可能還可以，但是如果我有100，該怎么辦？）。

Answer 1

這應該做

Reduce('+', lst)