你知道从广州南站去珠江新城怎么走么?今天就让我们一起使用 R 语言调用高德地图的地理编码(地址转经纬度)接口和路径规划接口来回答这个问题。
准备工作
注册高德地图,创建应用添加 Key(注意申请 Key 的时候服务平台应该选择“Web 服务”)。
- 高德地图创建应用页面链接:https://lbs.amap.com/dev/key/app
- 高德地图开发者文档 - 地理/逆地理编码:https://lbs.amap.com/api/webservice/guide/api/georegeo
- 高德地图开发者文档 - 路径规划:https://lbs.amap.com/api/webservice/guide/api/direction
从广州南站去往珠江新城
首先加载下面的操作中需要的 R 包:
library(jsonlite)
library(magrittr)
library(sf)
library(tidyverse)
设定高德地图密钥:
key "amap.key")
设定我们的起止点:
start = "广州南站"
end = "广州珠江新城"
进行路径规划前我们先要把地址转换成经纬度:
# 查询起始点的经纬度
fromJSON(paste0('https://restapi.amap.com/v3/geocode/geo?address=', start, '&key=', key)) -> start
start$geocodes$location -> start
start
#> [1] "113.267080,22.988342"
fromJSON(paste0('https://restapi.amap.com/v3/geocode/geo?address=', end, '&key=', key)) -> end
end$geocodes$location -> end
end
#> [1] "113.327343,23.119274"
下面我们进行步行规划:
route "https://restapi.amap.com/v3/direction/walking?origin=", start, "&destination=", end, "&key=", key))
# 距离
route$route$paths$dis