R實例：批量抓取安居客小區均價信息

library(rvest)
housedata<-list()
page<-c(1:2)
for(n in 1:2)
	{
	i<-page[n]
	url<-paste("https://zs.anjuke.com/community/gangkouzhena/p",i,"/",sep="")
	web<-read_html(url)
	name<-web%>%html_nodes("div.li-info h3 a")%>%html_text
	price<-web%>%html_nodes("div.li-side p strong")%>%html_text
	data<-data.frame(name,price)
	housedata[[n]]<-data
	next
	}
final<-do.call(rbind,housedata)
head(final,10)
             name price
1    保利國際廣場 13666
2    大信芊翠家園 12580
3      水禾園三期 10698
4        星晨花園 10691
5  星港灣城市綠洲  9606
6    中信凱旋藍岸 12380
7      東港灣花園  7837
8    麗江花園二期  8123
9          星港灣  8640
10   中信美景康城 11723