英超数据趴取的优化版

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

      网上看见很多趴取的方法，但是总是感觉很繁琐，
      没有体现R的简洁，现在给出一种优化的版本。

1. library(rvest)
   
2. library(rjson)
   
3. url = "http://data2.7m.cn/history_Matches_Data/2009-2010/92/en/fixture.js"
   
4. 
   
5. dat = url %>% html() %>% html_nodes('p') %>% html_text()
   
6. data = strsplit(dat,"\r\n")
   
7. 
   
8. nb = c(6,7,11,8,12)
   
9. d = lapply(nb,function(i) data[[1]] %>%
   
10.         substr(regexpr("\\[",.)[1],regexpr("\\]",.)[1]) %>% fromJSON)
    
11. 
    
12. Total = do.call(cbind,d) %>% as.data.frame
    
13. names(Total) = c('轮次','日期','主队','得分','客队')
    
14. 
    
15. a = seq(1,nrow(Total),10)
    
16. England = lapply(a, function(i) Total[i:(i+9),])

复制代码

1. > England[[38]]
   
2.       轮次                           日期                主队     得分              客队
   
3. 371   38 2010,05,09,23,00,00           Everton 1-0(0-0)        Portsmouth
   
4. 372   38 2010,05,09,23,00,00   West Ham United 1-1(1-1)   Manchester City
   
5. 373   38 2010,05,09,23,00,00  Bolton Wanderers 2-1(1-0)        Birmingham
   
6. 374   38 2010,05,09,23,00,00 Manchester United 4-0(2-0)        Stoke City
   
7. 375   38 2010,05,09,23,00,00        Chelsea FC 8-0(2-0)    Wigan Athletic
   
8. 376   38 2010,05,09,23,00,00       Aston Villa 0-1(0-0)  Blackburn Rovers
   
9. 377   38 2010,05,09,23,00,00            Wolves 2-1(1-1)        Sunderland
   
10. 378   38 2010,05,09,23,00,00           Burnley 4-2(1-2) Tottenham Hotspur
    
11. 379   38 2010,05,09,23,00,00           Arsenal 4-0(3-0)            Fulham
    
12. 380   38 2010,05,09,23,00,00         Hull City 0-0(0-0)         Liverpool

复制代码

1. > England[[1]]
   
2.    轮次                         日期              主队      得分            客队
   
3. 1     1 2009,08,15,19,45,00        Chelsea FC 2-1(1-1)       Hull City
   
4. 2     1 2009,08,15,22,00,00  Blackburn Rovers 0-2(0-1) Manchester City
   
5. 3     1 2009,08,15,22,00,00            Wolves 0-2(0-1) West Ham United
   
6. 4     1 2009,08,15,22,00,00  Bolton Wanderers 0-1(0-1)      Sunderland
   
7. 5     1 2009,08,15,22,00,00        Stoke City 2-0(2-0)         Burnley
   
8. 6     1 2009,08,15,22,00,00        Portsmouth 0-1(0-1)          Fulham
   
9. 7     1 2009,08,15,22,00,00       Aston Villa 0-2(0-1)  Wigan Athletic
   
10. 8     1 2009,08,16,00,30,00           Everton 1-6(0-3)         Arsenal
    
11. 9     1 2009,08,16,20,30,00 Manchester United 1-0(1-0)      Birmingham
    
12. 10    1 2009,08,16,23,00,00 Tottenham Hotspur 2-1(1-0)       Liverpool

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：英超数据 Birmingham Blackburn function Chester R软件 数据抓取 英超数据