如何在ggplot2/patchwork图形中嵌入外部矢量图形？

grImport2对SVG的兼容性有限，很多复杂SVG（比如带渐变、特殊路径的文件）会解析失败，以下是几种更实用的替代方法：

方法1：用svgparser包解析SVG生成Grob #

svgparser对现代SVG的支持更完善，能直接把SVG转成grid图形对象（grob），无缝嵌入ggplot2：

library(ggplot2)
library(patchwork)
library(svgparser)
library(grid)

# 假设目标SVG已保存到本地，命名为"image.svg"
svg_grob <- read_svg("image.svg")

# 基础ggplot图形示例
p <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

# 用annotation_custom把SVG嵌入到指定位置，调整x/y范围控制大小和位置
p + annotation_custom(svg_grob, xmin=3, xmax=5, ymin=20, ymax=30)

方法2：转PDF后嵌入 #

如果SVG过于复杂，可先转成PDF（用Inkscape、Illustrator等工具，或R内的rsvg包批量转换），再嵌入：

步骤1：用rsvg把SVG转成PDF #

library(rsvg)
# 本地SVG转PDF
rsvg_pdf("image.svg", "image.pdf")

步骤2：将PDF作为矢量grob嵌入ggplot2 #

library(ggplot2)
library(grid)
library(pdftools)

# 读取PDF第一页生成grob
pdf_grob <- rasterGrob(pdf_render_page("image.pdf", page=1), interpolate=TRUE)

# 嵌入到ggplot图形中
ggplot(mtcars, aes(wt, mpg)) + 
  geom_point() +
  annotation_custom(pdf_grob, xmin=2, xmax=4, ymin=15, ymax=25)

方法3：用patchwork直接组合外部矢量图 #

patchwork支持直接把PDF/SVG文件作为独立面板组合，不用提前转成grob：

library(ggplot2)
library(patchwork)

# 基础ggplot图形
p1 <- ggplot(mtcars, aes(wt, mpg)) + geom_point()

# 把PDF文件作为第二个面板组合，plot_spacer()用来占位调整布局
p1 + plot_spacer() + pdf("image.pdf") + plot_layout(ncol=2)

注意事项 #

• 确保SVG/PDF是纯矢量格式，没有栅格化元素，才能保证出版级清晰度。
• 调整annotation_custom的xmin/xmax/ymin/ymax参数可以控制嵌入图形的位置和大小。
• 使用rsvg包前，Linux/macOS需确保系统安装了librsvg库，Windows可直接装预编译包。

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