如何按指定固定行数将DataFrame批量拆分为多个子数据框

你原有代码的问题在于rep(1:1048575, 1048575)生成的分组向量长度和DataFrame实际行数不匹配，不符合拆分逻辑。

正确实现代码 #

# 定义每个子数据框的固定行数
chunk_size <- 1048575
# 生成与DataFrame行数匹配的分组向量
split_group <- rep(
  1:ceiling(nrow(df) / chunk_size), 
  each = chunk_size, 
  length.out = nrow(df)
)
# 拆分得到子数据框列表
split_df <- split(df, split_group)
# 批量将子数据框写入全局环境，命名格式为df1、df2、df3...
names(split_df) <- paste0("df", names(split_df))
list2env(split_df, envir = .GlobalEnv)

逻辑说明 #

• ceiling(nrow(df)/chunk_size) 会自动计算需要拆分的总组数：1079882行计算结果为2、2097160行计算结果为3，完全匹配你的需求
• each = chunk_size 保证每个分组编号连续重复1048575次，对应每个子数据框的行数
• length.out = nrow(df) 自动截断分组向量到和DataFrame行数完全一致，最后一个分组自动保留剩余行数

你可以用小数据测试验证逻辑：

# 测试用例：10行数据按每3行拆分
test_df <- data.frame(col = 1:10)
chunk_size <- 3
split_group <- rep(1:ceiling(nrow(test_df)/chunk_size), each = chunk_size, length.out = nrow(test_df))
test_split <- split(test_df, split_group)

运行后test_split会返回4个数据框，前3个各3行，最后1个1行，和你要的拆分规则完全一致。

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