library(tidyverse)
library(readr)
# 產生測試資料
demo <- tibble(variable=1:16,
id1=rnorm(16),
id2=rnorm(16),
id3=rnorm(16),
id4=rnorm(16))
write_csv(demo, "demo.csv")
# 使用read_csv_chunked() 每4row切割並輸出成一個新的檔案
callback_f <- function(x, pos) write_csv(x, paste0("chunk_",pos%/%4,".csv"))
read_csv_chunked("demo.csv", DataFrameCallback$new(callback_f), chunk_size=4)
結果如下:
原資料
https://i.imgur.com/y3GmbSh.jpg
輸出4個檔案
https://i.imgur.com/5b2pzEi.jpg
※ 引述《haitairoutzu (海苔肉粽)》之銘言：
: [軟體熟悉度]:
: 請把以下不需要的部份刪除
: 入門(只有使用過R，但對語法不熟悉)
: [問題敘述]:
: 各位好
: 我有一筆CSV檔案，是由許多方陣組成的，
: 不過我之後的分析需要輸入的資料為方陣。
: 想請問有沒有甚麼指令是可以分割CSV檔案並輸出的？
: 圖片說明如下 (我的原始檔案很大，所以我做了一組4*4方陣舉例)
: https://i.imgur.com/tGvhHga.jpg