数据挖掘资料，点击底部"阅读原文"，手慢无 直接上代码，里面有注释。 library(plyr) library(RCurl) library(XML) #总页数 page <- 1:7 #构建每一页网址 urllist <- paste("http://t.nuomi.com/3/sh-370-0-0/0-page",page,"?#j-sort-bar",sep="") #伪装报头 myhea