Big Data en la Formula 1

Alejandro Hortelano, Victor Gallego y Jose Maria Perez

23/12/22

Indice

1. Contextualización

2. Historia y curiosidades del campeonato

3. Temporada 2021

Datos del trabajo

El dataset que hemos utilizado para realizar este trabajo está hecho a partir de kaggle y más concretamente aquí, junto a la base de datos Statista para obtener los datos sobre las audiencias y el Prize Pool de las competiciones deportivas

Código R utilizado en el trabajo

library(tidyverse)
library(readxl)
library(gapminder)
library(gganimate)
library(stats)
library(plotly)
library(ggplot2)
library(treemap)
library(treemapify)
library(magick)

tiempos <- rio::import(file = "./datos/lap_times.csv")
pilotos <- rio::import(file = "./datos/drivers.csv")
resultados <- rio::import(file = "./datos/results.csv")
carreras <- rio::import(file = "./datos/races.csv")
escuderias <- rio::import(file = "./datos/constructors.csv")
escuderias2 <- rio::import(file = "./datos/constructor_standings.csv")
resultado_escuderias <- rio::import(file = "./datos/constructor_results.csv")
circuitos <- rio::import(file = "./datos/circuits.csv")
pit_stops <- read_csv("datos/pit_stops.csv")
Prizepool_competiciones <- read_excel("datos/valor_eventos.xlsx")
Prizepool_competiciones <- na.omit(Prizepool_competiciones)
Valor_marcas <- read_excel("datos/valor_marcas.xlsx")
audiencias <- read_excel("datos/audiencias.xlsx")
pitstops <- rio::import(file= "./datos/pit_stops.csv")

Contextualización del campeonato

1. Audiencias del cameponato

2. Comparación con las principales competencias deportivas

3. Elementos principales del vehículo

4. Introducción de las escuderías y pilotos

Audiencias del cameponato

Comparación de las principales competencias deportivas

Elementos principales del vehículo

Introducción de las escuderías y pilotos

Introducción de las escuderías y pilotos

Historia y curiosidades del campeonato

Pilotos más exitosos de la historia

Mejores Pit-Stops en la historia del campeonato

Pilotos más exitosos en la historia

#> # A tibble: 11 × 2
#> # Groups:   driverRef [11]
#>    driverRef          victoria_num
#>    <chr>                     <int>
#>  1 hamilton                    103
#>  2 michael_schumacher           91
#>  3 vettel                       53
#>  4 prost                        51
#>  5 senna                        41
#>  6 max_verstappen               35
#>  7 alonso                       32
#>  8 mansell                      31
#>  9 stewart                      27
#> 10 lauda                        25
#> 11 clark                        25

Mejores Pit-Stops en la historia del campeonato

#>             driverRef milliseconds
#> 1           maldonado        12897
#> 2         bruno_senna        12959
#> 3            hamilton        13173
#> 4           maldonado        13186
#> 5  michael_schumacher        13199
#> 6               perez        13201
#> 7           maldonado        13206
#> 8               massa        13259
#> 9           maldonado        13266
#> 10             vettel        13335

Constructores Temporada 2021

Pilotos