r - 在R中的openxlsx中将一行文本添加到Excel工作表

Question

考虑以下代码：

install.packages("openxlsx") library(openxlsx) d <- data.frame(replicate(2,sample(0:1,10,rep=TRUE))) write.xlsx(d, "test.xlsx")

但是，我想在 Excel 工作表的顶部添加一行文本。我知道我可以使用cat(paste0(), file = )write.table，但我不确定使用 openxlsx。

谁能帮我？

标签： rexport

Answer 1

您可以将“文本”写入工作簿，就像将数据写入工作簿一样。

library(openxlsx)

d <- data.frame(replicate(2,sample(0:1,10,rep=TRUE)))

wb <- createWorkbook()
addWorksheet(wb, "Sheet1")

writeData(wb, "Sheet1", "This is an example", startCol = 1, startRow = 1)
writeData(wb, "Sheet1", d, startCol = 1, startRow = 3, rowNames = TRUE)

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

上面的代码生成以下 Excel 文件：