Índice

Parte I: Trabajo sobre los datos electorales (1989-hoy)


Parte II: Gastos e ingresos de candidatos y partidos

Presidentes

(volver al índice)

La tabla se llama presidentes_unidos.rds y puede descargarla acá: (descargar)

Falta agregarle el tratamiento para construir el codigo de lista para el año 2017

1 Revisemos la estructura de la tabla en bruto:

presidentes <- readRDS("presidentes_codigos_final.rds")
predi_head <- head(presidentes,10)
predi_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
AISEN NA 14 0 7 40 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN NA 14 1 25 114 T_M NA Primera votacion 2017 AYSÉN 11201
AISEN C2 18 0 1 41 MICHELLE BACHELET JERIA SEGUNDA VUELTA Primera votacion 2005 AYSÉN 11201
AISEN NA 14 1 2 41 4 ALEJANDRO GUILLIER ÁLVAREZ NA Segunda votacion 2017 AYSÉN 11201
AISEN NA 14 1 16 39 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN C4 18 1 14 29 JOAQUIN LAVIN INFANTE NA Primera votacion 2005 AYSÉN 11201
AISEN V_N 18 V 15 1 NA NA Segunda votacion 2013 AYSÉN 11201
AISEN C2 18 1 9 100 MICHELLE BACHELET JERIA PRESIDENTA Segunda votacion 2005 AYSÉN 11201
AISEN T_M 18 1 25 100 TOTAL PAIS NA Segunda votacion 2009 AYSÉN 11201
AISEN C6 18 V 8 100 BACHELET JERIA MICHELLE NA Primera votacion 2013 AYSÉN 11201


2. Obtengamos el listados de todos los candidatos a presidentes que se han presentado en alguna elección:

presindentes_unicos <- unique(presidentes$NOMBRE)
presindentes_unicos %>% 
 kbl(caption = "Candidatos a la presidencia de Chile") %>%
  kable_classic(full_width = F, html_font = "Cambria")%>%
  scroll_box(width = "100%", height = "200px")
Candidatos a la presidencia de Chile
x
4 ALEJANDRO GUILLIER ÁLVAREZ
T_M
MICHELLE BACHELET JERIA
JOAQUIN LAVIN INFANTE
NA
TOTAL PAIS
BACHELET JERIA MICHELLE
JOCELYN-HOLT LETELIER TOMAS
VOTOS BLANCO
2 JOSÉ ANTONIO KAST RIST
TOTAL NULOS
SEBASTIAN PIÑERA ECHENIQUE
8 ALEJANDRO NAVARRO BRAIN
3 SEBASTIÁN PIÑERA ECHENIQUE
6 MARCO ENRÍQUEZ-OMINAMI GUMUCIO
TOTAL BLANCOS
TOTAL MESA
5 BEATRIZ SANCHEZ MUÑOZ
7 EDUARDO ARTÉS BRICHETTI
CLAUDE REYES MARCEL
MATTHEI FORNET EVELYN
VOTOS BLANCOS
TOTAL INSCRITOS
1 CAROLINA GOIC BOROEVIC
VOTOS NULOS
TOMAS HIRSCH GOLDSCHMIDT
EDUARDO FREI RUIZ-TAGLE
ISRAEL ZIPPER RICARDO
SFEIR YOUNIS ALFREDO
JORGE ARRATE
MIRANDA MENESES ROXANA DEL CARMEN
TOTAL NACIONAL
ENRIQUEZ-OMINAMI GUMUCIO MARCO
PARISI FERNANDEZ FRANCO ALDO
MARCO ENRIQUEZ-OMINAMI
VOTOS NULOS NA NA
RICARDO LAGOS ESCOBAR
ARTURO ALESSANDRI BESA
CRISTIAN REITZE CAMPOS
VOTOS BLANCOS NA NA
TOTAL VOTACION
JOSE PIÑERA ECHENIQUE
EUGENIO PIZARRO POBLETE
ARTURO FREI BOLIVAR
TOTAL INSCRITOS NA NA
TOTAL VOTACION NA NA
TOTAL MESA NA NA
MANFRED MAX NEFF
PATRICIO AYLWIN AZOCAR
GLADYS MARIN MILLIE
HERNAN BUCHI BUC
SARA LARRAIN RUIZ-TAGLE
TOTAL NULOS NA NA
FRANCISCO JAVIER ERRAZURIZ TALAVERA
TOTAL BLANCOS NA NA


