Преобразование скрещенных данных R с использованием readHTMLTable()

Question

Я пытаюсь очистить этот сайт http://www.hockeyfights.com/fightlog/, но с трудом помещаю в хороший кадр данных. Пока у меня есть это:

> asdf <- htmlParse("http://www.hockeyfights.com/fightlog/1") 
> asdf.asdf <- readHTMLTable(asdf) 

Тогда я получаю этот гигантский список. Как преобразовать это в 2-х столбцовый фреймворк, который имеет только имена игроков (которые были в битве) с n рядами (количество боев)?

Спасибо за вашу помощь заранее.

Answer 1

Это выход, который вы после?

require(RCurl); require(XML) 
asdf <- htmlParse("http://www.hockeyfights.com/fightlog/1") 
asdf.asdf <- readHTMLTable(asdf) 

Во-первых, сделать таблицу каждого игрока и количество боев они были в ...

# get variable with player names 
one <- as.character(na.omit(asdf.asdf[[1]]$V3)) 
# get counts of how many times each name appears 
two <- data.frame(table(one)) 
# remove non-name data 
three <- two[two$one != 'Away/Home Player',] 
# check 
head(three) 
one Freq 
1 Aaron Volpatti 1 
3 Brandon Bollig 1 
4  Brian Boyle 1 
5 Brian McGrattan 1 
6  Chris Neil 2 
7 Colin Greening 1 

Во-вторых, сделать таблицу, кто в каждом бою ...

# make data frame of pairs by subsetting the vector of names 
four <- data.frame(away = one[seq(2, length(one), 3)], 
        home = one[seq(3, length(one), 3)]) 
# check 
head(four) 
      away   home 
1 Brian Boyle  Zdeno Chara 
2 Tom Sestito  Chris Neil 
3  Dale Weise Mark Borowiecki 
4 Brandon Bollig Brian McGrattan 
5 Scott Hartnell  Eric Brewer 
6 Colin Greening Aaron Volpatti