r - 如何将每一维数组的值相加为一个矩阵

Question

我有一个具有三个维度的数组，想对每个维度中的值求和并最终得到一个数据矩阵。

这是一个例子:

array1 <- array(c(-5.5,6,3),dim = c(3,4,3))  

matrix <- matrix(NA, nrow=3, ncol=4)

matrix
       [,1]   [,2]  [,3]   [,4]
[1,]  -16.5  -16.5 -16.5  -16.5
[2,]   18      18    18     18
[3,]    9       9     9      9

是否可以用循环而不是使用任何应用函数来完成它？

提前致谢!

Answer 1

您的问题是说您不想使用 apply函数，但如果您改变主意，您可以将边距指定为 c(1, 2) :

apply(array1, MARGIN=c(1, 2), sum)
#       [,1]  [,2]  [,3]  [,4]
# [1,] -16.5 -16.5 -16.5 -16.5
# [2,]  18.0  18.0  18.0  18.0
# [3,]   9.0   9.0   9.0   9.0