arrays - 将 3d 数组中的工作表行绑定(bind)为 2d 数组

Question

我有一个 3 维数组，并希望通过逐行堆叠一维(组合一维的行)来折叠为二维。在我的代码中，我在每个索引处用二维数组填充了一个“工作表”(第 3 维)，现在我想采用该 3 维数组并将这些工作表的行彼此堆叠。

这是一个示例数组，因此我可以解释我希望最终结果的样子:

x <- array(1:24, dim=c(2, 3, 4),
           dimnames=list(letters[1:2], LETTERS[1:3], letters[23:26]))
dim(x)

我要 w , x , y , z以二维数组的形式相互堆叠，该数组将具有 8 行和 3 列。这是一种很麻烦的方法(在我的循环中是不可能的):

x1<-x[,,1]
x2<-x[,,2]
x3<-x[,,3]
x4<-x[,,4]

All<-rbind(x1,x2,x3,x4)

我看过 abind和 adrop但他们并不完全正确。

我也试过 aperm但我不认为你可以用这个来减少尺寸，只是转置(？)

或者，我可以创建一个 list (实际上，这将是理想的，因为数组可能具有不同的行号)。在那种情况下，我将如何以相同的方式组合列表中多个元素的行？

谢谢!

Answer 1

我会将我的评论推广到答案，尽管我仍然认为应该有一种方法来改变尺寸。

apply(x, 2, c)
#or if you're really pushing for speed, the simpler function:
apply(x, 2, identity)

# Giving:
#      A  B  C
#[1,]  1  3  5
#[2,]  2  4  6
#[3,]  7  9 11
#[4,]  8 10 12
#[5,] 13 15 17
#[6,] 14 16 18
#[7,] 19 21 23
#[8,] 20 22 24

匹配请求的输出，没有行名:

all.equal(apply(x,2,c), All, check.attributes=FALSE)
#[1] TRUE