3 Obtengamos todos los años disponibles:

anios_unicos <- unique(presidentes$Año)
anios_unicos
## [1] "2017" "2005" "2013" "2009" "1999" "1989" "1993"


4 Corroboremos la integridad para 1989 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "HERNAN BUCHI BUC", presidentes$Año == "1989" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
ALGARROBO V1 122 0 6 30 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
ALGARROBO V1 122 0 4 164 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
ALGARROBO V1 122 0 2 185 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
ALGARROBO V1 122 0 3 180 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
ALGARROBO V1 122 1 6 53 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
ALGARROBO V1 122 1 2 147 HERNAN BUCHI BUC NA Primera votacion 1989 ALGARROBO 05602
# Circunscripcion_unicos <- unique(buchi_1989$Nombre.Circunscripción)


5 Corroboremos la integridad para 1993 para un candidato cualquiera:

REITZE_1993 <- filter(presidentes, presidentes$NOMBRE == "CRISTIAN REITZE CAMPOS", presidentes$Año == "1993" )
REITZE_1993_10 <- head(REITZE_1993)
REITZE_1993_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
ALGARROBO C4 6 1 2 2 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
ALGARROBO C4 6 0 3 4 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
ALGARROBO C4 6 1 3 1 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
ALGARROBO C4 6 0 2 3 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
ALGARROBO C4 6 1 1 1 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
ALGARROBO C4 6 1 5 2 CRISTIAN REITZE CAMPOS NA Primera votacion 1993 ALGARROBO 05602
# Circunscripcion_unicos <- unique(REITZE_1993$Nombre.Circunscripción)


6 Corroboremos la integridad para 1999 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "JOAQUIN LAVIN INFANTE", presidentes$Año == "1999" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
ALGARROBO C6 6 0 2 147 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602
ALGARROBO C6 6 1 6 163 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602
ALGARROBO C6 6 1 7 166 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602
ALGARROBO C6 6 0 3 163 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602
ALGARROBO C6 6 1 5 196 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602
ALGARROBO C6 6 0 1 150 JOAQUIN LAVIN INFANTE NA Segunda votacion 1999 ALGARROBO 05602


7 Corroboremos la integridad para 2005 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "SEBASTIAN PIÑERA ECHENIQUE", presidentes$Año == "2005" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
AISEN C1 18 1 4 73 SEBASTIAN PIÑERA ECHENIQUE NA Segunda votacion 2005 AYSÉN 11201
AISEN C1 18 1 18 43 SEBASTIAN PIÑERA ECHENIQUE SEGUNDA VUELTA Primera votacion 2005 AYSÉN 11201
AISEN C1 18 1 20 62 SEBASTIAN PIÑERA ECHENIQUE SEGUNDA VUELTA Primera votacion 2005 AYSÉN 11201
AISEN C1 18 1 8 74 SEBASTIAN PIÑERA ECHENIQUE NA Segunda votacion 2005 AYSÉN 11201
AISEN C1 18 1 9 77 SEBASTIAN PIÑERA ECHENIQUE NA Segunda votacion 2005 AYSÉN 11201
AISEN C1 18 1 17 90 SEBASTIAN PIÑERA ECHENIQUE NA Segunda votacion 2005 AYSÉN 11201


