如何使用R中的Lappy函数求列表中所有矩阵的前几列之和？

假设我有一个包含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

我想用lappy从每个矩阵中找出第一列元素的和。 预期结果：3,11,19当然是列表格式

使用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)

这是输出：

[[1]]
[1] 3

[[2]]
[1] 11

[[3]]
[1] 19

---

试试lapplyMyList，functionx sumx[，1]@akrun，谢谢你，这很有效。但是你能解释一下密码吗。第二个参数是什么？很抱歉，我对R不是很在行，我正在试图理解apply系列是如何工作的。使用匿名函数，通过Lappy循环列表，提取第一列x[，1]，并获得其总和，还有一个问题。现在，我将如何使用我自己创建的函数，一个用户定义的函数，然后在Lappy中使用它？假设，现在我想找到每个矩阵中第一列的乘积。

[[1]]
[1] 3

[[2]]
[1] 11

[[3]]
[1] 19