我试图从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
现在，我要提取此列表中所有矩阵的第二行，并将其存储在另一个矩阵或列表中。有没有办法做到这一点而不循环？
谢谢
还是这样？
set.seed(123)
list1 <- list(replicate(4,rnorm(2)))
l<-rep(list1,3)
lapply(l,function(x) x[2,])
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句