Using the new TdT R package, I have re done the speed plot
library(remotes)
install_github("alastairrushworth/tdf")
library(tdf)
editions %>%
ggplot(aes(x = start_date, y = distance / time_overall, color = edition)) +
geom_point(na.rm = TRUE,size=4) +
geom_label_repel(data = editions, aes(label = winner_name), size = 4, na.rm = TRUE, segment.alpha = 1, point.padding=1) +
xlab('year') +
ylab('average speed km/h') +
ylim(23,45)
