使用CairoSVG导出ggplot生成的SVG时面板边框宽度不一致问题

该问题是CairoSVG的线宽对齐规则与ggplot默认面板边框的实现逻辑共同导致的：

• ggplot的panel.border默认由四条独立的线段拼接而成，并非单个闭合矩形路径
• CairoSVG渲染时默认将线的中心对齐坐标网格，当边框线宽对应奇数像素、面板坐标落在半像素位置时，四条边的一半像素会落在画布裁剪区域外
• SVG渲染器对边缘超出画布的线段裁剪逻辑不一致，就会出现底部、右侧边框视觉上更宽的问题
• 取消分组后边框宽度一致，是因为矢量编辑软件自动将四条线段合并为单个矩形路径，修正了坐标偏移，但线宽继承了CairoSVG的默认参数，因此会比默认SVG设备导出的更粗
• PDF导出无该问题是因为PDF渲染逻辑对亚像素线段的显示规则更统一，不存在SVG的边缘裁剪差异

以下三种方案均可避免手动编辑：

方案1：显式指定面板边框为矩形 #

在ggplot主题中显式用element_rect定义面板边框，同时指定逻辑线宽为偶数单位，避免半像素偏移：

figure = ggplot(mtcars, aes(x = mpg, y = disp)) + 
         geom_point() +
         theme(
           panel.border = element_rect(fill = NA, colour = "black", linewidth = 0.5)
         )

方案2：改用svglite设备导出 #

svglite设备对ggplot元素的渲染兼容性更好，同样支持特殊符号渲染，边框渲染规则与默认SVG设备一致：

# 需先安装svglite包：install.packages("svglite")
ggsave(figure, filename = "./output/figure_svglite.svg", 
       device = svglite, width = 2, height = 2)

方案3：批量自动修复CairoSVG导出的文件 #

如果必须使用CairoSVG，可通过xml2包批量修改SVG文件，自动合并四条边框线段为矩形：

# 需先安装xml2包：install.packages("xml2")
library(xml2)
fix_cairo_svg_border <- function(svg_path) {
  svg <- read_xml(svg_path)
  border_lines <- xml_find_all(svg, ".//path[contains(@style, 'stroke:#000000') and contains(@d, 'M') and string-length(@d) < 50]")
  if (length(border_lines) == 4) {
    coords <- lapply(border_lines, function(x) {
      d <- xml_attr(x, "d")
      as.numeric(strsplit(gsub("M|L|Z", "", d), " ")[[1]])
    })
    xmin <- min(sapply(coords, function(c) c[1]))
    xmax <- max(sapply(coords, function(c) c[1]))
    ymin <- min(sapply(coords, function(c) c[2]))
    ymax <- max(sapply(coords, function(c) c[2]))
    rect_d <- sprintf("M %.2f %.2f L %.2f %.2f L %.2f %.2f L %.2f %.2f Z", xmin, ymin, xmax, ymin, xmax, ymax, xmin, ymax)
    xml_remove(border_lines)
    xml_add_child(xml_find_first(svg, ".//g"), "path", d = rect_d, style = xml_attr(border_lines[[1]], "style"))
    write_xml(svg, svg_path)
  }
}

# 调用修复函数
fix_cairo_svg_border("./output/figure_cairo.svg")

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