如何在patchwork中对齐使用coord_sf的嵌入地图？

问题根源 #

使用coord_sf()时，ggplot会为地理坐标生成额外的轴刻度、标签元素，导致patchwork的inset_element()默认的align_to="panel"无法精准识别绘图面板的实际边界，而是把包含轴元素的整个区域作为对齐参考，最终造成嵌入图位置偏移。

解决方案 #

方案1：关闭坐标扩展+调整对齐参考

通过关闭主图坐标的扩展留白，同时将对齐参考改为整个绘图区域，手动微调位置参数实现精准对齐：

library(ggplot2)
library(patchwork)

# 主图（替换为你的sf地图数据）
p1 <- ggplot(iris) +
  geom_point(aes(x = Sepal.Length, y = Sepal.Width)) +
  coord_sf(expand = FALSE)  # 关闭坐标扩展，让绘图区域完全贴合面板

# 嵌入图（简化主题减少冗余元素）
p2 <- ggplot(iris) +
  geom_histogram(aes(x = Petal.Width)) +
  coord_sf(expand = FALSE) +
  theme_minimal() +
  theme(axis.title = element_blank(), axis.text = element_blank())

# 调整位置参数，使嵌入图贴合主图左上角
p1 + inset_element(p2, left = 0.02, bottom = 0.6, right = 0.42, top = 0.98, 
                   clip = TRUE, align_to = "plot")

方案2：用wrap_elements强制面板对齐

如果需要严格对齐主图的面板边界，可使用wrap_elements()包裹嵌入图，强制其适配面板区域：

library(ggplot2)
library(patchwork)

p1 <- ggplot(iris) +
  geom_point(aes(x = Sepal.Length, y = Sepal.Width)) +
  coord_sf()

p2 <- ggplot(iris) +
  geom_histogram(aes(x = Petal.Width)) +
  coord_sf() +
  # 隐藏嵌入图的轴元素，避免干扰对齐
  theme(axis.title = element_blank(), 
        axis.text = element_blank(),
        axis.ticks = element_blank())

# 用wrap_elements限定嵌入图的面板范围，再嵌入主图
p1 + inset_element(wrap_elements(p2), 0, 0.6, 0.4, 1, clip = TRUE, align_to = "panel")

额外提示 #

• 嵌入图尽量简化主题，隐藏不必要的轴元素、图例，避免占用额外空间导致对齐偏差。
• 若使用真实空间数据，确保主图与嵌入图的coord_sf()参数（如CRS坐标系）保持一致，防止缩放比例不一致。

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