将数据文件拆分为多个

Question

我目前正在使用工具箱，因此面板数据必须包含在每个国家/地区的CSV文件中。我在一个CSV文件中有一个60个国家小组，用于1980-2014季度数据。而不是手动复制它我想使用循环例程。 这就是我试图做的事情：

 mydata<-read.csv("regression.csv")
 value<-split(mydata, mydata$country, drop=FALSE)

据我所知，我需要使用lapply将数据导出为60个CSV文件。 有人可以帮我这个吗？

Answer 1

我们使用names遍历list元素的lapply，使用substr获取名称的前7个字符，并使用它来创建文件名write.csv

lapply(names(value), function(x) write.csv(value[[x]],
      file=paste0(substr(x, 1,7), '.csv'), quote=FALSE, row.names=FALSE))