r - 堆叠数组切片（>2 维的 rbind）

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