如何用R的openxlsx包为Excel批注添加填充色及背景图？

核心结论 #

openxlsx的createComment()和writeComment()不支持设置批注背景色——该包仅会同步字体类样式（如字体颜色、字号），批注容器的填充色会被直接忽略，这和你观察到的代码运行结果一致。

可行方案：直接修改Excel的XML结构 #

Excel本质是压缩的XML文件集合，批注的样式信息存储在工作表的XML文件中。我们可以通过手动修改XML来实现背景色设置，步骤如下：

1. 用openxlsx生成带批注的基础工作簿并保存
2. 解压xlsx文件，定位到对应工作表的批注XML节点
3. 修改XML代码添加背景色配置
4. 重新打包为xlsx文件

示例代码：

library(openxlsx)
library(zip)

# 1. 生成带批注的工作簿
wb <- createWorkbook()
addWorksheet(wb, "Sheet 1")
# 先创建基础批注（无需设置无效的fill样式）
c1 <- createComment(comment="This is a comment with custom background.")
writeComment(wb, sheet = 1, col = 1, row = 2, comment = c1)
temp_file <- tempfile(fileext = ".xlsx")
saveWorkbook(wb, temp_file, overwrite = TRUE)

# 2. 解压xlsx到临时目录
temp_dir <- tempdir()
unzip(temp_file, exdir = temp_dir)

# 3. 读取工作表XML文件
sheet_xml_path <- file.path(temp_dir, "xl", "worksheets", "sheet1.xml")
sheet_content <- readLines(sheet_xml_path)

# 4. 插入背景色配置：找到批注节点，添加fill属性
# 这里将背景色设为#FF5733（XML中rgb值为无#的大写字符串）
sheet_content <- gsub(
  '<comment author="" shapeId="0">',
  '<comment author="" shapeId="0"><shape><fill><solidFill><rgb rgb="FF5733"/></solidFill></fill></shape>',
  sheet_content
)

# 5. 写回修改后的XML并重新打包
writeLines(sheet_content, sheet_xml_path)
zip(temp_file, files = list.files(temp_dir, recursive = TRUE), root = temp_dir)

# 可打开文件查看效果
# openXL(temp_file)

关于批注背景图的实现思路 #

如果要添加背景图，逻辑类似：

• 先将图片嵌入到Excel的xl/media目录
• 在工作表XML的批注<shape>节点中添加<blipFill>元素，关联图片的ID
• 同步修改xl/drawings/_rels目录下的关系映射文件

这个过程更繁琐，建议先手动在Excel中创建带背景图的批注，解压后参考其XML结构来编写修改逻辑。

注意事项 #

• 不同Excel版本的XML结构可能略有差异，建议先手动生成目标样式的批注，解压后对照调整代码
• 批量处理多个批注时，需要循环定位每个<comment>节点并修改
• 临时文件操作完成后可根据需要删除临时目录文件

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