datos socioeconómicos y resultados electorales.

     En las siguientes, breves líneas de código de R que recrean las gráficas de junto, revisaremos la relación del perfil educativo y laboral de una sección electoral con la votación registrada por los partidos principales; la seción electoral es la unidad espacial de operaciones electorales, que incluye entre 200 y 1500 electores y que puede tener una o más casillas.
     Los datos son obtenidos del Organismo Público Local de Veracruz y del INEGI, abajo están las ligas para descargar los archivos. El data frame final consta de 4808 registros por partido, lo cual son muchos datos puntuales, por lo cual se complementa la visualización con líneas de tendencia.
 

library(magrittr)
library(dplyr)
library(janitor)
library(foreign)
library(tibble)
library(ggplot2)
library(tidyr)
library(readr)
library(editheme)
set_base_sty("Tomorrow Night 80s")

#  links para descargar:
# resultados electorales Veracruz 2017
"http://prep2017-ver.ine.mx/20170605_1800_BD.tar.gz"
# datos socioeconómicos por sección electoral (hay que instalar el programa)
"http://gaia.inegi.org.mx/geoelectoral/doctos/ECEG_30.zip"
                                                          
#   cargar información educativa, poblacional y económica por sección electoral   #
#   seleccionar variables de interés y cálculo de proporción de población         #
#   económicamente activa                                                         #
secc_educ <- read.dbf("/DATOS/ECEG2010/caracteristicasEducativas/secciones_E30.dbf") %>%
             clean_names() %>% as.tibble()  %>% select(seccion, graproes, p15ym_an, nom_mun)
secc_pob <- read.dbf("/DATOS/ECEG2010/poblacion/secciones_E30.dbf") %>%
  clean_names() %>% as.tibble() %>% select(seccion, pobtot, p_15ymas)
secc_eco <- read.dbf("/media/elio/DATOS/ECEG2010/caracteristicasEconomicas/secciones_E30.dbf") %>%
  clean_names() %>% as.tibble() %>% mutate(fraccion_activa=pea/(pea+pe_inac))

#    cargar resultados electorales por casilla y agrupar por sección             
ayunt <- read_delim("/home/elio/Downloads/VERACRUZ_AYUN_2017.csv", skip=6, delim="|") %>%
  clean_names() %>% group_by(seccion) %>%
  mutate(pan=as.integer(pan), morena=as.integer(morena), pri=as.integer(pri),
         total=as.integer(total_votos)) %>%
  summarise_at(c("pri", "morena", "pan", "total"), sum, na.rm=T)

#    juntar información en un sólo data frame y obtener proporciones por principales partidos
bases_unidas <- left_join(secc_educ, ayunt) %>% left_join(secc_eco) %>% left_join(secc_pob) %>%
  mutate(proporcion_pri=pri/total, proporcion_morena=morena/total, proporcion_pan=pan/total) %>%
  gather(proporcion_pri, proporcion_morena, proporcion_pan,
                   key = "partido", value="votacion")

#  graficamos la información y añadimos líneas de tendencia para visualizar el
#  comportamiento de los datos
ggplot(bases_unidas, aes(fraccion_activa, votacion, colour=partido)) +
   theme_editor() + geom_point(size=0.3, alpha=0.1) + geom_smooth(se=F, method="lm") +
   labs(title="Población económicamete activa ~ votación",
   caption="elección ayuntamiento 2017, veracruz. datamarindo.blogspot.com") +
   xlab("fracción población económicamente activa") +
   scale_color_manual(values=c("tomato", "paleturquoise3", "green"))
  
ggplot(bases_unidas, aes(graproes, votacion, colour=partido)) +
  theme_editor() + geom_point(size=0.3, alpha=0.1) + geom_smooth(se=F, method="lm") +
  labs(title="Grado promedio escolar ~ votación",
       caption="elección ayuntamiento 2017, veracruz. datamarindo.blogspot.com") +
  xlab("Grado promedio escolar (6 = primaria, 15 = profesional)") +
  scale_color_manual(values=c("tomato", "paleturquoise3", "green"))

Las gráficas hablan bastante por sí solas, un dato muy interesante es que las secciones con menor proporción de PEA (población económicamente activa) se inclinan menos por Morena, que es un partido que promueve la asistencia social, mientras que el partido tiene mejores votaciones en aquellos lugares con mayor proporción de la PEA, ésta es la relación inesperada de la que habla el título. El PAN y el PRI tienen fortaleza en las secciones con mayor rezago, que suelen tener mucha participación en las elecciones, por lo cual son decisivas para obtener buenos resultados.


This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License.