小编Eri*_*kaD的帖子

我想在放置在谷歌底图上的 geom_sf 多边形图层上使用自定义符号和注释。最初，我很难正确排列底图和多边形

所以我使用了Stack Overflow 解决方案来修复它。现在底图和多边形图层对齐

但我想要使用 geom_image 的自定义符号和使用注释的标签。未修改的底图和带有自定义符号的注释图层可以正常工作

下面我扩展了 andyteucher 和 user1453488 的代码，并添加了我想要使用的 geom_image 和 annotate 函数。

我通过使用 sf 包进行绘图尝试了替代解决方案，但我无法弄清楚如何在具有纬度和经度的绘图上使用自定义符号。我的实际数据有纬度和经度。尽管我更熟悉 ggmap，但我愿意接受替代解决方案。

您知道如何将谷歌底图、具有精确投影的多边形图层、自定义符号（从具有地理坐标的数据框生成）和标签放在同一张地图上吗？谢谢。

# code modified and expanded from andyteucher's solution
library(ggplot2)
library(ggmap)
library(sf)
library(ggimage)

#load shapefile with sf package
nc <- st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

# Transform nc to EPSG 3857 (Pseudo-Mercator, what Google uses)
nc_3857 <- st_transform(nc, 3857)

map <- get_map("north carolina", maptype = "satellite", zoom = 6, source = "google")

# display …