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