Displaying 1 result from an estimated 1 matches for "get_team_plays".
2020 Oct 08
0
Retrosheet Data
...(team){
P <- getRetrosheet("play",2013,team)
get_plays <- function(j) data.frame(Game=P[[j]]$id[1],P[[j]]$play)#from $id and $play section of retrosheet data
do.call("rbind",lapply(1:length(P),get_plays))
}
all_plays <- do.call("rbind",lapply(Teams[1:30],get_team_plays))
head(all_plays,10)
I get the following six variables from the play section of the retrosheet data:
head(all_plays,10)
Game inning team retroID count pitches play
1 TEX201304050 1 0 troum001 01 CX 63/G
2 TEX201304050 1...