[英]rbind matrices from a list of a list of matrices
我有一個list
一個的list
矩陣。 每個list
具有相同數量的matrices
,其中每個matrix
具有相同的列數:
set.seed(1)
mat.lol <- list(list1=list(matrix(rnorm(100),ncol=10),matrix(rnorm(200),ncol=10),matrix(rnorm(140),ncol=10)),
list2=list(matrix(rnorm(80),ncol=10),matrix(rnorm(220),ncol=10),matrix(rnorm(110),ncol=10)),
list3=list(matrix(rnorm(300),ncol=10),matrix(rnorm(500),ncol=10),matrix(rnorm(650),ncol=10)))
我想rbind
每個matrix
i
在所有的列表,這樣我結束了這個list
的matrices
:
mat.list <- list(rbind(mat.lol[[1]][[1]],mat.lol[[2]][[1]],mat.lol[[3]][[1]]),
rbind(mat.lol[[1]][[2]],mat.lol[[2]][[2]],mat.lol[[3]][[2]]),
rbind(mat.lol[[1]][[3]],mat.lol[[2]][[3]],mat.lol[[3]][[3]]))
實現這一目標的apply
function
是什么?
您可以使用purrr
包中的transpose()
函數將列表翻出來,以便每個子列表包含您想要綁定在一起的所有矩陣,然后您可以簡單地循環遍歷結果列表並對矩陣進行rbind
:
library(purrr)
mat.list.1 <- lapply(transpose(mat.lol), do.call, what=rbind)
identical(mat.list, mat.list.1)
# [1] TRUE
堅持使用purrr
語法:
mat.list.3 <- transpose(mat.lol) %>% map(do.call, what=rbind)
identical(mat.list, mat.list.3)
# [1] TRUE
或者您可以使用基礎R中的Map
:
mat.list.2 <- do.call(Map, c(f = rbind, mat.lol))
identical(mat.list, mat.list.2)
# [1] TRUE
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.