8 Corroboremos la integridad para 2009 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "EDUARDO FREI RUIZ-TAGLE", presidentes$Año == "2009" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
AISEN C4 18 0 17 57 EDUARDO FREI RUIZ-TAGLE NA Segunda votacion 2009 AYSÉN 11201
AISEN C4 18 0 14 65 EDUARDO FREI RUIZ-TAGLE NA Segunda votacion 2009 AYSÉN 11201
AISEN C4 18 0 15 57 EDUARDO FREI RUIZ-TAGLE NA Segunda votacion 2009 AYSÉN 11201
AISEN C4 18 0 13 77 EDUARDO FREI RUIZ-TAGLE NA Segunda votacion 2009 AYSÉN 11201
AISEN C4 18 1 2 29 EDUARDO FREI RUIZ-TAGLE SEGUNDA VOTACION Primera votacion 2009 AYSÉN 11201
AISEN C4 18 0 18 81 EDUARDO FREI RUIZ-TAGLE NA Segunda votacion 2009 AYSÉN 11201


9 Corroboremos la integridad para 2013 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "MIRANDA MENESES ROXANA DEL CARMEN", presidentes$Año == "2013" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
AISEN C5 18 M 2 0 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201
AISEN C5 18 V 7 4 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201
AISEN C5 18 V 8 4 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201
AISEN C5 18 M 8 0 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201
AISEN C5 18 M 11 1 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201
AISEN C5 18 M 14 1 MIRANDA MENESES ROXANA DEL CARMEN NA Primera votacion 2013 AYSÉN 11201


10 Corroboremos la integridad para 2017 para un candidato cualquiera:

buchi_1989 <- filter(presidentes, presidentes$NOMBRE == "4 ALEJANDRO GUILLIER ÁLVAREZ", presidentes$Año == "2017" )
buchi_1989_10 <- head(buchi_1989)
buchi_1989_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos NOMBRE ELECTO Tipo_vot Año N_Comuna Codigo_comunal
AISEN NA 14 0 7 40 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN NA 14 1 2 41 4 ALEJANDRO GUILLIER ÁLVAREZ NA Segunda votacion 2017 AYSÉN 11201
AISEN NA 14 1 16 39 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN NA 14 0 8 51 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN NA 14 1 5 35 4 ALEJANDRO GUILLIER ÁLVAREZ NA Primera votacion 2017 AYSÉN 11201
AISEN NA 14 1 24 59 4 ALEJANDRO GUILLIER ÁLVAREZ NA Segunda votacion 2017 AYSÉN 11201



Existe un error en el nombre de las circunscripciones para el año 1989



Senadores

(volver al índice)

La tabla se llama senadores_codigos_final.rds y puede descargarla acá: (descargar)

No existen comunas asociadas para el año 1989, actualmente la base de datos no contiene información para ese año, sin embargo se va a agregar de todas maneras.


1. Revisemos la estructura de la tabla en bruto:

senadores <- readRDS("senadores_codigos_final.rds")
senadores_head <- head(senadores,10)
senadores_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos Nombre Año N_Comuna Codigo_comunal
AISEN NA 14 M 22 NA G FRENTE AMPLIO 2017 AYSÉN 11201
AISEN NA 14 V 2 5 18 LUPERCIANO S MUÑOZ GONZALEZ IND-PRSD 2017 AYSÉN 11201
AISEN A1 18 0 18 1 ARMANDO COLOMA HERRERA 2001 AYSÉN 11201
AISEN NA 14 M 18 6 TOTAL LISTA G 2017 AYSÉN 11201
AISEN E4 18 1 7 54 ANSELMO SULE CANDIA 2001 AYSÉN 11201
AISEN NA 14 V 2 2 15 ANTONELLA MUÑOZ ARAYA IND-DRP 2017 AYSÉN 11201
AISEN NA 14 V 2 NA K COALICIÓN REGIONALISTA VERDE 2017 AYSÉN 11201
AISEN E4 18 0 3 34 ANSELMO SULE CANDIA 2001 AYSÉN 11201
AISEN NA 14 V 2 3 TOTAL LISTA K 2017 AYSÉN 11201
AISEN NA 14 V 16 NA O CONVERGENCIA DEMOCRATICA 2017 AYSÉN 11201


2. Veamos cuantos años tenemos para los senadores:

anios_unicos_senadores <- unique(senadores$Año)
anios_unicos_senadores
## [1] "2017" "2001" "1993" "1997" "2013" "2005"

