R语言高德路径规划

1.调用高德API路径规划接口

2.加载相应的R包

3.编写函数运行代码

##主体代码如下：

方式1.输入地址名称数据进行规划

#强制地理编码

本次路径规划代码如下，地理编码程序见其他文章

routes2=fromJSON(paste0('https://restapi.amap.com/v3/direction/walking?origin=',s_pnt,'&destination=',e_pnt,'&key=',key))
dis=routes2$route$paths$distance
dur=routes2$route$paths$duration

方式2.输入高德经纬度数据进行规划

###通过传入经纬度实现高德路径规划
library(jsonlite)
library(htmltools)
library(readr)
library(readxl)
library(tidyr)
df=read.csv('D:/sy/wz/fenxijieguo.csv')  #
parks=unite(df,'park',gcj02_lon,gcj02_lat,sep=',')
school=unite(df,'schools',gc_lon,gc_lat,sep=',',remove=FALSE)
location=data.frame(qidian=school$schools,zhongdian=parks$park)
is.character(location$qidian)
distancelist=list()
durationlist=list()
startlist=list()
endlist=list()
for (i in 1:nrow(location)) {
  st=location[i,1]
  end=location[i,2]
  routeline=fromJSON(paste0('https://restapi.amap.com/v3/direction/walking?origin=',s_pnt,'&destination=',e_pnt,'&key=',key))
  distance=routeline$route$paths$distance
  duration=routeline$route$paths$duration
  startlist[i]=st
  endlist[i]=end
  distancelist[i]=distance
  durationlist[i]=duration
}
##清洗数据格式列表输出数据。