R读取网页表格（pm2.5）

Sys.setlocale(“LC_ALL”,”Chinese”)
library(“XML”)
strurl<-“http://pm25.in/rank”
tables<-readHTMLTable(strurl,header=FALSE,stringAsFactors=FALSE,encoding=”UTF-8″)
head(tables[[1]])