如何在R中创建多个csv文件？

Question

我有一个.csv文件,其中包含不同染色体的数据.染色体名称存储在第一列(列名:Chr)中.我的目标是分离每个染色体的数据,即(Chr1,Chr2等),并为每个染色体制作单独的csv文件.我无法理解如何在有限的步骤中做到这一点.谢谢

Answer 1

使用plyr和数据集说明一个班轮iris

plyr::d_ply(iris, .(Species), function(x) write.csv(x, 
  file = paste(x$Species, ".csv", sep = "")))

Answer 2

1. 读数据

   fn <- dir(pattern="csv")
   data_in <- do.call(rbind,lapply(fn,read.csv))
   

2. 由染色体分裂

   data_out <- split(data_in,data_in[[1]])
   

3. 用染色体写

   chn <- unlist(lapply(data_out,"[",1,1))
   for(i in seq_along(chn)) write.csv(data_out[[i]],file=paste(chn[i],"csv",sep="."))