R實例：批量抓取位置經緯度座標

抓取高德地圖經緯度座標：

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