Í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
AISEN A1 18 0 25 6 ARMANDO COLOMA HERRERA 2001 AYSÉN 11201
AISEN E4 18 0 2 33 ANSELMO SULE CANDIA 2001 AYSÉN 11201
AISEN TC 18 0 18 49 TOTAL LISTA C 2001 AYSÉN 11201


6. Corroboremos la integridad para 2005 para un candidato cualquiera:

sena_2005 <- filter(senadores, senadores$Año == "2005" )
sena_2005_10 <- head(sena_2005,10)
sena_2005_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 TD 7 1 2 65 TOTAL LISTA D 2005 ALHUÉ 13502
ALHUE TB 7 1 1 144 TOTAL LISTA B 2005 ALHUÉ 13502
ALHUE T_M 7 0 3 240 TOTAL CIRCUNSCRIPCION 2005 ALHUÉ 13502
ALHUE B1 7 1 5 72 ANDRES ZALDIVAR LARRAIN 2005 ALHUÉ 13502
ALHUE V_B 7 0 5 7 VOTOS BLANCOS 2005 ALHUÉ 13502
ALHUE B2 7 1 5 93 GUIDO GIRARDI LAVIN 2005 ALHUÉ 13502
ALHUE D1 7 0 5 31 JOVINO NOVOA VASQUEZ 2005 ALHUÉ 13502
ALHUE TD 7 0 2 47 TOTAL LISTA D 2005 ALHUÉ 13502
ALHUE D1 7 1 3 38 JOVINO NOVOA VASQUEZ 2005 ALHUÉ 13502
ALHUE TD 7 0 5 55 TOTAL LISTA D 2005 ALHUÉ 13502


7. Corroboremos la integridad para 2013 para un candidato cualquiera:

sena_2013 <- filter(senadores, senadores$Año == "2013" )
sena_2013_10 <- head(sena_2013,10)
sena_2013_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 TOTAL PARTIDO HUMANISTA 7 1 7 1 TOTAL LISTA F 2013 ALHUÉ 13502
ALHUE V_B 7 0 3 11 VOTOS BLANCOS 2013 ALHUÉ 13502
ALHUE PARTIDO HUMANISTA 7 2 13 NA F. PARTIDO HUMANISTA 2013 ALHUÉ 13502
ALHUE TOTAL PARTIDO HUMANISTA 7 2 12 5 TOTAL LISTA F 2013 ALHUÉ 13502
ALHUE TOTAL NUEVA MAYORIA 7 2 12 28 TOTAL LISTA C 2013 ALHUÉ 13502
ALHUE TOTAL ALIANZA 7 2 12 18 TOTAL LISTA J 2013 ALHUÉ 13502
ALHUE ALIANZA 7 1 7 NA J. ALIANZA 2013 ALHUÉ 13502
ALHUE S_C 7 0 3 164 TOTAL CIRCUNSCRIPCION SENATORIAL 2013 ALHUÉ 13502
ALHUE ALIANZA 7 2 9 NA J. ALIANZA 2013 ALHUÉ 13502
ALHUE C3 7 2 14 33 1 GUIDO GIRARDI LAVIN (PPD) 2013 ALHUÉ 13502


8. Corroboremos la integridad para 2017 para un candidato cualquiera:

Falta el tratamiento de codigos de listas aplicarlo al 2017, para los demas esta OK.

sena_2017 <- filter(senadores, senadores$Año == "2017" )
sena_2017_10 <- head(sena_2017,10)
sena_2017_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 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 NA 14 M 18 6 TOTAL LISTA G 2017 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 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
AISEN NA 14 V 5 3 TOTAL VOTOS NULOS 2017 AYSÉN 11201
AISEN NA 14 V 25 26 TOTAL LISTA N 2017 AYSÉN 11201
AISEN NA 14 V 5 0 13 CARLOS CHAVEZ MARCHANT IND-TODOS 2017 AYSÉN 11201


Diputados

(volver al índice)

La tabla se llama diputados_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

