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