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)