Как построить несколько изохроны на карте листовки в R

Question

Я могу построить одну изохрону в R за один раз, используя пакет Rmapzen с этим кодом, каждая изохрона генерируется как объект sp, есть ли способ создать несколько изохрон на одной и той же карте, как на картинке ?

Answer 1

Это работает для меня. Немного грязно, хотя.. Не забудьте изменить ключ mapzen

library(rmapzen)
library(leaflet)
library(ggmap)
#packages

Sys.setenv(MAPZEN_KEY = "mapzen-******")
#API key

ucb <- geocode("Via Giovanni Spadolini 7, Milan, Italy")
ucb1 <- geocode("Via Valtellina 15, Milan, Italy")
#origin address

iso5 <- as_sp(mz_isochrone(
  ucb,
  costing_model = mz_costing$auto(),
  contours = mz_contours(5),
  polygons = TRUE
))
iso15 <- as_sp(mz_isochrone(
  ucb,
  costing_model = mz_costing$auto(),
  contours = mz_contours(15),
  polygons = TRUE
))
iso1_5 <- as_sp(mz_isochrone(
  ucb1,
  costing_model = mz_costing$auto(),
  contours = mz_contours(5),
  polygons = TRUE
))
iso1_15 <- as_sp(mz_isochrone(
  ucb1,
  costing_model = mz_costing$auto(),
  contours = mz_contours(15),
  polygons = TRUE
))

m = leaflet() %>%
  addProviderTiles("CartoDB.DarkMatter") %>%
  addPolygons(data = iso15, color = "green", fillColor = "green", fillOpacity = .5)%>%
  addPolygons(data = iso5, color = "blue", fillColor = "blue", fillOpacity = .5)%>%
  addPolygons(data = iso1_15, color = "green", fillColor = "green", fillOpacity = .5)%>%
  addPolygons(data = iso1_5, color = "blue", fillColor = "blue", fillOpacity = .5)
m

Answer 2

Привет можно создать несколько изохрон на карте листовки с помощью API TravelTime. Вам просто нужно установить время отправления / прибытия для каждой фигуры, вид транспорта и максимальное время в пути для изохроны. Взгляните на пример запроса и получите ключи API отсюда

(Отказ от ответственности: я работаю в компании, ответственной за создание этого API)