如何在r中导出多个CSV文件？ [英] How to export multiple csv file in r?

问题描述

8个CSV文件中的每个文件中都有219列。我想导出219 CSV文件，结合每个列从每个8个文件。

如何以不同名称导出多个CSV文件？？ 这是我导入CSV文件的代码。

df1<-read.csv("RSI9D.csv", header=TRUE)
df2<-read.csv("RSI30D.csv", header=TRUE)
df3<-read.csv("MKT_CAP.csv", header=TRUE)
df4<-read.csv("VOLUME.csv", header=TRUE)
df5<-read.csv("INST_HOLD.csv", header=TRUE)
df6<-read.csv("MOVAVG30.csv", header=TRUE)
df7<-read.csv("MOVAVG10.csv", header=TRUE)
df8<-read.csv("MOVAVG5.csv", header=TRUE)

正如我在上面所说的，我想导出一个组合了每个文件中的每一列的文件。由于有219列，因此总共将生成219个文件。

推荐答案

dat <- do.call(rbind, lapply(1:8, function(x)get(paste0("df", x))))

for(i in 1:ncol(dat)) write.csv(dat[,i], paste0("file_",i, ".csv"), row.names=F)

更新：

df_list <- lapply(1:8, function(x) get(paste0("df", x)))

bindFn <- function(i, df_list){
  sapply(df_list, '[[', i)
}

for(i in names(df1)) write.csv(bindFn(i, df_list), paste0("file_",i, ".csv"), row.names=F)

这篇关于如何在r中导出多个CSV文件？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！