css - RVest爬取NBA统计数据表

我想用rvest刮擦NBA球队的数据表，我尝试使用以下方法：


表格元素

library(rvest)

url_nba <- "http://stats.nba.com/teams/advanced/#!?sort=TEAM_NAME&dir=-1"

team_stats <- url_nba %>% read_html %>% html_nodes('table') %>% html_table

XPath（通过Google Chrome浏览器检查）

team_stats <- url_nba %>%
      read_html %>%
      html_nodes(xpath="/html/body/main/div[2]/div/div[2]/div/div/nba-stat-table/div[1]/div[1]/table") %>%
      html_table

CSS选择器（通过Mozilla检查）：

team_stats <- url_nba %>%
      read_html %>%
      html_nodes(".nba-stat-table__overflow > table:nth-child(1)") %>%
      html_table

但没有运气。任何帮助将不胜感激。

最佳答案

这个问题与此非常相似：How to select a particular section of JSON Data in R?

您请求的数据未存储在html代码中，因此使用rvest失败。所请求的数据存储为XHR文件，可以直接访问：

library(httr)
library(jsonlite)

nba<-GET('http://stats.nba.com/stats/leaguedashteamstats?Conference=&DateFrom=&DateTo=&Division=&GameScope=&GameSegment=&LastNGames=0&LeagueID=00&Location=&MeasureType=Advanced&Month=0&OpponentTeamID=0&Outcome=&PORound=0&PaceAdjust=N&PerMode=PerGame&Period=0&PlayerExperience=&PlayerPosition=&PlusMinus=N&Rank=N&Season=2016-17&SeasonSegment=&SeasonType=Regular+Season&ShotClockRange=&StarterBench=&TeamID=0&VsConference=&VsDivision=' )

将数据加载到nba变量后，使用httr和jsonlite清理数据：

#access the data
out<- content(nba, as="text") %>% fromJSON(flatten=FALSE)

#convert into dataframe.
#  str(out) to determine the structure
df<-data.frame(out$resultSets$rowSet)
names(df)<-out$resultSets$headers[[1]]

我强烈建议您阅读我上面链接的问题的答案。

关于css - RVest爬取NBA统计数据表，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/41603100/