太感谢zhou1_20老师了。尘埃落定

厉害厉害

厉害，真要好好地学。

# 无需如此复杂吧

##################################################################
url<-"http://www.circ.gov.cn/web/site0/tab5205/info4074076.htm"

  webda<-read_html(url)%>%
   html_nodes("table")%>%
   html_table(fill=TRUE)%>%
    .[[8]]  ###   第八个表，
### 是一个全character型的data.frame ，所需数据全中其中了，
##  用tidyvese 包 作些简单处理，即可得所需的
#########################################################################
   

利用tidyverse来整理成数据框