如何在R中合并数组指定维度？4维数组转3维的技术求助

你完全不需要用apply这类循环型函数来处理这个问题——维度重塑在R里有更高效、更直接的方法，毕竟你的数组规模不小（9600万个元素），用循环类函数会非常慢。

核心思路 #

R中的数组是按列优先顺序存储的（也就是第一个维度变化最快，最后一个维度变化最慢）。你的原数组维度是c(12000, 100, 20, 4)，要合并的第二、第三维度（100和20）在存储顺序上是连续的，所以直接修改数组的维度属性就能实现合并，不需要额外处理元素顺序。

方法一：直接修改维度属性（最高效） #

这是最优解，因为它只是修改数组的元数据，不会复制整个数组，几乎是瞬时完成的：

# 假设你的数组名为arr
dim(arr) <- c(12000, 100 * 20, 4)

执行后，arr的维度就变成了c(12000, 2000, 4)，完全符合你的需求。

方法二：用array()函数重构 #

如果你想保留原数组不变，生成一个新数组，可以用array()函数，它会按原数组的存储顺序重新分配维度：

# 生成新数组arr_new，原数组arr保持不变
arr_new <- array(arr, dim = c(12000, 100 * 20, 4))

验证正确性 #

你可以用小测试数组验证结果是否符合预期：

# 创建一个小的4维测试数组
test_arr <- array(1:(2*3*4*5), dim = c(2, 3, 4, 5))
# 合并第二、第三维度
dim(test_arr) <- c(2, 3*4, 5)
# 检查维度
dim(test_arr) # 输出: 2 12 5，符合预期

比如原数组中test_arr[1, 2, 3, 4]的值，在新数组中对应test_arr[1, (2-1)*4 + 3, 4]，两者是完全相等的。

为什么不用as.vector？ #

as.vector会把高维数组转成一维向量，之后再重新构造数组也能实现，但这会额外复制一遍整个数组的数据——对于你这种千万级元素的数组来说，既浪费内存又耗时，完全没必要。

内容的提问来源于stack exchange，提问作者Christophe Lavaysse