r ggmap-添加叠加在地图上的注释

Question

存在有关地图图例编辑的问题（e.g.），但并不是我真正需要的。

使用ggmap，如何选择地图中的点并添加叠加在地图上的注释？输入以下代码：

{{1}}

所以现在我有一张不错的地图，上面有几点。如何在其中一个点附近写一些注释？

Answer 1

非常简单：

代码

library(ggrepel)                   # for the auto-repelling label
Map + 
    geom_point(data = Points, 
               aes(x = lon, y = lat),
               size = 3) +
    geom_label_repel(data = Points, 
                     aes(x = lon, y = lat, label = name),
                     size = 3,
                     vjust = -2,
                     hjust = 1)

数据

library(tmaptools)                 # for the geocode lookup
library(ggmap)
santiago_coords <- rbind(as.numeric(paste(geocode_OSM("Santiago, Chile")$coords))) 
Map <- get_map(location = santiago_coords, zoom = 6, maptype = "terrain")
Map <- ggmap(Map)
Points <- data.frame(lon=c(-71.82718,-71.31263),
                     lat=c(-34.36935,-34.29322),
                     name=c("Location One", "Location Two"))