如何在R中无需手动指定宽高导出无空白边距的图形？

针对你遇到的SF图形导出存在白边、无法自动提取宽高的问题，解决方案如下：

1. 正确提取SF图形的坐标范围 #

普通ggplot图形的范围存储在panel$ranges，但SF图形的参数被放在layout$panel_params中，这是你之前方法返回NULL的原因。使用以下代码获取实际的图形宽高：

p_built <- ggplot_build(plt)
# 提取SF图形的x、y轴范围
x_range <- p_built$layout$panel_params[[1]]$x_range
y_range <- p_built$layout$panel_params[[1]]$y_range

# 计算实际宽高
width_actual <- diff(x_range)
height_actual <- diff(y_range)

2. 自动导出无白边图形 #

结合提取到的宽高，使用ggsave导出时直接匹配图形内容尺寸，同时确保已设置plot.margin = margin(0,0,0,0)：

矢量图（SVG）导出 #

ggsave(
  "whatever.svg",
  plot = plt,
  width = width_actual,
  height = height_actual,
  units = "in", # 可根据需求改为"cm"或"mm"
  scale = 1,
  dpi = "retina"
)

PNG格式导出 #

ggsave(
  "whatever.png",
  plot = plt,
  width = width_actual,
  height = height_actual,
  units = "in",
  scale = 1,
  dpi = 300 # 按需调整分辨率
)

3. 额外优化 #

如果需要固定某一边的尺寸，可通过宽高比计算另一边：

aspect_ratio <- height_actual / width_actual
# 固定宽度为5英寸，高度自动匹配比例
ggsave(
  "whatever.svg",
  plot = plt,
  width = 5,
  height = 5 * aspect_ratio,
  units = "in",
  scale = 1
)

同时确认theme_void()已移除所有轴、网格元素，且plot.background的color设为NA避免出现额外边框：

plt <- ggplot(map) +
  geom_sf(linewidth = 0.2, alpha = 0.4) +
  theme_void() +
  theme(
    plot.margin = margin(0,0,0,0),
    plot.background = element_rect(fill = "yellow", color = NA), # 移除背景边框
    legend.position = "none"
  )

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