diputados <- readRDS("diputados_codigos_final.rds")
diputados_head <- head(diputados,10)
diputados_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)
Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos Nombre Año N_Comuna Codigo_comunal
AISEN E2 18 1 14 51 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN A1 18 0 14 13 GONZALO FERNANDEZ RUIZ 2001 AYSÉN 11201
AISEN NA 14 V 1 18 TOTAL LISTA P 2017 AYSÉN 11201
AISEN E2 18 1 10 57 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN E PARTIDO REGIONALISTA DE LOS IND 18 0 9 NA H. NUEVA CONSTITUCION PARA CHILE 2013 AYSÉN 11201
AISEN W1 18 1 26 7 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN E PARTIDO REGIONALISTA DE LOS IND 18 1 1 NA H. NUEVA CONSTITUCION PARA CHILE 2013 AYSÉN 11201
AISEN NA 14 M 10 0 57 TAMARA ANDREA ESPINOZA GUTIERREZ 2017 AYSÉN 11201
AISEN W1 18 1 6 5 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN NA 14 V 27 3 66 PATRICIO HENRIQUEZ BARRIENTOS 2017 AYSÉN 11201

Para el año 1989 no existe el campo de comunas para las elecciones de diputados.

Falta el tratamiento de codigos de listas aplicarlo al 2017, para los demas esta OK.

Veamos cuantos años tenemos para los diputados:

