使用 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。