|||
##
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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-10-20 01:59
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社