R 从澳网统计数据中剔除数据

但是，当我使用rvest库时，我想使用rvest库从中获取统计数据，特别是从表中获取数据

read_html("https://ausopen.com/event-stats") %>% html_nodes("table")

---

它返回{xml_nodeset 0}，我将如何尝试修复此问题？该网站有点混乱，因为每个统计数据的每个数据都在一个网页中。

有大量的信息可以使用jsonlite:：fromJSON阅读。困难的任务是找到你需要的相关数据

例如，要获得ACE和玩家姓名，您可以执行以下操作：

library(dplyr)

dat <- jsonlite::fromJSON('https://prod-scores-api.ausopen.com/year/2021/stats')
aces <- bind_rows(dat$statistics$rankings[[1]]$players)

dat$players %>%
  inner_join(aces, by = c('uuid' = 'player_id')) %>%
  select(full_name, value) %>%
  arrange(-value)


#               full_name value
#1         Novak Djokovic   103
#2       Alexander Zverev    86
#3           Milos Raonic    82
#4        Daniil Medvedev    80
#5           Nick Kyrgios    69
#6       Alexander Bublik    66
#7          Reilly Opelka    61
#8            Jiri Vesely    58
#9          Andrey Rublev    57
#10          Lloyd Harris    55
#11        Aslan Karatsev    54
#12          Taylor Fritz    53
#...
#...

---

非常感谢你！这正是我所需要的。但是我在哪里可以找到去年澳网的数据呢？我试图更改url，但它给出了空响应。是的..我不确定这一点。你能在某个网站上找到它吗？也许我们可以从那一页上得到。