R语言如何按每4列为一组选取CSV/Excel文件列并生成新文件

核心思路 #

无需安装第三方依赖包，用基础R函数即可完成：先读入全量数据，按4列步长生成每组列的索引范围，循环截取子集后逐个导出为独立CSV文件即可。

操作步骤 #

• 读入原始CSV文件
  把代码里的文件路径替换为你本地的实际CSV路径即可：

  # 读入原始数据
  raw_df <- read.csv("你的原始CSV文件绝对路径.csv", stringsAsFactors = FALSE)
  

• 生成分组列的起始索引
  从第1列开始，每4列为一组，自动适配总列数，不需要手动计算最后一组的位置：

  # 生成每组的起始列号：1,5,9...97
  group_start <- seq(from = 1, to = ncol(raw_df), by = 4)
  

• 循环截取列并导出文件
  逐组截取连续4列，自动生成编号文件名导出，代码做了边界兼容，就算总列数不是4的整数倍也不会报错：

  for (idx in seq_along(group_start)) {
    # 计算当前组的结束列号，取和总列数的最小值防止越界
    group_end <- min(group_start[idx] + 3, ncol(raw_df))
    # 截取当前组的列子集
    sub_data <- raw_df[, group_start[idx]:group_end]
    # 生成导出文件名，按组编号命名：group_1.csv、group_2.csv...group_25.csv
    output_file <- paste0("group_", idx, ".csv")
    # 写出CSV，关闭行名导出避免生成多余的无名列
    write.csv(sub_data, output_file, row.names = FALSE)
  }
  

注意事项 #

• 运行前可以通过setwd("你要存放输出文件的文件夹路径")设置工作目录，导出的所有分组文件会直接存到该目录下，避免找不到文件。
• 100列数据按规则会刚好生成25个分组文件，每个文件包含4列原始数据，和要求的1-4、5-8……97-100的拆分规则完全一致。

内容的提问来源于stack exchange，提问作者Sara Angela Gallarati