Сумма по выбранным столбцам в списке

Question

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

Мои данные совместно используют 1-й и 2-й столбцы, в то время как 3-й и 4-й столбцы отличаются

Если я хочу добавить соответствующие элементы каждого списка

Reduce("+",x)

Как можноЯ только добавляю 3-й и 4-й столбец, сохраняя при этом 1-й и 2-й столбец без изменений?

Answer 1

Почему бы не выбрать 3-й и 4-й столбец перед добавлением?

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