R语言对三维数组求第二维的均值（即每行中所有列的平均值）

# 创建一个三维数组

array_3d <- array(1:27, dim = c(3, 3, 3))

print(array_3d)

# 计算每行的均值 

row_means <- apply(array_3d, c(1, 3), mean)

print(row_means)

即可输出以下结果：

, , 1

     [,1] [,2] [,3]
[1,]    1    4    7
[2,]    2    5    8
[3,]    3    6    9

, , 2

     [,1] [,2] [,3]
[1,]   10   13   16
[2,]   11   14   17
[3,]   12   15   18

, , 3

     [,1] [,2] [,3]
[1,]   19   22   25
[2,]   20   23   26
[3,]   21   24   27

     [,1] [,2] [,3]
[1,]    4   13   22
[2,]    5   14   23
[3,]    6   15   24