| #安裝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') |
|
|
