Question

我有一系列的lapply调用，给我一个数组列表。第一个维度的数量不同，其中两个维度相同。我想将每个“行”（第一个维度）放在彼此的顶部，就像rbind对二维数组（矩阵）一样。

数据如下所示：

la <- list( array( dim=c(1,6,7) ), array( dim=c(2,6,7) ), array( dim=c(3,6,7) ) )

我无法使用do.call(rbind, la)，因为它只是将其展平为矩阵。

我可以这样写：

rbind.array <- function(..., deparse.level=1) {
   allargs <- list(...)
   n <- length(allargs)
   dims <- sapply(la,dim)
   sel.dim <- which(!apply( dims, 1, function(x) length(unique(x))==1 ))
   stopifnot(length(sel.dim)==1)
   target.length <- apply( dims, 1, sum)[sel.dim]
   target.dims <- dims[,1]
   target.dims[sel.dim] <- target.length
   res <- array( dim=target.dims )
   for( i in seq(n) ) {
      # stack array slices one by one
   }
}

但是这个功能肯定存在吗？

Answer 1

我认为来自 abind 的abind会这样做......？

library(abind)
abind(la[[1]],la[[2]],la[[3]],along = 1)

除Curry解决方案外，这似乎也有效：

do.call("abind",list(la,along = 1))

堆叠数组切片（rbind为＆gt; 2维）

1 个答案: