summary(LJ)
## ...1 TM PPG RPG
## Length:21 Length:21 Min. :20.90 Min. :5.500
## Class :character Class :character 1st Qu.:25.30 1st Qu.:7.300
## Mode :character Mode :character Median :27.10 Median :7.600
## Mean :27.09 Mean :7.529
## 3rd Qu.:28.40 3rd Qu.:8.000
## Max. :31.40 Max. :8.600
cor(LJ$RPG , LJ$PPG)
## [1] 0.450338
Este coeficiente indica que hay una relación lineal creciente pero moderada entre las variables seleccionadas.
library(ggplot2)
ggplot(LJ, mapping = aes(TM, PPG))+
geom_boxplot(fill= "khaki1")
Podemos observar que en el equipo de Miami Lebron tuvo una variación minima en sus puntos por partido, además, en Cleveland tuvo el mayor promedio de anotaciones.
summary(MJ)
## ...1 TM PPG RPG
## Length:15 Length:15 Min. :20.00 Min. :3.60
## Class :character Class :character 1st Qu.:27.55 1st Qu.:5.75
## Mode :character Mode :character Median :30.10 Median :6.10
## Mean :29.45 Mean :6.12
## 3rd Qu.:32.55 3rd Qu.:6.65
## Max. :37.10 Max. :8.00
cor(MJ$RPG , MJ$PPG)
## [1] 0.2813874
Este coeficiente nos indica una relación creciente pero bastante debil.
library(ggplot2)
ggplot(MJ, mapping = aes(TM, PPG))+
geom_boxplot(fill= "brown2")
Vemos que en Washington tuvo una variación mínima de sus puntos por partido, y en Chicago tuvo una mediana de 30.1 puntos una gran cantidad de anotaciones.