网络数据爬虫

1. library(tidyverse)
   
2. library(stringr)
   
3. library(rvest)
   
4. 
   
5. url <- 'http://www.circ.gov.cn/web/site0/tab5205/info4084354.htm'
   
6. html <- read_html(url)
   
7. tb_data <- html %>% html_node('table.MsoNormalTable') %>%
   
8.   html_table() %>%
   
9.   set_names(.[3,]) %>%
   
10.   mutate(`地区`=str_replace(`地区`,'\\s+','')) %>%
    
11.   filter(!row_number() %in% c(1,2,3))

复制代码

利用tidyverse来整理成数据框