使用 rbind 反转应用

Question

假设我在 R 中有一个数组 foo，其维度 == c(150, 40, 30)。 现在，如果我：

bar <- apply(foo, 3, rbind)

dim(bar) 现在是 c(6000, 30)。

反转此过程并从 bar 到 foo 以使它们相同的最优雅和通用的方法是什么？

问题不在于获得正确的维度，而在于在其受尊重的原始维度内以相同的顺序获取数据。

感谢您抽出时间，期待您的回复。

PS 对于那些认为这是一个更大问题的一部分的人来说，确实如此，不，我还不能使用 plyr。

Answer 1

我认为你可以再次调用 array 并指定原始尺寸：

m <- array(1:210,dim = c(5,6,7))
m1 <- apply(m, 3, rbind)
m2 <- array(as.vector(m1),dim = c(5,6,7))
all.equal(m,m2)
[1] TRUE

Answer 2

我想知道你最初的转变。您从 apply 调用 rbind，但这不会执行任何操作 - 您也可以调用 identity！

foo <- array(seq(150*40*30), c(150, 40, 30))
bar <- apply(foo, 3, rbind)
bar2 <- apply(foo, 3, identity)
identical(bar, bar2) # TRUE

那么，您真正想要实现的目标是什么？我假设您有几个（30）个矩阵切片，并且想要将它们堆叠起来，然后再次将它们拆开。如果是这样，代码将比 @joran 建议的更复杂。您需要对 aperm 进行一些调用（如@Patrick Burns 建议的那样）：

# Make a sample 3 dimensional array (two 4x3 matrix slices):
m <- array(1:24, 4:2)

# Stack the matrix slices on top of each other
m2 <- matrix(aperm(m, c(1,3,2)), ncol=ncol(m))

# Reverse the process
m3 <- aperm(array(m2, c(nrow(m),dim(m)[[3]],ncol(m))), c(1,3,2))

identical(m3,m) # TRUE

无论如何，aperm 确实很强大（但有些令人困惑）。非常值得学习...