使用ggimage导入SVG图标遇像素化及变形问题的解决咨询

问题背景 #

我使用ggimage工具基于SVG制作图标，in.svg内容如下：

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<svg
   version="1.1"
   x="0px"
   y="0px"
   viewBox="0 0 100 100"
   xml:space="preserve"
   style="enable-background:new 0 0 100 100;"
   xmlns="http://www.w3.org/2000/svg"
   xmlns:svg="http://www.w3.org/2000/svg"><defs
     id="defs1" /><path
     d="m 56.215759,24.245239 2.723511,-3.026123 c 1.063416,0.750855 2.304382,1.141236 3.553894,1.141236 1.583008,0 3.165039,-0.602539 4.370117,-1.807618 2.40918,-2.410156 2.40918,-6.332031 0,-8.742187 -2.410156,-2.4101562 -6.330078,-2.4101562 -8.740234,0 -2.179199,2.179199 -2.367798,5.583618 -0.606201,7.999634 l -3.096131,3.440246 c -46.999406,-0.760793 24.296811,25.305901 1.795044,0.994812 z m 3.32135,-11.02063 c 0.81543,-0.814453 1.885743,-1.222656 2.956055,-1.222656 1.070313,0 2.140625,0.408203 2.956055,1.222656 1.628906,1.63086 1.629883,4.283203 0,5.914063 -1.63086,1.628906 -4.28125,1.628906 -5.91211,0 -1.630859,-1.63086 -1.630859,-4.283203 0,-5.914063 z" /></svg>

初始绘图代码：

# 绘制圆圈的自定义函数
gg_circle <- function(r, xc, yc, color="black", fill=NA, ...) {
  x <- xc + r*cos(seq(0, pi, length.out=100))
  ymax <- yc + r*sin(seq(0, pi, length.out=100))
  ymin <- yc + r*sin(seq(0, -pi, length.out=100))
  annotate("ribbon", x=x, ymin=ymin, ymax=ymax, color=color, fill=fill, ...)
}

df = data.frame(x = c(0,1), y = c(0,1))
df2 = data.frame(x = c(0.5), y = c(.5))
image = "in.svg"
ggincon = ggplot(df, 
                 aes(x=x, y=y)) + 
  gg_circle(r=0.05, xc=0.5, yc=0.5, color=NA, 
            fill='#F4F44F', 
            alpha=1) +
  ggimage::geom_image(data = df2, 
                      mapping = aes(x,y,image = image),
                      colour = '#FA434F', 
                      size = .7) + 
  coord_fixed() + 
  theme_void();ggincon

遇到的问题：导入后图标出现像素化；用magick in.svg -resize 1200x1200 -gravity center out.svg缩放SVG后，分辨率问题解决但曲线出现锯齿。需要找到正确的导入方式，既无像素化，也不改变图形原有形状。

解决方案 #

方案1：使用geom_sf导入矢量SVG（推荐） #

ggimage::geom_image会将SVG栅格化导致像素化，而sf包可以直接读取SVG矢量数据，配合geom_sf渲染，完全保留矢量清晰度，且不会产生锯齿。

完整代码

library(ggplot2)
library(sf)

# 自定义圆圈绘制函数（保留原有逻辑）
gg_circle <- function(r, xc, yc, color="black", fill=NA, ...) {
  x <- xc + r*cos(seq(0, pi, length.out=100))
  ymax <- yc + r*sin(seq(0, pi, length.out=100))
  ymin <- yc + r*sin(seq(0, -pi, length.out=100))
  annotate("ribbon", x=x, ymin=ymin, ymax=ymax, color=color, fill=fill, ...)
}

# 读取SVG为矢量对象
svg_sf <- sf::read_svg("in.svg")

# 调整SVG的位置和大小，匹配ggplot坐标系统
# 原SVG viewBox为100x100，缩放至size=0.7的比例（0-1坐标范围）
scale_factor <- 0.007
# 平移至(0.5,0.5)中心位置
svg_sf <- svg_sf %>% 
  st_transform(st_identity() * scale_factor + c(0.5 - 0.35, 0.5 - 0.35))

# 绘图
df = data.frame(x = c(0,1), y = c(0,1))
ggplot(df, aes(x=x, y=y)) +
  gg_circle(r=0.05, xc=0.5, yc=0.5, color=NA, fill='#F4F44F', alpha=1) +
  geom_sf(data = svg_sf, fill = NA, color = '#FA434F') +
  coord_fixed() +
  theme_void()

原理说明

• sf::read_svg直接读取SVG的矢量路径信息，渲染时保持矢量特性，彻底避免像素化
• 通过坐标变换精准控制SVG的缩放比例和位置，完全保留原图形形状
• 适合需要导出矢量格式（如PDF）的场景，清晰度无损失

方案2：调整geom_image的渲染分辨率 #

如果不想更换包，直接提高geom_image的渲染DPI参数，即可解决像素化问题，同时原SVG的曲线不会产生锯齿。

修改后的代码

# 保留原有自定义函数和数据
gg_circle <- function(r, xc, yc, color="black", fill=NA, ...) {
  x <- xc + r*cos(seq(0, pi, length.out=100))
  ymax <- yc + r*sin(seq(0, pi, length.out=100))
  ymin <- yc + r*sin(seq(0, -pi, length.out=100))
  annotate("ribbon", x=x, ymin=ymin, ymax=ymax, color=color, fill=fill, ...)
}

df = data.frame(x = c(0,1), y = c(0,1))
df2 = data.frame(x = c(0.5), y = c(.5))
image = "in.svg"

ggincon = ggplot(df, aes(x=x, y=y)) + 
  gg_circle(r=0.05, xc=0.5, yc=0.5, color=NA, fill='#F4F44F', alpha=1) +
  # 增加dpi参数，提高渲染分辨率
  ggimage::geom_image(data = df2, 
                      mapping = aes(x,y,image = image),
                      colour = '#FA434F', 
                      size = .7,
                      dpi = 300) + 
  coord_fixed() + 
  theme_void();ggincon

原理说明

• dpi=300（可根据需求调整为600等更高值）让ggimage在渲染SVG时使用更高分辨率的栅格化，避免像素化
• 直接基于原SVG渲染，不会像magick缩放那样产生锯齿
• 改动最小，适合快速调整，导出高分辨率栅格图（如PNG）时效果良好

内容的提问来源于stack exchange，提问作者M. Beausoleil