使用R中的循環輸出多個數據幀到多個excel文件

Question

我在R中使用xlsx軟件包，並且在創建許多數據幀的位置有一個循環設置，並且無法編寫代碼以從迭代中輸出每個數據幀循環到一個單獨命名的Excel文件的..below是什麼，我試圖做...

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

爲了將其保存爲單獨使用循環

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

要追加爲單獨的表excel文件在同一張Excel表格中

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

數據

df1 <- data.frame(x=c(1,2,3),y=c(4,5,6)) 
df2 <- data.frame(x=c(3,2,1),y=c(6,5,4)) 
df.list<-list(df1,df2) # make a list of the dataframes 
names(df.list)<-c("DF1","DF2") # if they don't have names, create names