r - 使用 R 中的循环将数百个数据帧导出为 xlsx

Question

我在 R 中创建了数百个数据框，我想将它们导出到本地位置。所有数据帧的名称都存储在一个向量中:

name.vec<-c('df1','df2','df3','df4','df5','df5')

name.vec中的每一个都是一个数据框。我想做的是将这些数据框导出为 excel 文件，但我不想按照下面的方式执行此操作:

library("xlsx")
write.xlsx(df1,file ="df1.xlsx")
write.xlsx(df2,file ="df2.xlsx")
write.xlsx(df3,file ="df3.xlsx")

因为有数百个数据帧，这是乏味且危险的。我想要像下面这样的东西:

library('xlsx')
for (k in name.vec) {
  write.xlsx(k,file=paste0(k,'.xlsx'))
}

但这行不通。

有人知道如何实现这一目标吗？我们将非常感谢您的时间和知识。提前致谢。

Answer 1

for 循环不起作用的第一个原因是代码尝试写入单个名称(例如“df1”)作为 xlsx 文件内容，而不是数据帧。这是因为您没有将数据帧本身存储在您拥有的“name.vec”中。因此，要修复 for 循环，您必须执行类似这样的操作:

df.list<-list(df1,df2,df3)
name.vec<-c('df1','df2','df3')

library('xlsx')

for (k in 1:length(name.list)){
  write.xlsx(df.list[[k]],file=paste0(name.vec[k],'.xlsx'))
}

但是，for 循环通常比其他选项慢。所以这是另一种方法:

sapply(1:length(df.list),
       function(i) write.xlsx(df.list[[i]],file=paste0(name.vec[i],'.xlsx')))

输出是 3 个数据帧，取自 df 列表，由名称向量命名。

最好在某个时候切换到较新的软件包:writexl。