R语言向同一Excel写入多数据框时覆盖问题求助

核心问题 #

你遇到的情况是因为xlsx包的write.xlsx函数中append=TRUE参数的行为并不稳定，它并没有实现真正的追加工作表功能，反而会覆盖原有文件。另外你第二行代码里还写错了数据框（应该是df_t2而非df_t1），不过这不是覆盖的主要原因。

正确解决方案 #

方案1：使用openxlsx包（推荐，无需Java依赖）

这个包的工作表追加逻辑更可靠：

# 安装并加载包
install.packages("openxlsx")
library(openxlsx)

# 创建工作簿对象
wb <- createWorkbook()

# 添加sheet1并写入df_t1
addWorksheet(wb, "sheet1")
writeData(wb, "sheet1", df_t1, rowNames = FALSE)

# 添加sheet2并写入df_t2
addWorksheet(wb, "sheet2")
writeData(wb, "sheet2", df_t2, rowNames = FALSE)

# 保存工作簿
saveWorkbook(wb, "demo.xlsx", overwrite = TRUE)

方案2：如果坚持使用xlsx包

需要手动操作工作簿对象来实现追加：

# 加载xlsx包
library(xlsx)

# 第一次写入sheet1
write.xlsx(df_t1, "demo.xlsx", sheetName = "sheet1", rowNames = FALSE)

# 读取已有工作簿
wb <- loadWorkbook("demo.xlsx")

# 创建新工作表并写入df_t2
createSheet(wb, sheetName = "sheet2")
write.xlsx(df_t2, wb, sheetName = "sheet2", rowNames = FALSE)

# 保存修改后的工作簿
saveWorkbook(wb, "demo.xlsx")

内容的提问来源于stack exchange，提问作者Bubbles