在 R 中的 openxlsx 中向 Excel sheet 添加一行文本

Question

考虑以下代码：

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

但是，我想在 Excel sheet 的顶部添加一行文字。我知道我可以将 cat(paste0(), file = ) 与 write.table 一起使用，但我不确定是否使用 openxlsx。

谁能帮帮我？

Answer 1

您可以像将数据写入工作簿一样将 "text" 写入工作簿。

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 文件：

在 R 中的 openxlsx 中向 Excel sheet 添加一行文本

Add a line of text to Excel sheet in openxlsx in R

export

r