arrays - 对 3 维数组进行子集化时不要删除维度

Question

让 A成为 1 x 2 x 2 -大批:

> A <- array(0, dim=c(1,2,2))
> A
, , 1

     [,1] [,2]
[1,]    0    0

, , 2

     [,1] [,2]
[1,]    0    0

然后 A[,,1]是无量纲的:

> A[,,1]
[1] 0 0

我想拥有:

     [,1] [,2]
[1,]    0    0

drop论点没有产生我想要的:

> A[,,1,drop=FALSE]
, , 1

     [,1] [,2]
[1,]    0    0

我觉得这很烦人。并且有问题，因为 R 将向量标识为列矩阵，而不是行矩阵。

我当然可以做 matrix(A[,,1], 1, 2) .有没有更方便的方法？

Answer 1

我们可以只分配 dim基于 MARGIN我们正在提取

`dim<-`(A[, ,1], apply(A, 3, dim)[,1])
 #     [,1] [,2]
 #[1,]    0    0

使用另一个例子

B <- array(0, dim = c(2, 1, 2))
`dim<-`(B[, ,1], apply(B, 3, dim)[,1])
 #    [,1]
#[1,]    0
#[2,]    0

如果我们使用的是打包解决方案，那么 adrop来自 abind可以获得预期的输出

library(abind)
adrop(A[,,1,drop=FALSE], drop = 3)
#      [,1] [,2]
# [1,]    0    0

adrop(B[,,1,drop=FALSE], drop = 3)
#     [,1]
#[1,]    0
#[2,]    0