##

library(openxlsx)

## Create a new workbook

wb <- createWorkbook()

## Add 3 worksheets

addWorksheet(wb, sheetName = "Sheet 1")  # 自定义sheet名称

addWorksheet(wb, sheetName = "myNewSheet", tabColour = "blue")  ##给sheet标签添加颜色

addWorksheet(wb, sheetName = "mySheetName", tabColour = "#A593E0")

## 创建要写入各个sheet中的数据

dat2 <- 1:10

dat3 <- data.frame(x1= c("a","b","c"), x2=c(1,2,3), x3 = c(4,5,6))

## Write data 

writeData(wb, sheet = 1, 1:4)

writeData(wb, sheet = 2, dat2)

writeData(wb, sheet = 3, dat3)   

## 保存工作簿

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

参考资料

Alexander Walker (2017). openxlsx: Read, Write and Edit XLSX   Files. R package version 4.0.17. https://CRAN.R-project.org/package=openxlsx