R中用openxlsx的loadworkbook操作Excel后图表丢失，如何保留？

问题根源 #

openxlsx包基于libxlsxwriter库开发，本身不支持读取或保留Excel中的图表、形状、宏等非数据类对象，所以用它加载带图表的工作簿并保存后，原有图表会被清除。

可行解决方案 #

方案1：使用openxlsx2包（推荐，纯R实现无需额外依赖）

openxlsx2是openxlsx的继任版本，支持保留Excel中的图表对象：

• 安装包：

  install.packages("openxlsx2")
  

• 完整操作代码：

  # 加载包
  library(openxlsx2)
  
  # 加载现有工作簿
  wb <- load_workbook("~/Desktop/你的文件名.xlsx")
  
  # 将dataframe写入指定工作表（可调整startRow/startCol控制写入位置）
  write_data(wb, sheet = "目标工作表名称", x = 你的dataframe对象, startRow = 1, startCol = 1)
  
  # 保存工作簿（overwrite=TRUE允许覆盖原文件）
  save_workbook(wb, "~/Desktop/保存后的文件名.xlsx", overwrite = TRUE)
  

方案2：使用XLConnect包（依赖Java环境）

XLConnect基于Apache POI库，支持处理Excel中的各类非数据对象，但需要提前安装Java运行环境：

• 安装包：

  install.packages("XLConnect")
  

• 完整操作代码：

  # 加载包
  library(XLConnect)
  
  # 加载现有工作簿（create=FALSE表示不创建新文件）
  wb <- loadWorkbook("~/Desktop/你的文件名.xlsx", create = FALSE)
  
  # 写入数据到指定工作表
  writeWorksheet(wb, data = 你的dataframe对象, sheet = "目标工作表名称", startRow = 1, startCol = 1, header = TRUE)
  
  # 保存工作簿
  saveWorkbook(wb)
  

注意事项 #

• 使用XLConnect前需确保系统已安装Java，若未安装需先下载对应版本的Java Runtime Environment（JRE）。
• 写入数据时注意目标工作表的位置，避免误覆盖重要数据。

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