#安装XML包>install.packages('XML')#载入XML包> library(XML)#确定网页地址,通过网页地址分析网页表格> url<-'http://hz.house.ifeng.com/detail/2014_10_28/50087618_1.shtml'> tbls<-readHTMLTable(url)> sapply(tbls,nrow)NULL NULL 93 8 #读取网页url的第一张表> pop<-readHTMLTable(url,which = 1)#存储pop为CSV文档> write.csv(pop,file='F:/pop.csv') |
|