如何用ggarrange合理布局外部SVG文件

核心思路 #

将SVG转为ggplot对象而非直接使用grob，利用ggplot的主题系统消除多余边距，再通过ggarrange布局——既能解决边界框冗余问题，又能方便添加标题、标签等元素。

修改后的代码 #

library(rsvg)
library(grImport2)
library(ggpubr)
library(ggplot2)

# 读取SVG并转为grob
rsvg_svg("https://dev.w3.org/SVG/tools/svgweb/samples/svg-files/compuserver_msn_Ford_Focus.svg", "cairo.svg")
raw <- grImport2::readPicture("cairo.svg", trim = TRUE) # 裁剪SVG自带的多余空白
grob <- grImport2::pictureGrob(raw, expansion = 0) # 取消grob的扩展边距

# 将grob转为无冗余边距的ggplot对象
svg_to_ggplot <- function(grob_obj) {
  ggplot() +
    annotation_custom(grob_obj, xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf) +
    theme_void() # 移除所有默认主题元素（坐标轴、边距、背景等）
}

# 生成6个标准化的ggplot对象
plot_list <- lapply(1:6, function(x) svg_to_ggplot(grob))

# 用ggarrange布局并添加标签
ggarrange(plotlist = plot_list, 
          labels = c("A", "B", "C", "D", "E", "F"),
          ncol = 2, nrow = 3,
          align = "hv") # 水平+垂直对齐，避免布局错位

ggsave("cairo.pdf", width = 8, height = 16)

关键调整说明 #

• readPicture(trim = TRUE)：直接裁剪SVG文件本身携带的空白区域，从源头上减少无效边界。
• pictureGrob(expansion = 0)：取消grob默认的扩展边距，避免额外空白生成。
• 转为ggplot对象：通过annotation_custom让grob充满整个绘图区域，theme_void()彻底清除ggplot默认的冗余元素，确保图片无多余边界。
• align = "hv"：让所有子图在水平和垂直方向严格对齐，提升布局整洁度。

额外优化：添加标题 #

如果需要给子图或整体加标题，直接在ggplot对象中修改即可：

# 给第一个子图添加单独标题
plot_list[[1]] <- plot_list[[1]] + 
  ggtitle("福特Focus") + 
  theme(plot.title = element_text(hjust = 0.5, face = "bold"))

# 给整体布局添加主标题
ggarrange(plotlist = plot_list, 
          labels = c("A", "B", "C", "D", "E", "F"),
          ncol = 2, nrow = 3,
          align = "hv",
          top = text_grob("SVG图片布局示例", face = "bold", size = 14))

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