如何为ggOceanMaps绘制的地图数据点添加无框无白边名称标签

要给北大西洋地图的 data 点添加无白色边框/外框的名称标签，核心是用ggplot2的geom_text()而非geom_label()（后者默认带背景框），结合ggOceanMaps的底图逻辑即可实现。以下是完整代码示例：

# 加载依赖包
library(ggOceanMaps)
library(ggspatial)
library(dplyr)

# 假设已合并好的数据集为 combined_data，包含 lon(经度)、lat(纬度)、Name(名称)字段
# 绘制北大西洋底图（经纬度范围可按需调整）
basemap(limits = c(-80, 20, 30, 80), bathymetry = TRUE) +
  # 可选：绘制数据点
  geom_point(data = combined_data, aes(x = lon, y = lat), color = "darkred", size = 2) +
  # 添加无框名称标签
  geom_text(data = combined_data, aes(x = lon, y = lat, label = Name),
            color = "black",
            size = 3,
            nudge_x = 1.2, nudge_y = 0.6, # 微调标签位置避免遮挡数据点
            fontface = "bold")

关键细节 #

• 禁用geom_label()：该函数默认生成带白色背景框的标签，完全不符合需求；geom_text()仅绘制纯文本，无任何边框或背景。
• 标签重叠处理：如果多个标签挤在一起，可额外安装ggrepel包用geom_text_repel()自动避重，示例代码：

library(ggrepel)

basemap(limits = c(-80, 20, 30, 80)) +
  geom_point(data = combined_data, aes(x = lon, y = lat), color = "darkred", size = 2) +
  geom_text_repel(data = combined_data, aes(x = lon, y = lat, label = Name),
                  color = "black", size = 3,
                  box.padding = 0.4, force = 1.5)

• 样式自定义：通过color、size、fontface等参数可自由调整标签的颜色、字号、字体粗细。

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