我如何绘制从米兰到巴黎两个城市的路线？

Question

如何使用传单或几个城市绘制网络，从两个城市（如米兰到巴黎）绘制路线。

Answer 1

你可以大致这样做：

library(googleway)
library(leaflet)
key <- "********************" # Google Directions API Key
df <- googleway::google_directions("milan", "paris", "driving", key=key)
pl <- df$routes$overview_polyline$points
line <- decode_pl(pl)
bb <- sp::bbox(as.matrix(line))
leaflet() %>% 
  fitBounds(bb[2,1],bb[1,1],bb[2,2],bb[1,2]) %>% 
  addTiles() %>%
  addPolylines(data=line, lng = ~lon, lat = ~lat)

获取密钥here。