ggspatial geom_spatial_point底图标签不显示问题求助

核心原因 #

ggOceanMaps生成的极地投影地图（默认采用EPSG:3995北极立体投影），与你的标签数据（WGS84经纬度，EPSG:4326）坐标系不匹配。普通geom_text无法自动完成坐标转换，导致标签落在地图可视范围外，同时触发CRS假设的警告。

解决方案 #

使用ggspatial包的geom_spatial_text（对应空间版的geom_text），它会自动处理坐标系转换，同时调整部分标签的坐标到地图可视范围内：

修改后的代码 #

library(ggplot2)
library(ggOceanMaps)
library(ggspatial)

# 研究站点坐标
dt <- data.frame(lon = 31.5, lat = 75.2)

# 标签数据：调整Norway坐标到当前地图可视范围内
labels <- data.frame(
  location = c("Norway", "Svalbard", "Barents Sea", "Hopen Deep"),
  lon = c(16, 20, 30, 31.5),  # 将Norway经度从10改为16，落在limits的15-40区间内
  lat = c(71, 78, 75, 75.2)   # 将Norway纬度从60改为71，落在limits的70-80区间内
)

# 生成地图并添加空间标签
basemap(limits = c(15, 40, 70, 80), bathymetry = TRUE, rotate = TRUE) +
  ggspatial::geom_spatial_text(
    data = labels, 
    aes(x = lon, y = lat, label = location), 
    color = "black", 
    size = 4, 
    nudge_y = -0.3
  ) +
  ggspatial::geom_spatial_point(data = dt, aes(x = lon, y = lat), color = "red", size = 3)

关键调整说明 #

1. 替换geom_text为geom_spatial_text：该函数会自动识别basemap的投影坐标系，将WGS84经纬度转换为匹配的投影坐标，彻底解决CRS不匹配问题。
2. 调整Norway的坐标：原坐标(10,60)在你设置的limits = c(15,40,70,80)范围外，因此无法显示。调整后坐标落在可视区域内；若需要显示完整的Norway，可将limits改为c(5,40,60,80)。
3. 优化标签大小与偏移：根据地图比例调整size和nudge_y参数，避免标签重叠或遮挡地图元素。

其他无效方法的原因 #

• annotate：不支持空间坐标转换，无法适配极地投影。
• 调整图层顺序：问题根源是坐标不匹配，与图层顺序无关。
• geom_label：普通版本同样不处理CRS转换，需改用ggspatial::geom_spatial_label替代。

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