#Punto 1

library(readxl)
Goles_de_Messi_Contra_el_Real_Madrid=read_excel("Goles de Messi Contra el Real Madrid.xlsx")
cor(Goles_de_Messi_Contra_el_Real_Madrid$time_min,Goles_de_Messi_Contra_el_Real_Madrid$goal_distance)
## [1] 0.06433416

#interpretacion de los Datos

Análisis: Dados los resultados podemos concluir que, al tener una correlación cercana a 0, en este caso 0.0633416, no hay relación lineal, lo que significa que estas dos variables sufren cambios en distinta intensidad.

plot(Goles_de_Messi_Contra_el_Real_Madrid$time_min,Goles_de_Messi_Contra_el_Real_Madrid$goal_distance,main = "Grafico de dispersión entre Distancia y Minuto de goles", ylab = "Distancia en Metros", xlab = "Minuto", col="orange")

#punto 2

library(readxl)
Goles_de_Messi_Contra_el_Real_Madrid=read_excel("Goles de Messi Contra el Real Madrid.xlsx")
library(ggplot2)
ggplot(Goles_de_Messi_Contra_el_Real_Madrid,aes(Resault,goal_distance))+geom_boxplot(fill="blue")+
  labs(title="Cajas", x="resultado partido", y="Distancia goles")