我有一个包含956,678行的CSV文件中的数据。下面的代码读取文件并将数据拆分为R中的组（每个组有65,000行，其余行进入最后一组）。
my_file <- read.csv("~myfile_path/file.csv")
grps <- (split(my_file, (seq(nrow(my_file))-1) %/% 65000))
for (i in grps)
{
write.csv(grps, paste("path/output_file", i, ".csv", sep=""))
}
现在，我想将这些组作为CSV文件写入磁盘。谁能建议我该怎么做？
编辑1：
根据评论，我修改了代码并得到以下错误：
data.frame（
0= list（nih_addr_id = c（664L，665L，666L，667L，：参数表示行数不同：65000，46677
您write.csv正在循环中，正在尝试将列表写为.csv文件，而不是列表的dataframe元素。
尝试：
my_file <- read.csv("~myfile_path/file.csv")
grps <- (split(my_file, (seq(nrow(my_file))-1) %/% 65000))
for (i in seq_along(grps)) {
write.csv(grps[[i]], paste0("path/output_file", i, ".csv"))
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句