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

代码：

> 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)