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