7.3 Dot plots

Creamos una gráfica de puntos utilizando el dataset que formamos en Full join 6.1.3 Y agregamos también el total de población como en 6.1.2.

anuies_hosp_pob <- anuies_hosp %>%
   dplyr::inner_join(
    poblacion %>% 
      dplyr::select(id, pobtot),
    by = c("municipality_id" = "id")
  )

ggplot(anuies_hosp_pob, aes(x=total_anuies, y=total_hospitales)) +
  geom_point(aes(size=pobtot, color=pobtot)) +
  geom_abline(color="green") +
  xlab("Total de instituciones de educación superior") +
  ylab("Total de unidades de salud") +
  ggtitle("Instituciones de Educación Superior vs Unidades de Salud") +
  scale_color_continuous(name="Población", label=comma) +
  scale_size(guide = 'none') +
  theme_base(base_size = 15) +
  theme(legend.text.align = 1)