如何在R语言中使用geom_label_repel为ggmap上的点添加标签？

没问题！我刚好做过类似的需求，用geom_label_repel在ggmap上给酒店点加名称标注非常实用，还能完美解决你之前遇到的「点大小无法统一」的问题，下面是具体步骤：

1. 准备所需包 #

首先要确保安装并加载三个核心包：ggmap（获取地图底图）、ggplot2（绘图基础）、ggrepel（提供不重叠的标签功能）：

install.packages(c("ggmap", "ggplot2", "ggrepel"))
library(ggmap)
library(ggplot2)
library(ggrepel)

2. 构造你的数据框（示例） #

假设你的数据框结构和下面的示例一致，包含酒店名称、经度、纬度：

# 替换成你自己的真实数据
hotels_df <- data.frame(
  hotel_name = c("海景大酒店", "城中商务酒店", "山景度假酒店", "河畔精品酒店", "机场快捷酒店"),
  lon = c(116.4074, 116.4123, 116.3850, 116.4321, 116.5872),
  lat = c(39.9042, 39.9100, 39.9250, 39.8900, 39.9450)
)

3. 获取地图底图 #

用get_map获取目标区域的地图，这里以数据中心点为基准，你可以替换成自己需要的位置或坐标：

# 获取地图（zoom和maptype可根据需求调整）
my_map <- get_map(
  location = c(lon = mean(hotels_df$lon), lat = mean(hotels_df$lat)),
  zoom = 12,
  maptype = "roadmap"
)

4. 绘制带标注的地图 #

重点来了：不要把hotel_name放进geom_point的aes()里，这样所有点就能保持统一的大小和颜色；然后用geom_label_repel自动生成不重叠的酒店名称标注：

ggmap(my_map) +
  # 绘制统一样式的酒店点位
  geom_point(
    data = hotels_df,
    aes(x = lon, y = lat),
    color = "#e74c3c",  # 自定义点颜色
    size = 4,           # 统一点大小
    alpha = 0.7         # 点的透明度
  ) +
  # 添加自动避重的酒店名称标注
  geom_label_repel(
    data = hotels_df,
    aes(x = lon, y = lat, label = hotel_name),
    size = 3,           # 标注文字大小
    box.padding = 0.5,  # 标签与点的距离
    point.padding = 0.3,# 点与标签边框的距离
    color = "#2c3e50",  # 标注文字颜色
    fill = "white",     # 标签背景色
    segment.color = "gray"  # 连接点和标签的线段颜色
  ) +
  labs(title = "酒店位置分布图", x = "经度", y = "纬度")  # 添加标题和坐标轴标签

关键注意点 #

• 之前你遇到的「点大小不一致」问题，是因为把hotel_name放到了aes()里，ggplot会默认把它当作分组变量，导致每个组的点样式可能变化；现在把点的样式参数（color、size）放在aes()外面，就能强制所有点保持一致。
• geom_label_repel会自动调整标签位置，避免互相重叠，如果你的酒店分布很密集，可以尝试调整box.padding、point.padding或者size参数来优化显示效果。

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