如何用R编写循环拆分大CSV文件适配Excel行限制并命名？

你已经完成了数据加载、行数统计和拆分数量计算的步骤，接下来可以通过以下循环实现文件拆分与命名：

已完成的基础步骤 #

# STEP 1: 加载数据
data <- read.csv(".../Desktop/Data/file.csv", header = TRUE)

# STEP 2: 统计总行数
totalrows <- nrow(data)

# STEP 3: 计算所需拆分文件数量
excelrowlimit <- 1048576 - 5  # 预留5行余量，避免Excel打开问题
filesrequired <- ceiling(totalrows/ excelrowlimit)

循环拆分并导出文件 #

添加以下循环代码，即可按要求拆分文件，并自动生成带序号的文件名：

# STEP 4: 循环拆分并导出
for(i in 1:filesrequired) {
  # 计算当前文件的起始行和结束行
  start_row <- (i - 1) * excelrowlimit + 1
  end_row <- min(i * excelrowlimit, totalrows)
  
  # 提取当前文件的数据集
  subset_data <- data[start_row:end_row, ]
  
  # 生成带序号的文件名（比如file_part_1.csv、file_part_2.csv）
  filename <- paste0(".../Desktop/Data/file_part_", i, ".csv")
  
  # 导出CSV文件，关闭行名避免额外列
  write.csv(subset_data, filename, row.names = FALSE)
}

代码说明 #

• 行范围计算：start_row和end_row确保每个文件的行范围符合设定的限制，最后一个文件会自动适配剩余行数，不会超出总行数。
• 文件名命名：使用paste0生成带序号的文件名，方便区分不同拆分文件。
• 导出设置：row.names = FALSE避免导出时自动添加行名列，保证CSV结构与原文件一致。

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