如何让gtsave不忽略gt表格的虚线边框？

问题描述 #

使用gt包创建表格时，通过以下代码设置的虚线边框在RStudio预览中正常显示，但用gtsave()保存为PNG文件后，虚线边框消失：

设置边框的代码：

tab_style(
style = cell_borders(
  sides = c("bottom"),
  color = "gray",
  weight = px(1.5),
  style = "dotted"
),
locations = cells_body(rows = c(3, 6, 9, 12, 15, 18, 21))) 

保存表格的代码：

gtsave(tab1, "tab1.png")

问题原因 #

• gt的gtsave()默认依赖webshot2（或旧版webshot）渲染PNG，这类工具基于浏览器引擎，对CSS dotted边框的渲染存在兼容性问题，当边框权重较小时，容易被解析为实线或直接丢失。
• PNG是位图格式，低分辨率下虚线的细节容易被压缩合并，导致视觉上消失。

解决办法 #

方法1：调整边框参数 #

适当调大边框权重，或改用dashed样式，提升渲染辨识度：

tab_style(
  style = cell_borders(
    sides = c("bottom"),
    color = "gray",
    weight = px(2),  # 增大边框权重
    style = "dashed" # 替换为dashed样式
  ),
  locations = cells_body(rows = c(3, 6, 9, 12, 15, 18, 21))
)

方法2：先保存为PDF再转PNG #

PDF是矢量格式，能完整保留边框样式，之后再转成PNG：

# 先保存为PDF
gtsave(tab1, "tab1.pdf")

之后可通过ImageMagick、系统预览工具等将PDF导出为PNG格式。

方法3：提高PNG渲染分辨率 #

使用gtsave()的zoom参数提升渲染倍率，减少细节丢失：

gtsave(tab1, "tab1.png", zoom = 3)

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