Messi vs. Cristiano Ronaldo (Analisis Mediante Rstudio)

knitr::include_graphics("ronaldo-messi.png")

El debate Messi vs. CR7 ha dominado el fútbol durante dos décadas, generando discusiones apasionadas sobre quién es el mejor. Este proyecto busca:

Analizar y Realziar una comparación mediante estadísticas clave (goles, asistencias, títulos, rendimiento por temporada)

Este Proyecto fue realizado completamente en Rstudio y mediante una base de datos realizada con informacion oficial del rendiemnto de estos dos jugadores

library(ggplot2)
library(knitr)
library(readxl)
library(plotly)

Adjuntando el paquete: 'plotly'

The following object is masked from 'package:ggplot2':

    last_plot

The following object is masked from 'package:stats':

    filter

The following object is masked from 'package:graphics':

    layout

library(rmarkdown)
datos <- read_excel("C:/Users/maxim/OneDrive/Desktop/TNE/Messi_Cr7Basedesatos.xlsx")

Para analizar quien podria llegar a ser el mejor de estos dos jugadores haremos dos graficos de barras para ver los goles de Cristiano Ronaldo y Lionel Messi a lo largo de estas ultimas 20 temporadas

bp<- barplot((datos$cr7_goles), col= "blue" , xlab="", ylab= "Cantidad de goles" ,main = "GOLES DE CR7",ylim = c(0,100),
        names.arg = datos$temporada,
        las = 2)
text(x = bp,                
     y = datos$cr7_goles + 2,   
     labels = datos$cr7_goles,  
     cex = 0.8,                 
     col = "black",             
     font = 2)      

Este es el grafico de Cristiano Ronaldo, Aqui podemos ver su rendimiento de goles a traves de las ultimas 20 tempordas

dp <- barplot((datos$messi_goles), col = "red", ylab= "Cantidad de goles" ,main = "GOLES DE MESSI",ylim = c(0,100),
        names.arg = datos$temporada,
        las = 2)
text(x=dp, y= datos$messi_goles + 2, labels = datos$messi_goles, cex = 0.8, col="black")

y Este es el grafico de Lionel Messi.

Tambien haremos tablas descriptivas para ver datos que nos podrian ayudar a analizar quien podria ser mejor

Estadisticas_Ronaldo_Goles<- datos %>%
  summarise(
    CR7_Total_Goles = sum(cr7_goles),
    CR7_Promedio_Goles = mean(cr7_goles),
    CR7_Mejor_Temporada_GOLES = max(cr7_goles),
    CR7_Peor_Temporada_Goles = min(cr7_goles)
    
  )
print(as.data.frame(Estadisticas_Ronaldo_Goles),row.names=F)

 CR7_Total_Goles CR7_Promedio_Goles CR7_Mejor_Temporada_GOLES
             771              38.55                        61
 CR7_Peor_Temporada_Goles
                       12

Esta tablas descriptivas nos muestran datos relevantes a la hora de analizar el rendimiento de cr7

Estadisticas_Messi_Goles<- datos %>% summarise(
  Messi_Total_Goles= sum(messi_goles),
  Messi_Promedio_Goles =mean(messi_goles),
  Messi_Mejor_Temporda_Goles=max(messi_goles),
  Messi_Peor_Temporada_Goles=min(messi_goles)
)
print(as.data.frame(Estadisticas_Messi_Goles), row.names=F) 

 Messi_Total_Goles Messi_Promedio_Goles Messi_Mejor_Temporda_Goles
               745                37.25                         73
 Messi_Peor_Temporada_Goles
                          8

Aca podemos ver las estadisticas de messi mediante la estadistica de goles

Ahora analizaremos las estadistica de asistencias, de estos dos jugadores ya que a la hora de decidir quien es mejor , tambien se toman en cuenta

Estadisticas_Messi_Asistencias<- datos %>% summarise(
  MESSI_total_Asistencias = sum(messi_asistencias),
  MESSI_Promedio_Asistencias= mean(messi_asistencias),
  MESSI_Mejor_Temporada_Asistencias= max(messi_asistencias),
  Messi_Peor_Temporada_Asitencias=min(messi_asistencias)
)
print(as.data.frame(Estadisticas_Messi_Asistencias), row.names=F)

 MESSI_total_Asistencias MESSI_Promedio_Asistencias
                     339                      16.95
 MESSI_Mejor_Temporada_Asistencias Messi_Peor_Temporada_Asitencias
                                29                               3

