# NOT RUN {
data(tromso)
# draw path of player #8 over first 1200 frames
subset(tromso, id == 8)[1:1200,] %>%
soccerPath(col = "red", grass = TRUE)
# draw path of all players over first 1200 frames
tromso %>%
dplyr::group_by(id) %>%
dplyr::slice(1:1200) %>%
soccerPath("id")
# }
Run the code above in your browser using DataLab