在一個循環中寫入多個CSV文件

Question

我有一個包含2列名稱和email的150萬行csv文件。我想以這樣的方式編寫程序，當我在R中讀取我的文件時，輸出被分段每個csv有5000個數據。

也許我可以做一個循環：從第1行到5000並將其保存爲project1.csv，然後將5001保存爲10000，然後保存到project2.csv，然後將10001保存到15000在我的工作目錄中的project3.csv中。有什麼建議麼？

Answer 1

假設「DF1」是我們需要部分每5000行，並將其保存在一個新的文件data.frame，我們通過創建基於行的list（lst）序列的分組指標split的數據集。我們遍歷list元素的序列（lapply(...），並用write.csv寫入新文件。

n <- 5000 
lst <- split(df1, ((seq_len(nrow(df1)))-1)%/%n+1L) 
invisible(lapply(seq_along(lst), function(i) 
    write.csv(lst[[i]], file=paste0('project', i, '.csv'), row.names=FALSE)))