实现该功能需要先去高德开放平台注册后，创建应用添加key，然后在R工作目录下创建一个.Renviron文件，文件内容为key = ‘你的key’。

编写一个根据起点、终点和出行方式生成地图的函数 route = function(start_point, end_point, by = "driving") { # 生成一个关于起点和终点的向量 address = c(start_point, end_point) # 定义一个高德API Key key = Sys.getenv("key") # 将起点和终点转换为坐标形式 df = data.frame() for (i in address) { url = paste0( 'https://restapi.amap.com/v3/geocode/geo?key=', key, '&address=', i ) url |> xml2::read_html(encoding = 'utf-8') |> rvest::html_text() |> …