使用向量从 4d 数组中提取特定点

Question

我有一个需要从中提取特定值的 4 维数组。具体值来自 2 个稳定的维度和两个变化的维度。请参阅示例以获得更好的描述。

 set.seed(5)
 array <- array(dim=c(20,3,10,5))
 array[,,,] <- runif(3000,0,50)

所以我需要从这个数组中提取特定的值。维度 2 的值将始终为 3，维度 4 将始终为 1，但其他值会发生变化。我有我需要的每个向量，但我不知道如何组合它们。

 v1 <- c(1, 7, 10, 11, 3, 6, 20, 5, 5, 4)
 v2 <- c(1, 1, 4, 6, 2, 3, 9, 8, 7, 8)

所以基本上我需要数组[1,3,1,1]，数组[7,3,1,1]，数组[10,3,4,1]，数组[11,3,6,1]等等。

 > array[1,3,1,1]
 [1] 40.8038
 > array[7,1,1,1]
 [1] 26.398
 > array[10,3,4,1]
 [1] 7.784153
 > array[11,3,6,1]
 [1] 31.50343

有没有办法使用 v1 和 v2 来指定这些点？如果我做数组 [v1,3,v2,1]，它会给我一个 10x10 的块，但我只想要 10 个单独的值。

提前致谢！

Answer 1

解决方案是使用索引矩阵，每组索引一行：

array[cbind(v1,3,v2,1)]

# [1] 40.803803 38.007126  7.784153 31.503427 28.722716 32.444720 16.527393 14.420411
# [9] 41.935482 36.993050