Gist of tour de france winners speed. Data from http://www.bikeraceinfo.com/tdf/tdfstats.html and https://cycling-passion.com/top-200-fastest-climbs-alpe-d-huez/

alpe.csv

alpe.r

data <- read.csv("alpe.csv",header=TRUE) 
head(data)

library(lubridate)
res <- ms(data$Time)        # format to 'minutes:seconds'
data$seconds = period_to_seconds(res) 
head(data)

ggplot(data, aes(x=Year, y=seconds)) +
  geom_point()+  labs(title="Fastest times Alpe d’Huez", 
       #caption="Source: wikipedia", 
       y="Seconds",
  x="Year")

ggsave("alpe.png",width = 5, height = 4, dpi = 72)

require(dplyr)
best<-data %>% group_by(Year) %>% summarise(seconds = min(seconds))

ggplot(best, aes(x=Year, y=seconds)) +
  geom_point()+  labs(title="Fastest Alpe d’Huez Times", 
       caption="Source: https://cycling-passion.com/top-200-fastest-climbs-alpe-d-huez", 
       y="Seconds",
  x="Year")  +theme_classic()+
  theme(plot.title = element_text(
      hjust = 0.5,
      vjust = 0.5,
      face = "bold",
      size = 20,
      margin = margin(t = 10)))

ggsave("alpey.png",width = 5, height = 4, dpi = 72)

TourdeFrance.r

library(ggplot2)
library("ggthemes")

data <- read.csv("winners.csv",header=TRUE) 

#Year   AverageSpeed
#	1903	25.679		
#	1904	25.265	

ggplot(data, aes(x=Year, y=AverageSpeed, fill=type)) +
  geom_bar(stat="identity",width = 0.87)+
  labs(title="Tour de France Winner's Average Speed", 
       caption="Source: wikipedia", 
       y="Speed")+
   #theme_minimal()+
  theme_classic()+
    #theme_few()+
   annotate("text", x = 1918, y = 38,size = 4, label = "Known Dopers in Red",colour = "red")+
   annotate("text", x = 1916.5, y = 10, label = "WW1",colour = "black",angle = 90)+ 
   annotate("text", x = 1942.5, y = 10.1, label = "WW2",colour = "black",angle = 90)+   
    scale_fill_manual(values=c("#0055A4","#EF4135", "#FFFFFF"))+
  theme(legend.position="none")
  
  ggsave("TourFranceClassic.png")

winners.csv