r - 如何准确再现历史 ORS-Isochrones？

Question

在使用ORS - openrouteservice.org的 API 创建的历史等时线再现过程中，我遇到了分辨率问题。大约 3 年前，返回的等时线具有比今天更高的分辨率，并且没有选项可以操纵任何类型的分辨率参数（据我所知）。

ORS 历史（3 年前）：更高分辨率

今天的 ORS：较低的分辨率

library(leaflet)
library(openrouteservice)
coords <- c(9.4619375, 47.4776429)

isochrone_ors <- ors_isochrones(coords, range = 11*60)
leaflet() %>% 
  addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>% 
  addGeoJSON(geojson = isochrone_ors) %>% 
  fitBBox(isochrone_ors$bbox)

OSRM：今天

我尝试使用osrm::osrmIsochrone(). 不幸的是，这个 osrm 实现为相当低的分辨率生成了方形切割和部分分离的等时线——这与历史上的 ORS 等时线相去甚远。

注意：使用的服务器http://router.project-osrm.org/不是很稳定

options(osrm.server = "http://router.project-osrm.org/", osrm.profile = "driving") 

isochrone_osrm <- osrm::osrmIsochrone(loc = coords, breaks = c(0,11), res = 150)
leaflet() %>% 
  addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>% 
  addPolygons(data = isochrone_osrm)

你们中有人知道如何以更好的方式重现历史等时线吗？是否有更合适的包或 API？

标签： rggmaposrmtravel-time