R语言：将每4列一组的data.frame堆叠为单表问题求助

问题原因分析 #

你的循环报错有两个核心问题：

1. 列索引计算错误：由于R的运算符优先级，(ncol(results)/2)+1:ncol(results)会先执行1:ncol(results)，再与ncol(results)/2相加，导致生成的列索引超出数据实际列数范围（比如10列数据会生成6-15的索引，自然触发“未定义列”错误）；
2. 逻辑不符合需求：原循环是每次将数据对半拆分，但你的需求是每4列为一组堆叠，当总列数不是2的幂次（比如12列）时，这种拆分方式会破坏4列一组的结构。

修复方案 #

方案1：修正原while循环（仅适用于总列数为4的2次幂倍数，如4、8、16列）

调整列索引的写法，确保后半部分列的起始位置正确：

while (ncol(results) > 4) {
  mid <- ncol(results) / 2
  # 正确截取前半段和后半段列
  results <- rbind(results[, 1:mid], results[, (mid + 1):ncol(results)])
}

方案2：通用拆分堆叠方案（推荐，支持任意4的倍数列数）

直接按每4列一组拆分数据，再堆叠所有分组，无需依赖循环逻辑：

# 生成每4列一组的分组索引
col_groups <- split(seq_len(ncol(results)), ceiling(seq_len(ncol(results))/4))

# 遍历分组提取子数据框并堆叠
final_df <- do.call(rbind, lapply(col_groups, function(cols) results[, cols]))

如果习惯用tidyverse工具，也可以用更简洁的写法：

library(dplyr)
library(purrr)

final_df <- col_groups %>%
  map_dfr(~ results[, .x])

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