使用R中的循环将多个数据帧输出到多个excel文件

Question

我正在使用R中的xlsx包并设置一个循环，其中创建了许多数据帧，并且无法编写代码以将每个数据帧从循环的迭代输出到单独命名的excel文件..我正在尝试做什么..

data1 <- function(58) # Cannot disclose the function
write.xlsx(data.frame(data1),"data1.xlsx", sheetName="Sheet1")

data2 <- function(59) 
write.xlsx(data.frame(data2),"data2.xlsx", sheetName="Sheet1")

data1 <- function(60)
write.xlsx(data.frame(data3),"data3.xlsx", sheetName="Sheet1") 

Answer 1

使用循环将它们另存为单独的Excel文件

<ol style="list-style-type:lower-alpha">
  <li>item1</li>
  <li>item2</li>
  <li>item3</li>
  <li>item4</li>
</ol>

作为单独的工作表附加在同一个Excel工作表中

 for(i in seq_along(df.list)) {
   write.xlsx(df.list[[i]], paste(names(df.list)[i], ".xlsx"))
 }

数据

 for(i in seq_along(df.list)) {
   write.xlsx(df.list[[i]], "Final.xlsx", sheetName=paste(names(df.list)[i]), append=TRUE)
 }