Я пытаюсь сопоставить маршрут, используя функцию route() в ggmap. Моя проблема в том, что маршрут не остается на дорогах. Есть что-то, что отсутствует мой код route_df <- route(origin, destination, structure = "route")
? Или есть альтернативная функция, которая может быть использована для этого?
Пример кода:
install_github("rstudio/leaflet")
library(ggmap)
library(leaflet)
way1txt <- "Tinsletown, Vancouver, BC"
way2txt <- "Science World, Vancouver, BC"
route_df <- route(way1txt, way2txt, structure = "route")
# Map using Leaflet R
m = leaflet() %>% addTiles()
m = m %>% addPolylines(route_df$lon, route_df$lat, fill = FALSE)
m = m %>% addPopups(route_df$lon[1], route_df$lat[1], 'Origin')
m = m %>% addPopups(route_df$lon[length(route_df$lon)],
route_df$lat[length(route_df$lon)], 'Destination')
m
Снимок экрана карты: