如何将结果导出到R中的excel的不同选项卡中

Question

I have multiple data frames that I would like to export into different tabs of an excel/csv file. I'll be grouping my 15 data frames into three groups of five. This way I would have three excel sheets with five different tabs instead of 15 individual excel sheet.

To export to excel:

#fake data 
data_1<-data.frame(c(03,23,4,2))
data_2<-data.frame(c(0223,3,1,2))
data_3<-data.frame(c(0232,3,1,1))
data_4<-data.frame(c(21,23,5,6))
data_5<-data.frame(c(24,5,6,7))

#fake names
mydatasets<-c(data_1,data_2,data_3,data_4,data_5)
mytitles<-c("data1", "data2", "data3","data4", "data5")


#for loop to write out individual csv files
for (i in 1:5)) {
a <- mydatasets[i]
title<-mytitles[i]
myfile <- paste0(title, "_", ".csv")
write.csv(a, file = myfile)
               }

How do I get the above code to merge those csv files into multiple tabs of one csv file or excel file?

Answer 1

CSV files consist of only 1 sheet. An alternative would be to write to XLSX. The function xlsx::write.xlsx takes an argument sheetName :

library(xlsx)

# Use data from the question
for (i in seq_along(mydatasets)) {
  write.xlsx(x = mydatasets[i], 
             file = "myfile.xlsx", 
             sheetName = mytitles[i],
             append = TRUE)
}

Note append = TRUE to avoid overwriting the file instead of appending sheets to it.

The xlsx package depends on rJava . Using that package for the first time causes trouble sometimes – see this question for a common solution.