ggplot2绘制美国分散区域地图时无法添加国境线的问题排查

核心原因 #

你遇到的问题本质是坐标系范围被限制在你的分散区域图层内，导致整个美国的国境线（usa数据）超出了当前绘图的可视范围，所以看起来没显示出来。

具体来说：

• 你的shape_map只包含美国的部分分散区域，ggplot会自动根据所有图层的可见元素计算绘图范围，而后面的geom_map图层只聚焦在这些分散区域上，导致整个美国的国境线大部分都在这个范围之外，被裁剪掉了。
• 另外，你第一个geom_map的用法有点冗余，geom_map不需要手动指定long和lat——它会通过map_id关联map参数里的地图数据来自动获取坐标，这一步可能也干扰了坐标范围的计算。

修复步骤 #

这里提供两种可行的修复方案：

方案1：手动固定坐标系范围

直接指定覆盖整个美国的经纬度范围，让国境线能完整显示：

library(ggplot2)
library(dplyr)
library(maps)
load("./data.rda")

usa <- map_data("usa")
shape_map <- tbl_df(fortify(shape, region="Name"))
colnames(shape_map) <- c("long", "lat", "order", "hole", "piece", "region", "group")

# 计算美国全境的坐标范围
usa_xlim <- range(usa$long)
usa_ylim <- range(usa$lat)

ggplot() + 
  # 先画美国国境线（图层顺序不影响，但先画底层更合理）
  geom_path(data = usa, aes(long, lat, group = group), color = "black", size = 1) +
  # 画你的分散区域底图
  geom_map(data = shape_map, map = shape_map, aes(map_id = region), fill = "lightgray") +
  # 画填充的季节数据
  geom_map(data = filter(prop.test, season == "DJF"), 
           map = shape_map, 
           aes(fill = prop.mega, map_id = megaregion)) +
  # 固定坐标系范围为美国全境，用coord_fixed保证地图比例正确
  coord_fixed(xlim = usa_xlim, ylim = usa_ylim) +
  # 可选：添加主题优化
  theme_minimal()

方案2：用geom_polygon替代冗余的geom_map

去掉第一个多余的geom_map，直接用geom_polygon画分散区域，同时确保坐标系范围正确：

ggplot() + 
  geom_path(data = usa, aes(long, lat, group = group), color = "navy", size = 1) +
  geom_polygon(data = shape_map, aes(long, lat, group = group), fill = "lightgray") +
  geom_map(data = filter(prop.test, season == "DJF"), 
           map = shape_map, 
           aes(fill = prop.mega, map_id = megaregion)) +
  coord_map()  # 用coord_map保证地图投影正确，自动适配美国范围

关键注意点 #

• 图层顺序：建议先画底层元素（国境线、底图），再画上层的填充数据，避免被遮挡。
• 坐标系选择：coord_fixed适合保持比例，coord_map会用地图投影（比如墨卡托）让地图形状更准确，根据你的需求选择即可。
• geom_map的正确用法：只需要指定map_id和map参数，不需要额外传入long和lat，否则可能导致坐标计算冲突。

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