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]])
生活、成长记录
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]])