如何在R中通过循环对280列数据按每8列切片后用rbind合并？

针对你的需求，我们可以通过生成列分组索引、循环提取切片再合并的方式完成，下面是具体步骤和代码：

1. 确定分组的起止位置 #

从你的示例来看，是每9列分为一组（1-9、10-18）。先计算280列对应的所有分组起止点：

# 每组包含的列数，按示例设为9，若实际是8列则改为8
cols_per_group <- 9
total_cols <- ncol(df)
# 生成所有分组的起始列位置：1, 10, 19,...
start_pos <- seq(1, total_cols, by = cols_per_group)
# 生成对应结束位置，最后一组不足9列时取到最后一列
end_pos <- pmin(start_pos + cols_per_group - 1, total_cols)

2. 循环提取每组数据 #

创建一个空列表存储每个切片结果，循环遍历所有分组：

group_list <- list()
for (i in 1:length(start_pos)) {
  # 提取当前分组的列
  slice <- df[, start_pos[i]:end_pos[i]]
  # 统一列名（因为原列名重复，合并时必须列名一致）
  colnames(slice) <- paste0("col", 1:ncol(slice))
  group_list[[i]] <- slice
}

3. 合并所有切片 #

用do.call(rbind, ...)把列表里的所有数据框按行合并：

final_df <- do.call(rbind, group_list)

简化写法（无需显式循环） #

如果想更简洁，用lapply替代循环，一步完成：

cols_per_group <- 9
total_cols <- ncol(df)
start_pos <- seq(1, total_cols, by = cols_per_group)

final_df <- do.call(rbind, lapply(start_pos, function(x) {
  end <- pmin(x + cols_per_group - 1, total_cols)
  slice <- df[, x:end]
  colnames(slice) <- paste0("col", 1:ncol(slice))
  slice
}))

关键提示 #

• 若实际需求是每8列一组，只需把cols_per_group的值改为8即可。
• 必须统一每组的列名，否则合并时会因列名不匹配报错。

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