anios_unicos_diputados <- unique(diputados$Año)
anios_unicos_diputados
## [1] "2001" "2017" "2013" "2005" "1997" "1993"
dipu_1993 <- filter(diputados, diputados$Año == "1993" )
dipu_1993_10 <- head(dipu_1993,10)
dipu_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 V_B 6 1 2 12 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602
ALGARROBO A1 6 1 3 3 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO B1 6 0 5 68 EVELYN MATTHEI FORNET 1993 ALGARROBO 05602
ALGARROBO A2 6 1 2 4 COSME CARACCIOLO ALVAREZ 1993 ALGARROBO 05602
ALGARROBO B2 6 0 8 64 GONZALO YUSEFF SOTOMAYOR 1993 ALGARROBO 05602
ALGARROBO V_N 6 1 6 7 TOTAL NULOS NA NA 1993 ALGARROBO 05602
ALGARROBO A1 6 0 1 8 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO A1 6 0 4 8 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO V_B 6 0 3 14 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602
ALGARROBO V_B 6 1 1 7 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602 
dipu_1997 <- filter(diputados, diputados$Año == "1997" )
dipu_1997_10 <- head(dipu_1993,10)
dipu_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
ALGARROBO V_B 6 1 2 12 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602
ALGARROBO A1 6 1 3 3 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO B1 6 0 5 68 EVELYN MATTHEI FORNET 1993 ALGARROBO 05602
ALGARROBO A2 6 1 2 4 COSME CARACCIOLO ALVAREZ 1993 ALGARROBO 05602
ALGARROBO B2 6 0 8 64 GONZALO YUSEFF SOTOMAYOR 1993 ALGARROBO 05602
ALGARROBO V_N 6 1 6 7 TOTAL NULOS NA NA 1993 ALGARROBO 05602
ALGARROBO A1 6 0 1 8 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO A1 6 0 4 8 MIREYA BALTRA MORENO 1993 ALGARROBO 05602
ALGARROBO V_B 6 0 3 14 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602
ALGARROBO V_B 6 1 1 7 TOTAL BLANCOS NA NA 1993 ALGARROBO 05602 
dipu_2001 <- filter(diputados, diputados$Año == "2001" )
dipu_2001_10 <- head(dipu_2001,10)
dipu_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 E2 18 1 14 51 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN A1 18 0 14 13 GONZALO FERNANDEZ RUIZ 2001 AYSÉN 11201
AISEN E2 18 1 10 57 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN E2 18 0 13 35 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN A1 18 0 7 13 GONZALO FERNANDEZ RUIZ 2001 AYSÉN 11201
AISEN E2 18 0 20 52 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN A1 18 1 2 8 GONZALO FERNANDEZ RUIZ 2001 AYSÉN 11201
AISEN E2 18 0 10 34 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
AISEN C1 18 1 7 43 PABLO GALILEA CARRILLO 2001 AYSÉN 11201
AISEN TA 18 1 9 10 TOTAL LISTA A 2001 AYSÉN 11201 
dipu_2005 <- filter(diputados, diputados$Año == "2005" )
dipu_2005_10 <- head(dipu_2005,10)
dipu_2005_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 D2 18 1 7 49 PABLO GALILEA CARRILLO 2005 AYSÉN 11201
AISEN V_B 18 0 10 7 VOTOS BLANCOS 2005 AYSÉN 11201
AISEN T_M 18 0 2 145 TOTAL MESA 2005 AYSÉN 11201
AISEN V_B 18 0 4 7 VOTOS BLANCOS 2005 AYSÉN 11201
AISEN B1 18 0 5 33 EDUARDO SANTELICES PUELMA 2005 AYSÉN 11201
AISEN V_B 18 0 1 4 VOTOS BLANCOS 2005 AYSÉN 11201
AISEN C1 18 0 1 5 YASNA JARA AMPUERO 2005 AYSÉN 11201
AISEN V_B 18 0 7 3 VOTOS BLANCOS 2005 AYSÉN 11201
AISEN A6 18 0 15 2 MERCEDES MAYORGA PEREZ 2005 AYSÉN 11201
AISEN C1 18 0 10 7 YASNA JARA AMPUERO 2005 AYSÉN 11201 
dipu_2013 <- filter(diputados, diputados$Año == "2013" )
dipu_2013_10 <- head(dipu_2013,10)
dipu_2013_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 E PARTIDO REGIONALISTA DE LOS IND 18 0 9 NA H. NUEVA CONSTITUCION PARA CHILE 2013 AYSÉN 11201
AISEN W1 18 1 26 7 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN E PARTIDO REGIONALISTA DE LOS IND 18 1 1 NA H. NUEVA CONSTITUCION PARA CHILE 2013 AYSÉN 11201
AISEN W1 18 1 6 5 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN W1 18 0 10 5 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN C NUEVA MAYORIA 18 1 16 NA C. NUEVA MAYORIA 2013 AYSÉN 11201
AISEN TOTAL ALIANZA 18 0 15 49 TOTAL LISTA J 2013 AYSÉN 11201
AISEN W1 18 0 18 7 7 CLAUDIA A. TORRES DELGADO 2013 AYSÉN 11201
AISEN C8 18 1 13 39 2 IVAN FUENTES CASTILLO 2013 AYSÉN 11201
AISEN C NUEVA MAYORIA 18 1 5 NA C. NUEVA MAYORIA 2013 AYSÉN 11201 
dipu_2017 <- filter(diputados, diputados$Año == "2017" )
dipu_2017_10 <- head(dipu_2017,10)
dipu_2017_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 NA 14 V 1 18 TOTAL LISTA P 2017 AYSÉN 11201
AISEN NA 14 M 10 0 57 TAMARA ANDREA ESPINOZA GUTIERREZ 2017 AYSÉN 11201
AISEN NA 14 V 27 3 66 PATRICIO HENRIQUEZ BARRIENTOS 2017 AYSÉN 11201
AISEN NA 14 M 14 NA O CONVERGENCIA DEMOCRATICA 2017 AYSÉN 11201
AISEN NA 14 V 27 4 TOTAL IND 2017 AYSÉN 11201
AISEN NA 14 V 10 0 55 PEDRO ANTONIO VERGARA ROJAS 2017 AYSÉN 11201
AISEN NA 14 V 11 3 TOTAL LISTA K 2017 AYSÉN 11201
AISEN NA 14 N 33 6 59 MARISOL MARTINEZ SANCHEZ 2017 AYSÉN 11201
AISEN NA 14 M 1 3 66 PATRICIO HENRIQUEZ BARRIENTOS 2017 AYSÉN 11201
AISEN NA 14 V 27 4 69 CECILIO AGUILAR GALINDO 2017 AYSÉN 11201


Alcaldes

(volver al índice)

La tabla se llama alcaldes_codigos_final.rds y puede descargarla acá: Alcaldes 

