如何在R绘图中嵌入SVG？grImport2有哪些替代方案？

• grImport2兼容性失效：该包自2017年归档后未再维护，当前R版本（4.0+）的grid绘图系统已进行多次底层更新，旧包的SVG解析逻辑无法适配新环境，触发死循环。
• ChemDraw SVG的特殊性：ChemDraw导出的SVG常包含非标准结构（如冗余群组、自定义路径属性、特殊命名空间），grImport2的旧解析器对这类元素的处理逻辑存在缺陷，进而导致无限循环。

以下方案均支持批量处理200个SVG，且能配合svglite导出矢量SVG文件：

方案1：使用svgparser（推荐，保持矢量质量） #

svgparser是活跃维护的包，可直接将SVG解析为grid矢量图形对象，完美适配新R版本，且能保留化学结构的矢量属性。

示例代码 #

# 安装包
install.packages("svgparser")

# 加载依赖
library(svgparser)
library(grid)
library(svglite)

# 批量读取并排列200个SVG
svg_paths <- list.files("your/svg/directory", pattern = "\\.svg$", full.names = TRUE)

# 创建SVG输出文件
svglite("all_chemical_structures.svg", width = 20, height = 15)
grid.newpage()
# 设置20行10列的布局
layout <- grid.layout(nrow = 20, ncol = 10)
pushViewport(viewport(layout = layout))

# 循环添加每个化学结构
for (idx in seq_along(svg_paths)) {
  row <- ceiling(idx / 10)
  col <- ifelse(idx %% 10 == 0, 10, idx %% 10)
  # 解析SVG为grid grob
  chem_grob <- svg_parse(svg_paths[idx])
  # 定位到对应布局区域并绘制
  pushViewport(viewport(layout.pos.row = row, layout.pos.col = col))
  grid.draw(chem_grob)
  popViewport()
}

popViewport()
dev.off()

方案2：使用magick（兼容复杂SVG） #

magick基于ImageMagick，能处理各类SVG（包括ChemDraw导出的特殊格式），可将SVG转为grid对象后添加到绘图中。

示例代码 #

# 安装包
install.packages("magick")

# 加载依赖
library(magick)
library(grid)
library(svglite)

# 批量处理
svg_paths <- list.files("your/svg/directory", pattern = "\\.svg$", full.names = TRUE)

svglite("batch_chem_plot.svg", width = 20, height = 15)
grid.newpage()

# 20行10列排列
for (row in 1:20) {
  for (col in 1:10) {
    idx <- (row - 1) * 10 + col
    if (idx > length(svg_paths)) break
    # 读取SVG并转为grid对象
    svg_img <- image_read(svg_paths[idx])
    chem_grob <- rasterGrob(svg_img, width = unit(1.8, "cm"), height = unit(1.8, "cm"))
    # 定位绘制
    grid.draw(chem_grob, x = col / 10 + 0.05, y = 1 - row / 20 - 0.05)
  }
}

dev.off()

方案3：使用ggplot2 + ggimage（适合统计绘图场景） #

若需将化学结构与统计数据结合，ggimage可直接在ggplot中批量添加SVG图像，代码简洁易维护。

示例代码 #

# 安装包
install.packages(c("ggplot2", "ggimage"))

# 加载依赖
library(ggplot2)
library(ggimage)
library(svglite)

# 构造包含SVG路径和位置的数据框
df <- data.frame(
  x = rep(1:10, 20),
  y = rep(20:1, each = 10),
  svg_path = list.files("your/svg/directory", pattern = "\\.svg$", full.names = TRUE)
)

# 生成绘图并保存
p <- ggplot(df, aes(x = x, y = y)) +
  geom_image(aes(image = svg_path), width = 0.8) +
  theme_minimal() +
  theme(axis.text = element_blank(), axis.title = element_blank())

svglite("ggplot_chem_structures.svg", width = 15, height = 20)
print(p)
dev.off()

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