如何在R语言中移除大型数组的多余维度？

一、将4维数组转为3维（移除无用第4维） #

在基础R中无需额外安装包，以下几种方法都能实现：

• 索引提取法：假设你的4维数组名为arr_4d，若第4维仅含1个元素，直接通过索引提取并自动降维：

  arr_3d <- arr_4d[,,,1, drop = TRUE]
  

  这里的drop=TRUE会自动移除长度为1的维度，确保结果是3维数组。
• drop()函数自动降维：如果第4维的长度本身就是1，直接调用drop()函数即可移除该维度：

  arr_3d <- drop(arr_4d)
  

• 手动修改维度属性：确认第4维长度为1后，直接修改数组的dim属性：

  dim(arr_4d) <- dim(arr_4d)[1:3]
  arr_3d <- arr_4d
  

  注意：此方法仅适用于第4维长度为1的情况，否则会破坏数据结构。

二、类似array_pop的功能实现 #

基础R确实没有内置的array_pop函数，但可以通过以下方式实现类似效果：

• 自定义简易函数：如果需要移除数组的最后一维（或最后一维的最后一个元素），可以自己写一个轻量函数：

  # 移除数组的最后一维（适用于任意维度数组）
  array_pop_dim <- function(arr) {
    current_dims <- dim(arr)
    # 生成索引，保留前n-1维的所有元素
    idx <- lapply(seq_along(current_dims)[-length(current_dims)], function(x) TRUE)
    return(do.call("[", c(list(arr), idx, drop = TRUE)))
  }
  

  调用时直接arr_reduced <- array_pop_dim(arr_4d)即可得到移除最后一维后的数组。
• 使用purrr包的切片功能：安装purrr包后，可利用array_slice函数按维度提取数据，实现移除指定维度的效果：

  # 先安装包（仅需一次）
  install.packages("purrr")
  library(purrr)
  
  # 移除第4维，保留该维度的第一个元素并降维
  arr_3d <- array_slice(arr_4d, 4, 1, drop = TRUE)
  

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