为什么子集函数不适用于网站上的数据框？

Question

我使用 rvest 库导入一个数据框，我想用子集函数对其进行排序，导入没问题，因为我可以打印数据框。但是当我想从中对数据进行排序时，我看到错误对象未找到。我该怎么办？

library(rvest)
html_content <- read_html(url("https://ki.ujep.cz/cs/historie/"))
table <- html_table(html_content, header = TRUE)
print(subset(table, subset = `Dosud na UJEP?` == "ANO"))

我已经测试了 iris 数据框的函数子集，它工作得很好，所以我不知道我还需要做什么

Answer 1

您应该选择要从中选择的表。只需添加

table[[2]]

> print(subset(table[[2]], subset = `Dosud na UJEP?` == "ANO"))
# A tibble: 6 × 4
  Jméno                                Od Do    `Dosud na UJEP?`
  <chr>                             <int> <chr> <chr>           
1 Ing. Mgr. Jiří Barilla             1993 1996  ANO             
2 Ing. Mgr. Jiří Barilla, CSc.       2001 2006  ANO             
3 Prof. RNDr. Ivo Nezbeda, DrSc.     2006 2008  ANO             
4 Doc. RNDr. Viktor Mashkov, DrSc.   2009 2011  ANO             
5 prof. RNDr. Stanislav Novák, CSc.  2011 2014  ANO             
6 RNDr. Jiří Škvor, Ph.D.            2014 Dosud ANO