如何使用R中的lapply函数查找列表中所有矩阵第一列的总和？

Question

假设我有一个包含3个矩阵的列表。 我无法弄清楚如何找到每个矩阵的第一列的总和并获得结果。

Eg:
A=matrix(c(1:4),nrow=2,ncol=2)
B=matrix(c(5:8),nrow=2,ncol=2)
C=matrix(c(9:12),nrow=2,ncol=2)

MyList=list(A,B,C)

The list is:
[[1]]
     [,1] [,2]
[1,]    1    3
[2,]    2    4

[[2]]
     [,1] [,2]
[1,]    5    7
[2,]    6    8

[[3]]
     [,1] [,2]
[1,]    9   11
[2,]   10   12

我想使用lapply从每个矩阵中找到第一列元素的总和。 预期的结果： 3,11,19 （当然以列表格式）

Answer 1

使用purrr软件包，您可以运行以下代码：

您的数据：

A=matrix(c(1:4),nrow=2,ncol=2)
B=matrix(c(5:8),nrow=2,ncol=2)
C=matrix(c(9:12),nrow=2,ncol=2)

创建一个列表：

mylist <- list(A,B,C)

然后使用colSums函数运行map ， colSums函数按列生成总和。 再次使用map可以提取第一个元素，即按第一列求和：

library(purrr)
mylist %>% 
    map(colSums) %>% 
    map(1)

这是输出：

[[1]]
[1] 3

[[2]]
[1] 11

[[3]]
[1] 19