# NOT RUN {
library(dplyr)
data(statsbomb)
# average player position from tracking data for one team
# w/ jersey numbers labelled
data(tromso)
tromso %>%
soccerPositionMap(label = "number", id ="id",
labelCol = "white", nodeSize = 8,
arrow = "r", theme = "grass",
title = "Tromso IL (vs. Stromsgodset, 3rd Nov 2013)",
subtitle = "Average player position (1' - 16')")
# transform x,y-coords, standarise column names,
# average pass position for one team using 'statsbomb' method
# w/ player name as labels
statsbomb %>%
soccerTransform(method='statsbomb') %>%
filter(type.name == "Pass" & team.name == "France" & period == 1) %>%
soccerPositionMap(source = "statsbomb",
fill1 = "blue", arrow = "r", theme = "light",
title = "France (vs Argentina, 30th June 2018)",
subtitle = "Average pass position (1' - 45')")
# transform x,y-coords, standarise column names,
# average pass position for two teams using 'manual' method
# w/ player names labelled
statsbomb %>%
soccerTransform(method='statsbomb') %>%
soccerStandardiseCols(method='statsbomb') %>%
filter(event_name == "Pass" & period == 1) %>%
soccerPositionMap(fill1 = "lightblue", fill2 = "blue",
title = "Argentina vs France, 30th June 2018",
subtitle = "Average pass position (1' - 45')")
# }
Run the code above in your browser using DataLab