r - R中xpathSApply的正确语法

Question

我正在努力获取数据表中网站上的统计数据表以对其进行分析。该表可以在这里找到：
http://nl.soccerway.com/teams/netherlands/afc-ajax/1515/squad/

到目前为止，我的代码：

library(XML)
url <- "http://nl.soccerway.com/teams/netherlands/afc-ajax/1515/squad/"
doc <- htmlParse(url)
xpathSApply(doc, "//tr[@*]/td/child::node()", xmlValue)

但这会以无法使用的形式返回数据。什么是正确的xpathSApply代码？

Answer 1

包含数据的表具有id='page_team_1_block_team_squad_3-table'，您可以在xpath中使用它。一个xpath
"//table[@id='page_team_1_block_team_squad_3-table']/tbody"将找到具有该ID的表并返回表主体。然后可以将readHTMLTable与参数header = FALSE一起使用以返回数据

library(XML)
url <- "http://nl.soccerway.com/teams/netherlands/afc-ajax/1515/squad/"
doc <- htmlParse(url)
res <- readHTMLTable(doc["//table[@id='page_team_1_block_team_squad_3-table']/tbody"][[1]], header = FALSE)
head(res)
> head(res)
V1 V2              V3 V4 V5 V6   V7 V8 V9 V10 V11 V12 V13 V14 V15 V16
1  1         K. Vermeer    28  K  856 10 10   0   1  24   0   0   0   0
2 22       J. Cillessen    25  K 2204 25 24   1   0   8   0   0   0   0
3 30    M. van der Hart    20  K    0  0  0   0   0   2   0   0   0   0
4  2       R. van Rhijn    23  V 2786 32 31   1   1   1   2   3   6   0
5  3    T. Alderweireld    25  V  360  4  4   0   0   0   0   0   0   0
6  4       N. Moisander    28  V 1985 23 22   1   0   3   1   2   0   0
V17
1   0
2   0
3   0
4   1
5   0
6   0