R语言裁剪SVG透明空白且保留alpha通道的实现方法求助

格式化后的提问内容 #

我需要裁剪SVG文件周边的空白（此处为透明空间），暂未找到适配的简单实现方案。已尝试knitr::plot_crop()和magick::image_trim()两种方法，均未达到预期效果：两种方法的输出都会移除alpha图层，导致背景变为白色。

测试用示例SVG可从以下链接获取：https://freesvg.org/crossed-onions，点击「Download」即可下载。

原始文件效果：

knitr方案测试代码：

knitr::plot_crop("~/Downloads/onions-pd.svg")

输出效果如下：

Imagemagick（magick包）方案测试代码：

library(magick)
img = image_read("~/Downloads/onions-pd.svg")
img = image_trim(img)
image_write(img,"~/Downloads/onions-pd.svg",format="svg")

输出效果如下：

求可实现裁剪SVG透明空白、同时保留透明背景的R语言可行方案。

解决方案 #

方案1：修改SVG viewBox属性（推荐，矢量无损）

该方案直接解析SVG源文件，计算内容实际边界后调整根节点属性，不会修改内部图形元素，完全保留透明度和矢量特性，没有任何画质损失。
先安装依赖包：

install.packages(c("xml2", "rsvg"))

实现代码：

library(xml2)
library(rsvg)

crop_svg <- function(input_path, output_path) {
  # 读取SVG并计算内容实际尺寸
  bbox <- rsvg_dim(input_path)
  svg_doc <- read_xml(input_path)
  # 调整画布尺寸为实际内容大小
  xml_attr(svg_doc, "viewBox") <- paste(0, 0, bbox$width, bbox$height)
  xml_attr(svg_doc, "width") <- paste0(bbox$width, "px")
  xml_attr(svg_doc, "height") <- paste0(bbox$height, "px")
  # 输出裁剪后的文件
  write_xml(svg_doc, output_path)
}

# 调用示例
crop_svg("~/Downloads/onions-pd.svg", "~/Downloads/onions_cropped.svg")

方案2：修复magick调用参数

之前用magick输出白背景是因为读取SVG时默认填充了白色背景，显式指定透明背景即可保留alpha通道：

library(magick)
img <- image_read("~/Downloads/onions-pd.svg", background = "transparent")
img <- image_trim(img)
image_write(img, "~/Downloads/onions_cropped.svg", format = "svg")

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