列表中选定列的总和

Question

x <- list(a = matrix(c(rep(1, times = 8), 9:16), nc = 4), b = matrix(1, nc = 4, nr = 4))

我的数据共享第一列和第二列，而第三列和第四列不同

如果要添加每个列表的对应元素

Reduce("+",x)

如何在保持第一列和第二列不变的情况下仅添加第三列和第四列？

Answer 1

为什么不添加之前选择第三列和第四列？

cbind(x[[0]][,1:2], Reduce("+", lapply(x, function(mat) mat[, 3:4])))