如何简化以下编写多个CSV文件的R代码？

Question

我想在R中输出以下数据，我想保留原名，我知道如何简化它，我认为lapply()不起作用。

write.csv(weekly_data$NO_2005_2011_all_site,'Weekly_NO_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$NO_2017_2021_all_site,'Weekly_NO_2017_2021_all_site.csv',row.names = FALSE)
write.csv(weekly_data$NO2_2005_2011_all_site,'Weekly_NO2_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$NO2_2017_2021_all_site,'Weekly_NO2_2017_2021_all_site.csv',row.names = FALSE)
write.csv(weekly_data$NOx_2005_2011_all_site,'Weekly_NOx_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$NOx_2017_2021_all_site,'Weekly_NOx_2017_2021_all_site',row.names = FALSE)
write.csv(weekly_data$O3_2005_2011_all_site,'Weekly_O3_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$O3_2017_2021_all_site,'Weekly_O3_2017_2021_all_site.csv',row.names = FALSE)
write.csv(weekly_data$PM10_2005_2011_all_site,'Weekly_PM10_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$PM10_2017_2021_all_site,'Weekly_PM10_2017_2021_all_site.csv',row.names = FALSE)
write.csv(weekly_data$PM2.5_2005_2011_all_site,'Weekly_PM2.5_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$PM2.5_2017_2021_all_site,'Weekly_PM2.5_2017_2021_all_site.csv',row.names = FALSE)
write.csv(weekly_data$SO2_2005_2011_all_site,'Weekly_SO2_2005_2011_all_site.csv',row.names = FALSE)
write.csv(weekly_data$SO2_2017_2021_all_site,'Weekly_SO2_2017_2021_all_site.csv',row.names = FALSE)

提前谢谢你。

Answer 1

在最初的文章中没有一个最小的可重复示例，下面是如何将列从mtcars数据帧写入列特定的CSV文件的示例。

基本逻辑是，一旦我们知道了数据帧名称及其列，就可以使用列名驱动lapply()函数，通过get()函数和提取操作符的[形式组合，将每一列提取成数据帧。

我们将结果转换为数据框架，以便将列名设置为x以外的其他内容。

# use mtcars data as an example
theColumns <- colnames(mtcars)
outputDirectory <- "./data/mtcarsExample/"
if(!dir.exists(outputDirectory)) dir.create(outputDirectory)
lapply(theColumns,function(x,y){
     df <- data.frame(get(y)[,x])
     colnames(df) <- x
     write.csv(df,paste0(outputDirectory,x,".csv"),row.names = FALSE)
     paste(paste0(outputDirectory,x,".csv"),"written to disk")
},"mtcars")

当lapply()函数通过数据帧中的列工作时，它将文件名写入输出列表。

​

​

...and第一个文件的输出，mtcars$am在Microsoft中查看时如下所示：

​

​