Rを使ってhtmlを読むと間違いました

Question

http://www.aqistudy.cn/historydata/daydata.php?city=%E8%8B%8F%E5%B7%9E&month=201504 これは私がデータを読んでいるウェブサイトです。

私のコードは次のように、ある

library(XML) 
fileurl <- "http://www.aqistudy.cn/historydata/daydata.php?city=苏州&month=201404" 

doc <- htmlTreeParse(fileurl, useInternalNodes = TRUE, encoding = "utf-8") 

rootnode <- xmlRoot(doc) 

pollution <- xpathSApply(rootnode, "/td", xmlValue) 

しかし、私は汚いコードの多くを持って、私はこの問題を解決する方法がわかりません。

何か助けていただきありがとうございます。

Answer 1

これは、直接、あなたがそれを「固定」したいですかどのようにテーブルに

library(rvest) 

url <- "http://www.aqistudy.cn/historydata/daydata.php?city=%E8%8B%8F%E5%B7%9E&month=201504" 

doc <- read_html(url) %>% 
    html_table() 

doc[[1]] 
#   日期 AQI 范围 质量等级 PM2.5 PM10 SO2 CO NO2 O3 排名 
# 1 2015-04-01 106 67~144 轻度污染 79.3 105.1 20.2 1.230 89.5 76 308 
# 2 2015-04-02 74 31~140  良 48.1 79.7 18.8 1.066 51.5 129 231 
# 3 2015-04-03 98 49~136  良 72.9 89.2 16.0 1.323 50.9 62 293 
# 4 2015-04-04 92 56~158  良 67.6 78.2 14.3 1.506 57.4 93 262 
# 5 2015-04-05 87 42~167  良 63.7 56.1 16.9 1.245 50.8 91 215 
# 6 2015-04-06 46 36~56  优 29.1 30.8 10.0 0.817 37.5 98 136 
# 7 2015-04-07 45 34~59  优 27.0 42.4 12.0 0.640 36.6 77 143