# NOT RUN {
# France vs. Argentina, minimum of three passes
library(dplyr)
library(soccermatics)
# Argentina pass map until first substituton with transparent edges
statsbomb %>%
filter(team.name == "Argentina") %>%
soccerPassmap(fill = "lightblue", arrow = "r",
title = "Argentina (vs France, 30th June 2018)")
# France pass map until first substituton with opaque edges
statsbomb %>%
filter(team.name == "France") %>%
soccerPassmap(fill = "blue", minPass = 3,
maxEdgeSize = 30, edgeCol = "grey40", edgeAlpha = 1,
title = "France (vs Argentina, 30th June 2018)")
# }
Run the code above in your browser using DataLab