Im not sure if anyone is following these, but I will do one more and see what happens!   I have covered some passing based stuff, I thought it might be useful to look into shots.   Therefore, the rough plan for this piece:  1) Total player xG in the WSL for this season  2) Find the top 9 players based on xG  3) Plot all shots taken including xG  4) Add labels  5) Plot the shot map of the 9 players against one another   As always, my coding is in the learning stage so this isn't a definitive way...just something that works for me and might help others!   Anyway, load in this seasons WSL data as we have previously.   We want to extract 3 things from the data - the number of shots, numbers of goals and total xG (initially including penalties)   To start - tallying player shots:   player_shots<-StatsBombData%>%    filter(type.name == "Shot")%>% ##filter all shots in StatsBombData    group_by(player.name)%>% ##group by player    tally(name = "total_shots"...