使用 R、dplyr 矩陣的總和列表列（來自嵌套的 data.frame）

Question

我有一個分組的data.frame ，其中m列包含 2x2 矩陣，如本例所示：

library(tidyverse)
d <- data.frame(g=c(1,1,2,2),x1=c(1,1,1,1),x2=c(1,1,1,1))
d_by <- d  %>%  group_by(g) %>% nest %>% 
  mutate(m = map(data,data.matrix))
d_by$m %>% str

如何將列表列 m 中的矩陣添加到單個矩陣中？

我嘗試使用

d_by %>% summarise(sum(m))

但收到錯誤消息：

Error in sum(m) : invalid 'type' (list) of argument

Answer 1

您可以對任意數量的矩陣使用reduce

purrr::reduce(d_by$m, `+`)

Answer 2

或在base R

Reduce(`+`, d_by$m)