在R语言中，从n维数组移除列时可使用何种索引参数？

你之前的思路方向是对的，但在列表索引的赋值方式上出了问题——R的数组完全支持列表作为索引参数，只是你用了单括号[]而非双括号[[]]来赋值列表元素，导致索引逻辑错误。矩阵索引确实不适合这个场景，因为它只能按位置选取元素，无法实现维度级的排除操作（不支持负索引或“全选”占位）。

修正后的函数实现 #

deleteCol <- function(array, col_to_del, in_dim) {
  # 获取数组维度数量
  dim_total <- length(dim(array))
  
  # 合法性校验
  if (in_dim < 1 || in_dim > dim_total) {
    stop("in_dim 必须介于 1 和 ", dim_total, " 之间")
  }
  target_dim_len <- dim(array)[in_dim]
  if (any(col_to_del < 1 || col_to_del > target_dim_len)) {
    stop("col_to_del 必须介于 1 和 ", target_dim_len, " 之间")
  }
  
  # 构建索引列表：默认全选所有维度的元素
  index <- vector(mode = "list", length = dim_total)
  for (i in seq_len(dim_total)) {
    index[[i]] <- TRUE
  }
  
  # 在指定维度设置排除索引
  index[[in_dim]] <- -col_to_del
  
  # 返回处理后的数组，drop=FALSE避免自动降维
  array[index, drop = FALSE]
}

关键说明 #

1. 列表索引的正确用法：
   列表的每个元素对应数组的一个维度，TRUE表示选中该维度的所有元素；给指定维度的列表元素赋值-col_to_del，即可排除该维度下的指定列。
   必须用双括号[[]]给单个列表元素赋值，单括号[]操作的是列表子集，会导致索引结构错误。

2. 测试示例：

   # 二维矩阵测试：删除第2列
   mat <- matrix(1:12, nrow=3, ncol=4)
   deleteCol(mat, 2, 2)
   
   # 三维数组测试：删除第2维度的第1、3列
   arr_3d <- array(1:24, dim = c(2, 3, 4))
   deleteCol(arr_3d, c(1,3), 2)
   

3. 为什么矩阵索引不行：
   矩阵索引是基于元素的绝对位置（行优先）进行选取，只能传入非负整数，无法用负号排除元素，也没有办法表示“选中该维度所有元素”的占位逻辑，完全不适用于维度级的排除操作。

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