# NOT RUN {
# get x,y-coords of player #8 during first 10 minutes
data(tromso)
dd <- subset(tromso, id == 9)[1:1200,]
# draw player path on pitch
soccerPitch(grass = TRUE) +
geom_path(data = dd, aes(x, y))
# }
Run the code above in your browser using DataLab