Я пытаюсь создать карту, похожую на здесь . Я собрал geocode
для нескольких соседних улиц и пытаюсь построить границу в соответствии с этими значениями. По сути, я пытаюсь повторить сюжет на картинке (красная граница). Как я могу go о размещении границы на текущем ggmap
графике?
Код:
library(ggmap)
register_google(key = "mykey")
Madrid <- geocode("Madrid",source = "google")
map.Madrid <- get_map(location = Madrid, zoom = 12)
ggmap(map.Madrid)
alberto_aguilera = geocode("Alberto Aguilera")
plaza_de_alonso_martinez = geocode("Aplza de Alonso Martinez")
plza_de_colon = geocode("Plaza de Colon")
recoletos = geocode("rocoletos")
paseo_del_prado = geocode("paseo del prado")
ronda_de_atocha = geocode("ronda de atocha")
ronda_de_valencia = geocode("ronda de valencia")
glorieta_de_embajadores = geocode("glorieta de embajadores")
ronda_de_toledo = geocode("ronda de toledo")
puerta_de_toledo = geocode("puerta de toledo")
gran_via_san_francisco = geocode("gran via san francisco")
bailen = geocode("bailen")
plaza_de_espana = geocode("plaza de espana")
latlongs <- bind_rows(
alberto_aguilera,
plaza_de_alonso_martinez,
plza_de_colon,
recoletos,
paseo_del_prado,
ronda_de_atocha,
ronda_de_valencia,
glorieta_de_embajadores,
ronda_de_toledo,
puerta_de_toledo,
gran_via_san_francisco,
bailen,
plaza_de_espana)
ggmap(map.Madrid) +
stat_density_2d(data = latlongs,
aes(x = lon,
y = lat,
fill = stat(level)),
alpha = .2,
bins = 25,
geom = "polygon")