Early exposure to Charles Reep’s work has led me to a four decade fascination with the observation and analysis of goal-scoring in association football.
I have a particular interest in those games in which a team scores first and loses.
So far, in five of Europe’s major leagues (Bundesliga yet to start) there have been seven games of this type:
I have explored these games with some R packages in R Studio. The packages are: tidyverse, ggplot2 and ggrepel.
My basic visualisations:
The Games
The scores in these games
The teams that overcame conceding the first goals:
The basic code I used to create these visualisations:
library(tidyverse)
library(ggplot2)
library(ggrepel)
df <- read.csv(“SFL.csv”)
df %>%
arrange(TE)
ggplot(df, aes(x=League, y=TE, label = Game)) +
geom_point(colour = “firebrick1”) +
geom_label_repel(size = 3, colour = “black”, fontface = “bold”) +
ggtitle(“Games in which team scores first and loses”) +
labs(subtitle = “European Leagues 2018-2019”) +
xlab (“League”) + ylab (“Time Taken to Equalise (Minutes)”) +
theme_minimal()
Photo Credit
AFC Bournemouth (Twitter)
