如何在R中修改数据框字体并设置Excel输出为Calibri Light 14号

需求 #

编写生成Excel输出的R脚本时，需将数据框及所有输出文本的字体设置为Calibri Light、14号字，但网上多为修改绘图可视化字体的方案，缺少针对数据框和文本的设置方法。

无效尝试 #

最初尝试以下代码，但无法生效：

calibri_light_14_style <- createStyle(fontName = "Calibri Light", fontSize = 14, textDecoration = "bold")
xl_write("Hello, world!", wb, sh, row = 1, col = 1, style = calibri_light_14_style)

可行方案 #

通过openxlsx包的addStyle函数可实现需求，代码如下：

# 创建目标样式
calibri_light_14_style <- createStyle(fontName = "Calibri Light", fontSize = 14, textDecoration = "italic")

# 为指定单元格区域应用样式
addStyle(wb, 1, style = calibri_light_14_style, rows = 2:6, cols = 1, gridExpand = TRUE)

• 关键说明：addStyle需明确指定要应用样式的单元格范围（rows和cols参数），gridExpand = TRUE会将样式扩展到整个指定区域的单元格。该方法参考了openxlsx包的格式化官方文档内容。

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