# NOT RUN {
library(dplyr)
data(statsbomb)
# transform x,y-coords, filter only France pass events,
# draw flow field showing mean angle, distance of passes per pitch zone
statsbomb %>%
soccerTransform(method = 'statsbomb') %>%
filter(team.name == "France" & type.name == "Pass") %>%
soccerSpokes(xBins=7, yBins=5, angleBins=12, legend=FALSE)
# transform x,y-coords, standarise column names,
# filter only France pass events
my_df <- statsbomb %>%
soccerTransform(method = 'statsbomb') %>%
soccerStandardiseCols(method = 'statsbomb') %>%
filter(team_name == "France" & event_name == "Pass")
# overlay flow field onto heatmap showing proportion of team passes per pitch zone
soccerHeatmap(my_df, xBins=7, yBins=5,
title = "France passing radar") %>%
soccerSpokes(my_df, xBins=7, yBins=5, angleBins=8, legend=FALSE, plot = .)
# }
Run the code above in your browser using DataLab