stripchart(velocidades,xlim=c(0.700,77.8), method="stack", ylab=("Compañias telefónicas"), pch=1)
install.packages("ggcorrplot")
library(ggplot2)
library(ggcorrplot)
library(magrittr)
library(tidyverse)

corr_selected <- desiguales %>% 
  select(sexo,zona,macrozona,region,edad,p1_anyo,p1_mes,p2,p3) %>% 
  # calcular la matriz de correlación y redondear a un decimal
  cor(use = "pairwise") %>% 
  round(1)

ggcorrplot(corr_selected, type = "lower", lab = T, show.legend = F)
