使用XML包爬取四川统计网城乡消费品零售数据

• 自行更改代码中的目录地址

rm(list=ls())
Sys.setlocale(category = 'LC_ALL',locale = 'Chinese')
library(XML)
data<-data.frame(4)
for (i in 2:6){
  addr<-paste(paste('http://www.sc.stats.gov.cn/html/2018/1679',i,sep='/'),'html',sep='.')
  data1<-readHTMLTable(addr,which = 1)
  data1<-as.matrix(data1)
  data1<-data1[-c(2,5,6,7),1]
  data1<-as.data.frame(data1)
  names(data1)<-paste(i,'月',sep='')
  row.names(data1)<-c('总额','城镇','乡村')
  data<-data.frame(data1,data)
}
data<-as.matrix(data)
data<-t(data)
data<-data[-6,]
data<-data[c(5,4,3,2,1),]
data<-as.data.frame(data)
write.csv(data,file = 'C://Users/longxiaojiangi/Desktop/四川省城乡消费品零售/四川省城乡消费品零售.csv')

• 效果图

  
  四川省城乡消费品零售.jpg