R:抓取16~17赛季NBA球队实时数据

2019独角兽企业重金招聘Python工程师标准>>>

代码：

> library(rvest)
> url<-"https://nba.hupu.com/standings"
> web<-read_html(url)
> res<-web%>%html_table()%>%as.data.frame
> teamdata<-res[c(3:17,20:34),c(2:5,7:14)]
> names(teamdata)<-c("队名","胜场数","负场数","胜率","主场","客场","赛区","部区","得分","失分","净胜","连场")
> teamdata

结果：

(End)

转载于:https://my.oschina.net/u/3093769/blog/800208