(Acest articol a fost publicat pentru prima dată pe r.iresmi.netși cu amabilitate a contribuit la R-bloggeri). (Puteți raporta problema legată de conținutul acestei pagini aici)
Doriți să vă distribuiți conținutul pe R-bloggeri? dați clic aici dacă aveți un blog, sau aici dacă nu aveți.
Ziua 13 din 30DayMapChallenge: « Harta de 10 minute » (anterior).
Unde poți merge în 10 minute (cu mașina) de Les Minutes?
library(osrm) library(leaflet) library(glue)
Date
Folosim {osrm} pentru a construi izocrona. Serviciul se bazează pe datele OpenStreetMap.
loc <- c(4.1485138, 45.8725235)
isochrone <- osrmIsochrone(loc = loc,
breaks = 10, res = 50)
Uşor…
Hartă
De asemenea, ușor și rapid cu {leaflet}.
isochrone |>
leaflet() |>
addTiles(attribution = glue("r.iresmi.net – {Sys.Date()}. Data OSRM & © OpenStreetMap, ODbL ; Fix the map")) |>
addPolygons() |>
addAwesomeMarkers(lng = loc(1), lat = loc(2))
Figura 1: Unde poți merge în 10 minute (cu mașina) de Les Minutes?
În mai puțin de 10 minute…