alcaldes <- readRDS("alcaldes_codigos_final.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)
Comuna Circunscripción Tipo de mesa Numero de mesa Votos Candidato Votos TER Pacto Año N_Comuna Codigo_comunal
AISEN 18 NA 32 4 OSCAR CATALAN SANCHEZ 17 COALICION 2012 AYSÉN 11201
AISEN 18 NA 32 3 MARISOL MARTINEZ SANCHEZ 9 CONCERTACION DEMOCRATICA 2012 AYSÉN 11201
AISEN 18 NA 33 1 SERGIO ARTURO GONZALEZ BORQUEZ 4 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 NA 32 90 VOTOS NULOS 2 NA 2012 AYSÉN 11201
AISEN 14 M 3 901 VOTOS EN BLANCO 2 NA 2016 AYSÉN 11201
AISEN 14 M 5 1 MARCELO RODRIGUEZ AVILES 57 PACTO NUEVA MAYORIA 2016 AYSÉN 11201
AISEN 14 M 3 2 OSCAR SERVANDO CATALAN SANCHEZ 81 PACTO CHILE VAMOS 2016 AYSÉN 11201
AISEN 18 NA 32 91 VOTOS EN BLANCO 1 NA 2012 AYSÉN 11201
AISEN 14 M 1 900 VOTOS NULOS 1 NA 2016 AYSÉN 11201
AISEN 14 M 6 1 MARCELO RODRIGUEZ AVILES 57 PACTO NUEVA MAYORIA 2016 AYSÉN 11201 
anios_unicos_alcaldes <- unique(alcaldes$Año)
anios_unicos_alcaldes
## [1] "2012" "2016"
alca_2017 <- filter(alcaldes, alcaldes$Año == "2012" )
alca_2017_10 <- head(alca_2017,10)
alca_2017_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)
Comuna Circunscripción Tipo de mesa Numero de mesa Votos Candidato Votos TER Pacto Año N_Comuna Codigo_comunal
AISEN 18 NA 32 4 OSCAR CATALAN SANCHEZ 17 COALICION 2012 AYSÉN 11201
AISEN 18 NA 32 3 MARISOL MARTINEZ SANCHEZ 9 CONCERTACION DEMOCRATICA 2012 AYSÉN 11201
AISEN 18 NA 33 1 SERGIO ARTURO GONZALEZ BORQUEZ 4 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 NA 32 90 VOTOS NULOS 2 NA 2012 AYSÉN 11201
AISEN 18 NA 32 91 VOTOS EN BLANCO 1 NA 2012 AYSÉN 11201
AISEN 18 NA 32 1 SERGIO ARTURO GONZALEZ BORQUEZ 10 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 NA 32 2 JUAN LUIS ATTON VALENZUELA 1 EL CAMBIO POR TI 2012 AYSÉN 11201
AISEN 18 M 7 1 SERGIO ARTURO GONZALEZ BORQUEZ 23 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 M 7 2 JUAN LUIS ATTON VALENZUELA 3 EL CAMBIO POR TI 2012 AYSÉN 11201
AISEN 18 M 7 3 MARISOL MARTINEZ SANCHEZ 47 CONCERTACION DEMOCRATICA 2012 AYSÉN 11201


Concejales

(volver al índice)

La tabla se llama concejales_codigos_final.rds y puede descargarla acá: Concejales 

