2019独角兽企业重金招聘Python工程师标准>>> 
抓取高德地图经纬度坐标：
library(rvest)
library(XML)
housedata<-list()
houselist<-c("百业沣尚|塱沙三路","柏丽花园|南桂西路34号","翠堤明珠|东平路","翠景台|汾江中路","翠影华庭|轻工南五街","永乐花苑|木棉街9号","优悦城|百灵路90号","瑜翠园|高明大道中88号","御翠居|永安街","御江名苑|高明大道东636号","御景花园|永华街8号")
a<-length(houselist)
for(n in 1:a)
{
i<-houselist[n]
url<-paste("http://restapi.amap.com/v3/geocode/geo?key=25eebfbe4cb0465446df0c538be5fb49&address=",i,"&city=佛山",sep="")
web<-read_html(url)
xmldoc<-xmlRoot(xmlParse(web,encoding="UTF-8"))
rootnode<-xmlRoot(xmldoc)
res<-xmlValue(rootnode)
res2<-strsplit(res,"location")[[1]][2]
GIS<-strsplit(res2,'"')[[1]][3]
data<-data.frame(name=i,GIS)
housedata[[n]]<-data
next
}
final<-do.call(rbind,housedata)
print(final)
name GIS
1 百业沣尚|塱沙三路 113.129409,23.012523
2 柏丽花园|南桂西路34号 113.134891,23.032580
3 翠堤明珠|东平路 113.116212,22.976987
4 翠景台|汾江中路 113.108540,23.041478
5 翠影华庭|轻工南五街 113.095901,23.029839
6 永乐花苑|木棉街9号 112.795954,22.819140
7 优悦城|百灵路90号 112.836526,22.885311
8 瑜翠园|高明大道中88号 112.786129,22.864950
9 御翠居|永安街 112.878767,22.897826
10 御江名苑|高明大道东636号 112.849972,22.893118
11 御景花园|永华街8号 113.271870,22.840160
抓取百度地图经纬度坐标：
library(rvest)
library(XML)
housedata<-list()
houselist<-c("百业沣尚|塱沙三路","柏丽花园|南桂西路34号","翠堤明珠|东平路","翠景台|汾江中路","翠影华庭|轻工南五街","永乐花苑|木棉街9号","优悦城|百灵路90号","瑜翠园|高明大道中88号","御翠居|永安街","御江名苑|高明大道东636号","御景花园|永华街8号")
a<-length(houselist)
for(n in 1:a)
{
i<-houselist[n]
url<-paste("http://api.map.baidu.com/geocoder/v2/?callback=renderOption&output=json&address=",i,"&city=佛山市&ak=Sdt5HFwA96eZ5k8x5gURUlEwK3XTfjIr",sep="")
web<-read_html(url)
xmldoc<-xmlRoot(xmlParse(web,encoding="UTF-8"))
rootnode<-xmlRoot(xmldoc)
res<-xmlValue(rootnode)
res2<-strsplit(res,"location")[[1]][2]
GIS<-strsplit(res2,'"')[[1]][c(4,6)]
lon<-sub(",","",sub(":","",strsplit(GIS," ")[1]))
lat<-sub(",","",sub(":","",sub("}","",strsplit(GIS," ")[2])))
data<-data.frame(name=i,lon,lat)
housedata[[n]]<-data
next
}
final<-do.call(rbind,housedata)
print(final)
name lon lat
1 百业沣尚|塱沙三路 113.10242704020868 23.046192775504044
2 柏丽花园|南桂西路34号 113.1417733739906 23.038383425860347
3 翠堤明珠|东平路 113.12300901245327 22.982707729631703
4 翠景台|汾江中路 113.1156260999778 23.04727250520667
5 翠影华庭|轻工南五街 113.10203762477024 23.03595823786657
6 永乐花苑|木棉街9号 112.80252940317527 22.825304613314509
7 优悦城|百灵路90号 112.84567043624964 22.891755194930789
8 瑜翠园|高明大道中88号 112.79256383181708 22.87108187870626
9 御翠居|永安街 112.88520127399433 22.903341184068905
10 御江名苑|高明大道东636号 112.85649100770132 22.89856531763583
11 御景花园|永华街8号 112.88354869638208 22.902318484835566