r - 从 R 列表中的矩阵中提取行

Question

我正在尝试从 R 列表中的所有矩阵中提取行。除了循环之外，还有其他简单的方法可以做到这一点吗？例如，

set.seed(123)
list1 <- list(replicate(4,rnorm(2)))
rep(list1,3)

此代码生成以下列表:

[[1]]
           [,1]       [,2]      [,3]       [,4]
[1,] -0.5604756 1.55870831 0.1292877  0.4609162
[2,] -0.2301775 0.07050839 1.7150650 -1.2650612

[[2]]
           [,1]       [,2]      [,3]       [,4]
[1,] -0.5604756 1.55870831 0.1292877  0.4609162
[2,] -0.2301775 0.07050839 1.7150650 -1.2650612

[[3]]
           [,1]       [,2]      [,3]       [,4]
[1,] -0.5604756 1.55870831 0.1292877  0.4609162
[2,] -0.2301775 0.07050839 1.7150650 -1.2650612

现在我想提取此列表中所有矩阵的第二行并将其存储在另一个矩阵或列表中。有没有办法在不循环的情况下做到这一点？

谢谢

Answer 1

或者像这样？

set.seed(123)
list1 <- list(replicate(4,rnorm(2)))
l<-rep(list1,3)
lapply(l,function(x) x[2,])