Podemos ver las estadisticas de messi en cuanto a las asistencias se refiere, ahora veremos las de cr7

Estadisticas_CR7_Asistencias <- datos %>% summarise(
  CR7_total_Asistencias= sum(cr7_asistencias),
  CR7_Promedio_Asistencias= mean(cr7_asistencias),
  CR7_Mejor_Temporada_Asistencias=max(cr7_asistencias),
  CR7_Peor_Temporada_Asistencias=min(cr7_asistencias)
)
print(as.data.frame(Estadisticas_CR7_Asistencias), row.names=F)

 CR7_total_Asistencias CR7_Promedio_Asistencias CR7_Mejor_Temporada_Asistencias
                   193                     9.65                              22
 CR7_Peor_Temporada_Asistencias
                              2

Aca estan las estadisticas de cr7 respecto a las asistencias donde se ve superado ampliamente por messi

Haremos un grafico de lineas con los goles de ambos jugadores para analizar su rendimiento respescto a sus goles

grafico_lineas <- plot_ly() %>%
  add_trace(data = datos, x = datos$temporada, y = datos$cr7_goles, type = 'scatter', mode = 'lines+markers', name = "Goles Cristiano") %>%
  add_trace(data = datos, x = datos$temporada, y = datos$messi_goles, type = 'scatter', mode = 'lines+markers', name = "Goles Messi") %>%
  layout(title = "Evolucion de Goles de Cristiano Ronaldo y Messi a lo largo de las temporadas",
         xaxis = list(title = "TEMPORADA"),
         yaxis = list(title = "GOLES"))
grafico_lineas

al analizar el grafico podemos llegar a una conclusion de que los goles de cristiano serian mas simetricos que los de messi si lo pudieramos relacionar con una distribucion normal

veremos los goles/asistencias para ver que porcentaje ocupan de sus respectivas estadisticas

Este es el grafico circula de proporcion de G/A de Lionel Messi

fig <- plot_ly(datos, labels = c("GOLES_M", "ASISTENCIAS_M"), values = ~c(sum(datos$messi_goles), sum(datos$messi_asistencias)), type = 'pie', 
               title= "Participaciones de gol de Lionel Messi" , 
               textposition = 'inside',
               textinfo = 'label+percent',
               insidetextfont = list)

fig

Este es el grafico circular de proporcion de G/A de Lionel Messi

fig1 <- plot_ly(datos, labels = c("GOLES_CR", "ASISTENCIAS_CR"), values = ~c(sum(datos$cr7_goles), sum(datos$cr7_asistencias)), type = 'pie', 
               title= "Participacioes de gol de Cistiano Ronaldo" , 
               textposition = 'inside',
               textinfo = 'label+percent',
               insidetextfont = list)
fig1

Finalmente para llegar a una conclusion analizaremos las cantidad de trofeos ganados por Lionel Messi Y Cristiano Ronaldo en los ultimos 10 años

Lo analizaremos con un grafico de lineas

grafico_lineas1 <- plot_ly() %>%
  add_trace(data=datos,x=datos$temporada,y=datos$cr7_titulos, type='scatter', mode='lines+markers',name ="Titulos Cristiano") %>% 
  add_trace(data=datos, x=datos$temporada, y=datos$messi_titulos, type= 'scatter', mode='line+marker', name= "Titulos Messi") %>%
  layout(title = "Evolucion de Titulos Ganados Por Messi Y Cristiano a lo largo de las temporadas", xaxis = list(title = "TEMPORADA"),
yaxis = list(title = "TITULOS"))
grafico_lineas1

Conclusion: Despues de analizar todo tipo de estadistica llegamos a una conclusion, que Cristiano Ronaldo en los ultimos 20 años podria llegar a ser el mejor de este debate, pero al final del cuento esto va mas de gustos y de tu manera de ver el futbol pero por algo Cristiano Ronaldo es el maximo goleador de la historia

Muchas gracias por su atencion

knitr::include_graphics("Lionel-Cristiano.jpg")