Buscando correlaciones con pairs en dataset proyecto

Dato interesante:

Si usan el código:

cor(orangeec[, c(2, 11)])

Se darán cuenta de que la relación que existe entre el GDP.PC y la media de la edad es grandísima! En concreto de un 0.81…

Luego pueden gratificarlo con:

ggplot(orangeec, aes(x= GDP.PC, y= Median.age, colour="blue", label=Country))+
  geom_point() +geom_text(aes(label=Country),hjust=0, vjust=0)+
  theme(legend.position = "none")+
  theme(panel.background = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

PD: Si alguien puede hacer un gráfico más bonito se lo agradecería mucho XD.

Para relacionar variables que estan seguidas pairs() para eso los :

.
.
Para relacionar variables que no estan seguidas subset() para eso el c() -contenedor-

No reproduce el video

pairs(orangeec[,2:6])
pairs(orangeec[,5:10])

newdata <- subset(orangeec , select = c(5,6,10,11,12,13))

pairs(newdata)

Librería de ciencia de datos:

Tidyverse packages
https://www.tidyverse.org/packages/

install.packages("tidyverse")
library("tidyverse")

siempre son correlaciones lineales?

Me esta funcionando el vídeo debe ser el navegador

## Buscando correlaciones con pairs en dataset proyecto
pairs(orangeec[,2:6])

pairs(orangeec[,5:10])

newdata <- subset(orangeec,select=c(5,6,10,11,12,13))
newdata
pairs(newdata)```

newdata <- subset (orangeec, select=c(5,6,10,11,12,13))```
newdata

…
pairs(data, main=“Title”)
…

data: dataframe a graficar o subset
main: titulo del gráfico.

Mayor información consultar: https://www.rdocumentation.org/packages/graphics/versions/3.6.2/topics/pairs

#Buscando correlaciones con pairs en dataset proyecto
pairs(orangeec[,2:6])

pairs(orangeec[,5:10])

#relacion entre columnas desordenadas
newdata <- subset(orangeec, select=c(5,6,10,11,12,13))
newdata #hecha la seleccion

pairs(newdata)

#relacion entre PIB per capita y poblacion en edad media
ggplot(orangeec, aes(x= GDP.PC, 
                     y= Median.age, 
                     label= Country))+
  geom_point() +
  geom_smooth()+
  geom_text()+
  theme(legend.position = "none")