ggmap строит границу / периметр вокруг некоторых широт и длинных точек - PullRequest
0 голосов
/ 07 января 2020

Я пытаюсь создать карту, похожую на здесь . Я собрал 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")
...