R调用百度地图API -获取经纬度

由于百度地图API接口更新了，
所以重新编辑了别人的代码，以适应目前的版本。

AK <- '你自己申请的KPI'
add_id <- c("北京天安门","南京","杭州","芜湖"，“常州”)
location <- as.character(add_id)

#载入需要的包
library(rjson)
library(RCurl)

#设定空向量
baidu_lat <- c()
baidu_lng <- c()
baidu_address <-c()
baidu_geo <- c()
#列表循环
for (location in add_id) {
  url<-paste("http://api.map.baidu.com/geocoding/v3/?address=",location,"&output=json&ak=你自己的申请的AK",sep="")
  url_string <- URLencode(url)
  # 捕获连接对象
  connect <- getURI(url_string)      
  # 处理json对象
  temp_geo <- fromJSON(connect)
  temp_lat<-temp_geo$result$location$lat
  temp_lng<-temp_geo$result$location$lng
 
  #存储数据
  baidu_geo  <-c(baidu_geo,temp_geo)
  baidu_lat <- c(baidu_lat,temp_lat)
  baidu_lng <- c(baidu_lng,temp_lng)
  baidu_address <- c(baidu_address,location)
}
content <- data.frame(baidu_address,baidu_lat,baidu_lng, stringsAsFactors = F)

#查看数据导出数据
content;
结果如下
```![在这里插入图片描述](https://img-blog.csdnimg.cn/20200326224308183.jpg)

  

>引用自https://zhuanlan.zhihu.com/p/24251351
>引用自https://www.zhihu.com/question/28565852