alcaldes <- readRDS("concejales_codigos_final.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)
Comuna Circunscripción Tipo de mesa Numero de mesa Votos Candidato Votos TER Pacto Año N_Comuna Codigo_comunal
AISEN 14 V 1 31 LUIS MARTINEZ GALLARDO 5 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 1 30 SANDRO PARRA SOTO 0 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 1 29 LUIS OTTH FONSECA 6 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 1 28 MARIA MANQUEMILLA ANDRADE 3 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 11 22 CECILIA DEL CARMEN MAYORGA ACUÑA 0 PACTO CHILE VAMOS PRI-EVOPOLI E INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 3 34 FLORIDOR DEL CARMEN BASTIAS LLAFQUEN 0 PACTO ALTERNATIVA DEMOCRATICA 2016 AYSÉN 11201
AISEN 14 V 11 23 JUAN PABLO MAYORGA LOPEZ 0 PACTO CHILE VAMOS PRI-EVOPOLI E INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 3 31 LUIS MARTINEZ GALLARDO 12 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
AISEN 14 V 2 5 GUIDO JARAMILLO VERA 3 PACTO NUEVA MAYORIA PARA CHILE 2016 AYSÉN 11201
AISEN 14 V 11 21 PATRICIO GUILLERMO CHIGUAY LEPIO 1 PACTO CHILE VAMOS PRI-EVOPOLI E INDEPENDIENTES 2016 AYSÉN 11201 
anios_unicos_alcaldes <- unique(alcaldes$Año)
anios_unicos_alcaldes
## [1] "2016" "2012"
alca_2017 <- filter(alcaldes, alcaldes$Año == "2012" )
alca_2017_10 <- head(alca_2017,10)
alca_2017_10 %>%  kbl() %>%
 kable_material(c("striped", "hover"), font_size = 12)
Comuna Circunscripción Tipo de mesa Numero de mesa Votos Candidato Votos TER Pacto Año N_Comuna Codigo_comunal
AISEN 18 V 17 25 HECTOR EDGARDO AGUILERA VELASQUEZ 0 MAS HUMANOS 2012 AYSÉN 11201
AISEN 18 V 17 22 ISAAC OVANDO BELLO 4 CONCERTACION DEMOCRATICA 2012 AYSÉN 11201
AISEN 18 V 17 26 JUAN PABLO JAVIER VARGAS GUAQUEL 2 MAS HUMANOS 2012 AYSÉN 11201
AISEN 18 V 17 27 FLORIDOR DEL CARMEN BASTIAS LLAFQUEN 1 MAS HUMANOS 2012 AYSÉN 11201
AISEN 18 V 17 5 ROSA ELVIRA CHAVEZ NITOR 11 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 V 17 8 VICENTE SEGUNDO HARO CHAVEZ 2 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 V 17 9 ADOLFO DAVID VILLANUEVA ALTAMIRANO 4 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 V 17 10 HECTOR ESTEBAN BARRIENTOS FERRADA 4 REGIONALISTAS E INDEPENDIENTES 2012 AYSÉN 11201
AISEN 18 V 16 900 VOTOS NULOS 3 NA 2012 AYSÉN 11201
AISEN 18 V 16 901 VOTOS EN BLANCO 1 NA 2012 AYSÉN 11201


Parte II: Gastos e ingresos de candidatos y partidos

Gastos e ingresos de candidatos

Puede descargar las tablas con gastos e ingresos por candidatos acá: Ingresos y gastos por candidato


Gastos


1 Gastos de concejales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/gastos_concejales.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido En que se gasto Monto Anio Primarias
ORLANDO CLAVIJO MORALES INDEPENDIENTES (RO)REEMBOLSO 180000 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES MATERIALES PROPAGANDA 1890 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES PAGO INTERESES PRESTADOS 41850 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES APORTE PROMOTORAS 12469 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES REGALO ADHERENTE 997 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES COMPRA GENERO CENEFA 7900 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES COMPRA BENCINA 20970 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES COMPRA BENCINA 19807 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES COMPRA TONER FOTOCOPIAS 30000 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES ORGANIZA EVENTO SOCIAL 18337 2004 No

2 Gastos de diputados

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/gastos_diputados.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido Gasto Monto año primaria
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARTICULOS PARA PUBLICIDAD 118800 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO COMBUSTILE 266648 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARTICULOS PARA PUBLICIDAD 79800 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARTICULOS PARA PUBLICIDAD 63900 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO PRODUCCION DE EVENTOS 1428000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO COMBUSTIBLE 705300 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARTICULOS PARA PUBLICIDAD 143800 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ENCUESTAS 3100000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARRIENDO DE CAMIONETAS 1500000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO ARTICULOS PARA PUBLICIDAD 57000 2005 no

3 Gastos de presidentes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/gastos_presidentes.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
a NA NA NA año Primarias
SEBASTIAN PIÑERA RENOVACION NACIONAL BENCINA MOVILIZACION PROYECTOS 54400 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL TRASLADO DE PERSONAL 2e+05 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL TRASLADO DE PERSONAL 1000511 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL POR DESPLAZAMIENTO EN CAMPANA X RE 9900 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL POR DESPLAZAMIENTO EN CAMPANA X RE 9900 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL MOVILIZACION DE PERSONAS ACTO PUBLICO 570000 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL MOVILIZACION DE PERSONAS ACTO PUBLICO 60000 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL MOVILIZACION DE PERSONAS ACTO PUBLICO 35000 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL TRASLADO DE LETREROS Y PALOMAS 1500000 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL TRASLADO DE LETREROS Y PALOMAS 1500000 2005 No

4 Gastos de senadores

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/gastos_senadores.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido En que se gasto Monto Anio
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUO GRATUITO VEHICULO 1710000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUO GRATUITO VEHICULO 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUOP GRATUITO VEHICULO 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRCTUO GRATUITO VEHICULKO 1080000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUO GRATUITO VEHICULO 1350000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUO GRATUITO VEHICULO 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUO GRATUITO VEHICULO 1080000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUPO GRATUITO VEHICULO 1350000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRUCTUPO GRATUITO VEHICULO 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO USUFRCTUO GRATUITO VEHICULO 900000 2005


Ingresos


5 Ingresos de concejales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/ingresos_concejales.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido En que se gasto Monto Anio Primarias
ORLANDO CLAVIJO MORALES INDEPENDIENTES 11817033-4 180000 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 96792430-K 1890 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES
41850 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 77202570-K 12469 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 77202570-K 997 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 78962740-1 7900 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 77867210-3 20970 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 77867210-3 19807 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 9269503-4 30000 2004 No
RAMON NICANOR LIEBSCH MUNDACA INDEPENDIENTES 4365091-2 18337 2004 No


6 Ingresos de diputados

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/ingresos_diputados.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido Donador Monto año primaria
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 7400000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO MARINETTI SA 1657538 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO MARINETTI SA 80296 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO MARINETTI SA 1229178 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 72000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 3000000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 600000 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 18049 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO SERVEL 14818760 2005 no
GASTON LUIS PARETO PARTIDO DEMOCRATA CRISTIANO BANCO DEL DESARROLLO 220273 2005 no


7 Ingresos de presidentes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/ingresos_presidentes.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
a NA NA NA año Primarias
SEBASTIAN PIÑERA RENOVACION NACIONAL ADMINISTRADORES DE CAMPANA 4500000 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL BANCO SANTANDER CHILE 3578742883 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL REPUBLICA DE CHILE SERVICIO ELECTORAL 297253678 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL INMOBILIARIA MONTE ACONCAGUA SA 4e+06 2005 No
SEBASTIAN PIÑERA RENOVACION NACIONAL SEBASTIAN PIERA ECHENIQUE 18043435 2005 No
MICHELLE BACHELET PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 1e+08 2005 No
MICHELLE BACHELET PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 2083334 2005 No
MICHELLE BACHELET PARTIDO SOCIALISTA DE CHILE APORTES ANONIMOS MESDE SEPTIEMBRE 3811700 2005 No
MICHELLE BACHELET PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 503200958 2005 No
MICHELLE BACHELET PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 8051215 2005 No


8 Ingresos de senadores

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_candidatos/ingresos_senadores.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Nombre Partido Proveedor Monto Anio
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO ARTURO A HITSCHFELD GONZALEZ 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO EDUARDO JORGE KRAUSESTANGE 1350000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO CARMEN PAZ BENAVIDESCUEVAS 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO CARMEN PAZ BENAVIDESCUEVAS 1710000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO MIRTA INELIA JEREZ OYARZO 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO SAMUEL GONZALES MOLINA 1080000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO MARGARITA M QUEZADAVELASQUEZ 1350000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO MARISOL OLAVE MARDONES 1080000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO OSCAR VALENZUELA MEZA 900000 2005
SERGIO PAEZ PARTIDO DEMOCRATA CRISTIANO JUAN ENRIQUE ULLOA GIPOULOU 1350000 2005


Gastos e ingresos de partidos

Puede descargar las tablas con gastos e ingresos por partidos acá: Ingresos y gastos por partido

Gastos

1 Gastos de alcaldes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_alcaldes_gastos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido En que se gasto Monto año Clase
ALCALDE PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 86297 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 1547000 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 57750 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 40186 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 17027 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 35400 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 34910 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 21468 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 91950 2004 No
ALCALDE PARTIDO COMUNISTA DE CHILE Propaganda 14150 2004 No

2 Gastos de concejales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_consejales_gastos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido En que se gasto Monto año Clase
CONCEJAL PARTIDO COMUNISTA DE CHILE Propaganda 9996000 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 154372 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 155556 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 144588 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 155556 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Desplazamientos y transportes contratados 101150 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 185278 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 77778 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Servicios prestados a la candidatura 441218 2004 No
CONCEJAL PARTIDO COMUNISTA DE CHILE Desplazamientos y transportes contratados 44000 2004 No

3 Gastos de diputados

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_diputados_gastos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido En que se gasto Monto año Clase
DIPUTADO RENOVACION NACIONAL Propaganda 3094000 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 1547000 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 473382 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 123760 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 1887935 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 8125963 2005 No
DIPUTADO RENOVACION NACIONAL Propaganda 2896086 2005 No
DIPUTADO RENOVACION NACIONAL Patrocinios y/o donaciones 4000000 2005 No
DIPUTADO RENOVACION NACIONAL Patrocinios y/o donaciones 2000000 2005 No
DIPUTADO RENOVACION NACIONAL Patrocinios y/o donaciones 1000000 2005 No

4 Gastos de presidentes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_presidentes_gastos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido En que se gasto Monto año Clase
PRESIDENTE ALIANZA Propaganda 928200 2005 No
PRESIDENTE ALIANZA Propaganda 1856400 2005 No
PRESIDENTE ALIANZA Propaganda 1856400 2005 No
PRESIDENTE ALIANZA Gastos Menores 57860 2005 No
PRESIDENTE ALIANZA Propaganda 1372307 2005 No
PRESIDENTE ALIANZA Propaganda 414477 2005 No
PRESIDENTE ALIANZA Propaganda 1237600 2005 No
PRESIDENTE ALIANZA Propaganda 328440 2005 No
PRESIDENTE ALIANZA Propaganda 470764 2005 No
PRESIDENTE ALIANZA Propaganda 1211420 2005 No

5 Gastos de consejeros regionales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_CONSEJERO_REGIONAL_gastos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido Donante Monto año Clase
CONSEJERO REGIONAL FUERZA DEL NORTE Carlos Vila Molina 2500 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE C.M.C LTDA. 5000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Café Britt Chile Ltda. 3300 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Manuel Rivera Martinez 3000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Transp., Tecnologia y Giros Egt. 6947 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Jocelyne Balbontin Eguiluz 10000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Henri Iracabal Ottii 6000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Jocelyne Balbontin Eguiluz 2000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE C.M.C LTDA. 5000 2013 No
CONSEJERO REGIONAL FUERZA DEL NORTE Henri Iracabal Ottii 15000 2013 No

Ingresos

6 Ingresos de alcaldes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_alcaldes_ingresos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido Donante Monto año Clase
ALCALDE RENOVACION NACIONAL NA 6101013 2008 No
ALCALDE RENOVACION NACIONAL NA 611257227 2008 No
ALCALDE RENOVACION NACIONAL NA 248539004 2008 No
ALCALDE PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 222263251 2008 No
ALCALDE PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 73873156 2008 No
ALCALDE PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 260683535 2008 No
ALCALDE PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 5360647 2008 No
ALCALDE PARTIDO DEMOCRATA CRISTIANO JAIME RAVINET 2642402 2008 No
ALCALDE UNION DEMOCRATA INDEPENDIENTE PABLO ZALAQUET 26692886 2008 No
ALCALDE UNION DEMOCRATA INDEPENDIENTE SERVEL 314750451 2008 No

7 Ingresos de concejales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_consejales_ingresos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido Donante Monto año Clase
CONCEJAL RENOVACION NACIONAL NA 282906753 2008 No
CONCEJAL RENOVACION NACIONAL NA 206552124 2008 No
CONCEJAL RENOVACION NACIONAL NA 499835522 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO NA 220249 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 254288409 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 11449367 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 162957790 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 1509854176 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 254465453 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 400712115 2008 No

8 Ingresos de diputados

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_diputados_ingresos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido Donante Monto año Clase
CONCEJAL RENOVACION NACIONAL NA 282906753 2008 No
CONCEJAL RENOVACION NACIONAL NA 206552124 2008 No
CONCEJAL RENOVACION NACIONAL NA 499835522 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO NA 220249 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 254288409 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 11449367 2008 No
CONCEJAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 162957790 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 1509854176 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 254465453 2008 No
CONCEJAL UNION DEMOCRATA INDEPENDIENTE SERVEL 400712115 2008 No

9 Ingresos de presidentes

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_presidentes_ingresos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido En que se gasto Monto año Clase
PRESIDENTE RENOVACION NACIONAL RENOVACION NACIONAL 43645041 2005 No
PRESIDENTE RENOVACION NACIONAL NA 58535727 2005 No
PRESIDENTE RENOVACION NACIONAL NA 918846847 2005 No
PRESIDENTE UNION DEMOCRATA INDEPENDIENTE APORTE PATRIMONIAL 0 2005 No
PRESIDENTE UNION DEMOCRATA INDEPENDIENTE BANCO DE CREDITO E I NVERSIONES 5191200 2005 No
PRESIDENTE UNION DEMOCRATA INDEPENDIENTE VARIOS PROVEEDORES 71157961 2005 No
PRESIDENTE UNION DEMOCRATA INDEPENDIENTE BANCO DE CREDITO E I NVERSIONES 600000000 2005 No
PRESIDENTE UNION DEMOCRATA INDEPENDIENTE SERVCIO ELECTORAL 741953423 2005 No
PRESIDENTE PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 700000000 2005 No
PRESIDENTE PARTIDO SOCIALISTA DE CHILE BANCO DEL DESARROLLO 7620690 2005 No

10 Ingresos de consejeros regionales

(volver al índice)

alcaldes <- readRDS("rds_gastos_e_ingresos_partidos/partido_CONSEJERO_REGIONAL_ingresos.rds")
alcaldes_head <- head(alcaldes,10)
alcaldes_head %>%
  kbl() %>%
 kable_material(c("striped", "hover"), full_width = F, font_size = 12)%>%
  scroll_box(width = "100%", height = "200px")
Tipo Partido Donante Monto año Clase
CONSEJERO REGIONAL FUERZA DEL NORTE TESORERIA GENERAL DE LA REPUBLICA 5713655 2013 No
CONSEJERO REGIONAL MOVIMIENTO AMPLIO SOCIAL SERVICIO ELECTORAL 44913 2013 No
CONSEJERO REGIONAL MOVIMIENTO AMPLIO SOCIAL SERVICIO ELECTORAL 16866333 2013 No
CONSEJERO REGIONAL PARTIDO COMUNISTA DE CHILE NA 46021921 2013 No
CONSEJERO REGIONAL PARTIDO COMUNISTA DE CHILE NA 71943928 2013 No
CONSEJERO REGIONAL PARTIDO DE IZQUIERDA CIUDADANA DE CHILE SERVEL 6765489 2013 No
CONSEJERO REGIONAL PARTIDO DE IZQUIERDA CIUDADANA DE CHILE SERVEL 115378 2013 No
CONSEJERO REGIONAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 30000000 2013 No
CONSEJERO REGIONAL PARTIDO DEMOCRATA CRISTIANO SERVICIO ELECTORAL 184062261 2013 No
CONSEJERO REGIONAL PARTIDO DEMOCRATA CRISTIANO NA 321505 2013 No