如何在giscoR地图的ggplot2可视化中添加数据点标签？

问题描述 #

使用giscoR绘制英国及爱尔兰的地图后，通过ggplot2成功添加了经纬度点位，但调用geom_text()添加标签时触发报错；而在不含giscoR地图的纯ggplot2绘图中，相同的标签代码可正常运行。

原代码及报错信息 #

# 加载包等准备步骤
library("ggplot2")
library(sf)

# 研究区域底图
library(giscoR)
map <- gisco_get_countries(country = c("UK", "Ireland"))

# 位置数据存入数据框
data <- LOCATION

LOCATION
   Number Latitude Longitude
1    L-1    53.01     -9.04
2    L-2    53.00     -9.02
3    L-3    52.52     -8.53
4    L-4    54.18     -2.80
5    S-1    54.10     -2.10
6    S-2    54.21     -2.51

# 给底图添加点位 - 这部分正常运行
SITEMAP <- ggplot() +
  geom_sf(data = map)+
  geom_point(data = LOCATION, aes(x = Longitude, y = Latitude))
SITEMAP

# 尝试给底图添加点位标签
SITEMAP2 <- ggplot() +
  geom_sf(data = map)+
  geom_point(data = LOCATION, aes(x = Longitude, y = Latitude))+
  geom_text(aes(label=Number))
SITEMAP2

# 返回报错：
Error in `geom_text()`:
! Problem while computing aesthetics.
ℹ Error occurred in the 3rd layer.
Caused by error:
! object 'Number' not found

解决方案 #

报错原因是geom_text()未指定数据源data = LOCATION：你的ggplot()初始化时未传入全局数据源，geom_point()明确指定了使用LOCATION数据，但geom_text()默认继承上层无数据源的状态，因此找不到Number列。

修正代码（方式一） #

给geom_text()明确指定数据源和完整的美学映射：

# 正确添加标签的代码
SITEMAP2 <- ggplot() +
  geom_sf(data = map)+
  geom_point(data = LOCATION, aes(x = Longitude, y = Latitude))+
  geom_text(data = LOCATION, aes(x = Longitude, y = Latitude, label = Number))
SITEMAP2

优化写法（方式二） #

将点位数据源设为全局，减少重复指定（注意地图层需关闭美学继承）：

SITEMAP2 <- ggplot(data = LOCATION, aes(x = Longitude, y = Latitude)) +
  geom_sf(data = map, inherit.aes = FALSE)+ # 避免地图层继承点位的x/y映射
  geom_point()+
  geom_text(aes(label = Number))
SITEMAP2

额外优化 #

若标签与点位重叠，可通过nudge_x/nudge_y调整标签位置：

geom_text(data = LOCATION, aes(x = Longitude, y = Latitude, label = Number), 
          nudge_x = 0.1, nudge_y = 0.1) # 根据实际需求调整偏移量

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