在r中使用openxlsx导出多个工作表

install.packages("openxlsx")

library(openxlsx)

wb <- createWorkbook()

addWorksheet(wb, "Sheet1")

data <- data.frame(Name = c("John", "Jane", "Mike"),
                   Age = c(25, 30, 35))
writeData(wb, sheet = "Sheet1", data, startRow = 1, startCol = 1)

addWorksheet(wb, "Sheet2")

data2 <- data.frame(City = c("New York", "London", "Tokyo"),
                    Population = c(8537673, 8908081, 13929286))
writeData(wb, sheet = "Sheet2", data2, startRow = 1, startCol = 1)

saveWorkbook(wb, "output.xlsx", overwrite = TRUE)