No existen codigos comunales para 1989

3. Corroboremos la integridad para 1993 para un candidato cualquiera:

sena_1993 <- filter(senadores, senadores$Año == "1993" )
sena_1993_10 <- head(sena_1993,10)
sena_1993_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos Nombre Año N_Comuna Codigo_comunal
ALGARROBO T_B 6 1 2 146 TOTAL LISTA B NA NA 1993 ALGARROBO 05602
ALGARROBO D2 6 1 8 65 LAURA SOTO GONZALEZ 1993 ALGARROBO 05602
ALGARROBO T_B 6 1 5 124 TOTAL LISTA B NA NA 1993 ALGARROBO 05602
ALGARROBO V_N 6 1 7 7 TOTAL NULOS NA NA 1993 ALGARROBO 05602
ALGARROBO T_M 6 1 2 304 TOTAL CIRCUNSCRIPCION NA NA 1993 ALGARROBO 05602
ALGARROBO D2 6 1 2 49 LAURA SOTO GONZALEZ 1993 ALGARROBO 05602
ALGARROBO T_A 6 1 3 0 TOTAL LISTA A NA NA 1993 ALGARROBO 05602
ALGARROBO T_M 6 1 4 287 TOTAL CIRCUNSCRIPCION NA NA 1993 ALGARROBO 05602
ALGARROBO T_B 6 0 7 174 TOTAL LISTA B NA NA 1993 ALGARROBO 05602
ALGARROBO V_B 6 1 1 7 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602


4. Corroboremos la integridad para 1997 para un candidato cualquiera:

sena_1997 <- filter(senadores, senadores$Año == "1997" )
sena_1997_10 <- head(sena_1997,10)
sena_1997_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos Nombre Año N_Comuna Codigo_comunal
ALHUE D1 7 0 3 31 GLADYS MARIN MILLIE 1997 ALHUÉ 13502
ALHUE V_N 7 0 3 43 TOTAL NULOS NA NA 1997 ALHUÉ 13502
ALHUE A2 7 0 2 1 CRISTIAN REITZE CAMPOS 1997 ALHUÉ 13502
ALHUE V_B 7 0 2 19 TOTAL BLANCOS NA NA 1997 ALHUÉ 13502
ALHUE B2 7 1 1 28 ANGEL FANTUZZI HERNANDEZ 1997 ALHUÉ 13502
ALHUE B1 7 1 1 56 JOVINO NOVOA VASQUEZ 1997 ALHUÉ 13502
ALHUE V_B 7 1 1 21 TOTAL BLANCOS NA NA 1997 ALHUÉ 13502
ALHUE T_A 7 0 5 4 TOTAL LISTA A NA NA 1997 ALHUÉ 13502
ALHUE V_N 7 1 1 36 TOTAL NULOS NA NA 1997 ALHUÉ 13502
ALHUE D1 7 0 4 29 GLADYS MARIN MILLIE 1997 ALHUÉ 13502


5. Corroboremos la integridad para 2001 para un candidato cualquiera:

sena_2001 <- filter(senadores, senadores$Año == "2001" )
sena_2001_10 <- head(sena_2001,10)
sena_2001_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos Nombre Año N_Comuna Codigo_comunal
AISEN A1 18 0 18 1 ARMANDO COLOMA HERRERA 2001 AYSÉN 11201
AISEN E4 18 1 7 54 ANSELMO SULE CANDIA 2001 AYSÉN 11201
AISEN E4 18 0 3 34 ANSELMO SULE CANDIA 2001 AYSÉN 11201
AISEN T_M 18 1 1 269 TOTAL CIRCUNSCRIPCION 2001 AYSÉN 11201
AISEN T_M 18 0 17 102 TOTAL CIRCUNSCRIPCION 2001 AYSÉN 11201
AISEN I1 18 0 20 10 ORLANDO BAESLER HEGER 2001 AYSÉN 11201
AISEN E4 18 0 24 22 ANSELMO SULE CANDIA 2001 AYSÉN 11201