Índice:
Gastos de candidatos
Diputados
(volver al índice)
bd_dip <- readRDS("diputados_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN D2 18 1 12 54
## 2 AISEN B2 18 0 10 63
## 3 AISEN E2 18 0 8 53
## 4 AISEN <NA> 14 M 14 1
## 5 AISEN D2 18 1 14 49
## Nombre Año N_Comuna Codigo_comunal
## 1 PABLO GALILEA CARRILLO 2005 AYSÉN 11201
## 2 RENE ALINCO BUSTOS 2005 AYSÉN 11201
## 3 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
## 4 53 MARISOL LUSDEMIA PINILLA VEJAR 2017 AYSÉN 11201
## 5 PABLO GALILEA CARRILLO 2005 AYSÉN 11201
direccion_gasto <- dir("rds_gastos_e_ingresos_candidatos/gastos/", pattern = ".rds")
archivo_gasto <- paste("rds_gastos_e_ingresos_candidatos/gastos/",direccion_gasto, sep = "")
archivo_gasto
## [1] "rds_gastos_e_ingresos_candidatos/gastos/gastos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/gastos/gastos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/gastos/gastos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/gastos/gastos_senadores.rds"
diputados_gastos <- readRDS(archivo_gasto[2])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',Nombre))
archivo <- filter(archivo, !grepl('VOTOS',Nombre))
archivo <- filter(archivo, !grepl('_',Nombre))
archivo <- unique(archivo$Nombre)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,25 )
elec2
## [1] "NION PATRIOTICA" "JAIME BELLOLIO AVARIA" "OR TODO CHILE"
## [4] "JUAN DOMINGO VILLAVICE" "MARCELO LOPEZ SALAZAR" "JUANA SILVA MUÑOZ"
## [7] "ONVERGENCIA DEMOCRATIC" "VICTOR RICARDO CERDA M" "ALENA GUTIERREZ MORENO"
## [10] "ERTO HADDAD VALECH" "DIEGO EDUARDO CALDERON" "JUAN A. COLOMA ALAMOS"
## [13] "S LEONCIO ALVAREZ GONZ" "GE MARIO SAAVEDRA CANA" "FRANCISCO A. PARRA PI"
## [16] "ALEJANDRA NOVOA SANDOV" "ALEJANDRO IGNACIO IRAR" "IANA CHIRINO FERNANDEZ"
## [19] "FRANCISCO VALDES REYES" "PARTIDO HUMANISTA" "DENISE PASCAL ALLENDE"
## [22] "JAIME BELLOLIO AVARIA" "ZALO URIARTE HERRERA" "CARLOS ALBERTO NAVARRO"
## [25] "A FUERZA DE LA MAYORIA" "MARIO FAJARDO PEREZ" "JOSE LUIS STARK AGUILE"
## [28] "ESPERANZA P. RUBIO AB" "ARSENIO ALVAREZ ARMIJO" "DAVID ALEXIS SALDAÑA V"
## [31] "MANUEL RETAMAL JARA" "HILE VAMOS" "MEN GLORIA AYALA BASTI"
## [34] "SUSANA SANCHEZ GONGORA" "MARISELA SANTIBANEZ NO" "MARCELO VERA PAVEZ"
## [37] "RAUL LEIVA CARVAJAL" "PAULA ZUÑIGA CALDERON" "RENTE AMPLIO"
## [40] "CLARA RIOS LUEIZA" "ANGEL RICARDO BOZAN RA" "ANGELICA PINO SAN MART"
## [43] "YOVANNA FUENTES PINO" "ME A. SUAREZ GONZALEZ" "LEONARDO SOTO FERRADA"
## [46] "CELA PAZ MALLEA BUSTOS" "ROBERTO CARLOS OVALLE " "LIANZA"
## [49] "ESTEBAN CACERES OLAVE" "MARCIA MILLAQUEO IBARR" "DAVID MORALES NORDETTI"
## [52] "CLAUDIO PATRICIO MONTE" "JUAN ANTONIO COLOMA AL" "NUEVA MAYORIA"
## [55] "ME JIMENEZ VILLAVICENC" "UEVA CONSTITUCION PARA" "DENNY FLORES BUSTOS"
## [58] "ANTONIO HORVATH GUTIER" "RENATO GARIN GONZALEZ" "I TU QUIERES CHILE CAM"
## [61] "CELA MALLEA BUSTOS" "O LAZZARO NOVOA" "ISE PASCAL ALLENDE"
## [64] "MARCIA GONZALEZ NAVARR" "DO GARCIA VILLARROEL" "ISABEL MARGARITA LABBE"
## [67] " MARIA SANTELICES QUIN" "O ANDRES LAZZARO NOVOA" "PATRICIO GONZALEZ DOLZ"
## [70] "MARIO GEBAUER BRINGAS" "JORGE MADRIAGA CELIS" "ENIO BENITEZ RAMIREZ"
## [73] "NCISCO PUGA HAMILTON" "N ANTONIO COLOMA CORRE"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_gastos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
Gasto
|
Monto
|
año
|
primaria
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
CONTRATO ARRIENDO SEDE
|
1455542
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTION E IMPLEMENTACION PARA EL DESARROLLO DE P
|
290281
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
JEFE CAMPAÑA CANDIDATO DIPUTADO MES SEPTIEMBRE
|
1000000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ENCARGADO TERRITORIAL MES DE SEPTIEMBRE
|
666666
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO ADMINISTRACIÓN ELECTORAL MES DE SEPTIEMBRE
|
277778
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO ADMINISTRACIÓN ELECTORAL MES OCTUBRE
|
555556
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTIÓN E IMPLEMENTACIÓN PARA EL DESARROLLO DE P
|
791676
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
AVISOS RADIALES, RADIO IGNACIO SERRANO CB 54 A.M. DE MELIPIL
|
1008000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS DIGITALES SERVICIOS DE CONTENIDOS, PIEZAS GRÁFICAS
|
3475000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN PERIÓDICOS
|
7437500
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ESPACIOS PUBLICITARIOS RADIAL
|
2720000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN PERIÓDICOS
|
6693750
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN IMANES
|
2677500
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTIÓN E IMPLEMENTACIÓN PARA EL DESARROLLO DE P
|
791676
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS DIGITALES SERVICIOS DE CONTENIDOS, PIEZAS GRÁFICAS
|
3475000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
36 FRASES DE 30 SEGUNDO CADA UNA, EN RADIO EL CONQUISTADOR F
|
1318144
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS PROFESIONALES
|
1000000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ENCARGADO TERRITORIAL MESES OCTUBRE Y NOVIEMBRE
|
666666
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA PINO DIMENSIONADO CONFECCIÓN PALOMAS
|
1031492
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS PROFESIONALES
|
600000
|
2017
|
no
|
archivo_gasto2 <- paste(direccion_gasto[2],"_ph.rds", sep = "")
archivo_gasto2 <- str_replace(archivo_gasto2, ".rds_", "_")
# saveRDS(receptaculo,archivo_gasto2)
Padre Hurtado 2017
(volver al índice)
comuna_2017 <- readRDS("gastos_diputados_ph.rds")
comuna_2017_filtro <- filter(comuna_2017, comuna_2017$año == "2017" )
receptaculo_tab <- head(comuna_2017_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
Gasto
|
Monto
|
año
|
primaria
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
CONTRATO ARRIENDO SEDE
|
1455542
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTION E IMPLEMENTACION PARA EL DESARROLLO DE P
|
290281
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
JEFE CAMPAÑA CANDIDATO DIPUTADO MES SEPTIEMBRE
|
1000000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ENCARGADO TERRITORIAL MES DE SEPTIEMBRE
|
666666
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO ADMINISTRACIÓN ELECTORAL MES DE SEPTIEMBRE
|
277778
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO ADMINISTRACIÓN ELECTORAL MES OCTUBRE
|
555556
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTIÓN E IMPLEMENTACIÓN PARA EL DESARROLLO DE P
|
791676
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
AVISOS RADIALES, RADIO IGNACIO SERRANO CB 54 A.M. DE MELIPIL
|
1008000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS DIGITALES SERVICIOS DE CONTENIDOS, PIEZAS GRÁFICAS
|
3475000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN PERIÓDICOS
|
7437500
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ESPACIOS PUBLICITARIOS RADIAL
|
2720000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN PERIÓDICOS
|
6693750
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA CONFECCIÓN IMANES
|
2677500
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIO DE GESTIÓN E IMPLEMENTACIÓN PARA EL DESARROLLO DE P
|
791676
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS DIGITALES SERVICIOS DE CONTENIDOS, PIEZAS GRÁFICAS
|
3475000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
36 FRASES DE 30 SEGUNDO CADA UNA, EN RADIO EL CONQUISTADOR F
|
1318144
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS PROFESIONALES
|
1000000
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
ENCARGADO TERRITORIAL MESES OCTUBRE Y NOVIEMBRE
|
666666
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
PROPAGANDA PINO DIMENSIONADO CONFECCIÓN PALOMAS
|
1031492
|
2017
|
no
|
|
JAIME BELLOLIO AVARIA
|
UNION DEMOCRATA INDEPENDIENTE
|
SERVICIOS PROFESIONALES
|
600000
|
2017
|
no
|
# write.table(comuna_2017_filtro,"gastos_candidatos_ph/gastos_diputados_ph_2017.txt")
Senadores
(volver al índice)
bd_dip <- readRDS("senadores_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN <NA> 14 M 22 NA
## 2 AISEN <NA> 14 V 2 5
## 3 AISEN A1 18 0 18 1
## 4 AISEN <NA> 14 M 18 6
## 5 AISEN E4 18 1 7 54
## Nombre Año N_Comuna Codigo_comunal
## 1 G FRENTE AMPLIO 2017 AYSÉN 11201
## 2 18 LUPERCIANO S MUÑOZ GONZALEZ IND-PRSD 2017 AYSÉN 11201
## 3 ARMANDO COLOMA HERRERA 2001 AYSÉN 11201
## 4 TOTAL LISTA G 2017 AYSÉN 11201
## 5 ANSELMO SULE CANDIA 2001 AYSÉN 11201
direccion_gasto <- dir("rds_gastos_e_ingresos_candidatos/gastos/", pattern = ".rds")
archivo_gasto <- paste("rds_gastos_e_ingresos_candidatos/gastos/",direccion_gasto, sep = "")
archivo_gasto
## [1] "rds_gastos_e_ingresos_candidatos/gastos/gastos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/gastos/gastos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/gastos/gastos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/gastos/gastos_senadores.rds"
diputados_gastos <- readRDS(archivo_gasto[4])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO")
archivo <- filter(archivo, !grepl('TOTAL',Nombre))
archivo <- filter(archivo, !grepl('VOTOS',Nombre))
archivo <- filter(archivo, !grepl('_',Nombre))
archivo <- unique(archivo$Nombre)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,40 )
elec2
## [1] "UIDO GIRARDI LAVIN (PPD)" "NDRES ALLAMAND ZAVALA (RN)"
## [3] "E M. VALLEJO KNOCKAERT" "DUARDO GUTIERREZ GONZALEZ (IND)"
## [5] "DO GIRARDI LAVIN" "ILFREDO ALFSEN OVANDO (PH)"
## [7] "LBERTO UNDURRAGA VICUÑA(PDC)" "RES ZALDIVAR LARRAIN"
## [9] "DYS MARIN MILLIE" "GIO SANTANDER SEPULVEDA"
## [11] "ALIANZA" "UEVA CONSTITUCION PARA CHILE"
## [13] "ABLO ZALAQUETT SAID (UDI)" "ERTO FANTUZZI HERNANDEZ"
## [15] "ZALO ROVIRA SOTO" "ARDO ARTES BRICHETTI"
## [17] "ERGIO HENRIQUEZ FLOREZ RAMIREZ (IG)" "ARLOS A. MUÑOZ FLORES (PH)"
## [19] "INO NOVOA VASQUEZ" "STIAN REITZE CAMPOS"
## [21] "PARTIDO HUMANISTA" " FIGUEROA EDWARDS"
## [23] "EL FANTUZZI HERNANDEZ" "ILO ESCALONA MEDINA"
receptaculo <- data.frame()
for (n in 1 : 10){
names(diputados_gastos)[1] <- "Nombre"
nombres <- filter(diputados_gastos, grepl(elec2[n],Nombre))
receptaculo <- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO, HABILITACIÓN, ULTRAMAR 8394/12-10-2017 D
|
1038632
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 140 CAJAS DE CÁRTON CORRESPONDIENTE AL NÚMERO DE DE
|
416500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
VOLANTE VOTO
|
1130500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 30 CAJAS DE CÁRTON CORESPONDIENTE AL NÚMERO DE DESP
|
297500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 60 CAJAS DE CÁRTON CORRESPONDIENTE AL NÚMERO DE DES
|
357000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO, HABILITACIÓN AEROSAN S.A. 2335300/5-10-2
|
1523388
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO FLETE METROPOLITANO FAST AIR 331188-26-09
|
2237308
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO HABILITACIÓN FLETE METROPOLITANO SERVILOG
|
1224356
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DESPACHO HABILITACION FAST AIR 14319/6-10-2017 FAST A
|
5001116
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
IMPRESION TELA PVC IMPRESION DE TELA PVC 720 DOI DE RESOLUCI
|
3213000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRASES RADIALES DE 30 SEGUNDOS PERIODO DEL 28 DE SEPTIEMBRE
|
2320500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL CANDIDATO A SENADOR
|
825775
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL CANDIDATO A SENADOR
|
385560
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL DIFUSIÓN CAMPAÑA A CANDIDATURA A SENADOR A
|
261800
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD EN LINEA MAULE PARA EL CANDIDATO ANDRÉS ZALDIVAR
|
1428000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD POLÍTICA DESDE EL DÍA 28 DE SEPTIEMBRE AL 16 DE N
|
1125000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD EN RADIO AMIGA 1020 AM CANDIDATO ANDRÉS ZALDIVAR,
|
4498200
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRASES RADIALES DE 30 SEGUNDOS DEL 27 DE OCTUBRE AL 16 DE NO
|
1820000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
496 AVISOS RADIALES CAMPAÑA SENADOR
|
2360960
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
CANDIDATO A SENADOR 2017 440 FRASES DE 30 SEGUNDOS
|
2094400
|
2017
|
archivo_gasto2 <- paste(direccion_gasto[4],"_ph.rds", sep = "")
archivo_gasto2 <- str_replace(archivo_gasto2, ".rds_", "_")
# saveRDS(receptaculo,archivo_gasto2)
## Padre Hurtado 2017{#test6} (volver al índice)
comuna_2017 <- readRDS("gastos_senadores_ph.rds")
comuna_2017_filtro <- filter(comuna_2017, comuna_2017$Anio == "2017" )
receptaculo_tab <- head(comuna_2017_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO, HABILITACIÓN, ULTRAMAR 8394/12-10-2017 D
|
1038632
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 140 CAJAS DE CÁRTON CORRESPONDIENTE AL NÚMERO DE DE
|
416500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
VOLANTE VOTO
|
1130500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 30 CAJAS DE CÁRTON CORESPONDIENTE AL NÚMERO DE DESP
|
297500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ROTULADO 60 CAJAS DE CÁRTON CORRESPONDIENTE AL NÚMERO DE DES
|
357000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO, HABILITACIÓN AEROSAN S.A. 2335300/5-10-2
|
1523388
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO FLETE METROPOLITANO FAST AIR 331188-26-09
|
2237308
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DE DESPACHO HABILITACIÓN FLETE METROPOLITANO SERVILOG
|
1224356
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
GASTOS DESPACHO HABILITACION FAST AIR 14319/6-10-2017 FAST A
|
5001116
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
IMPRESION TELA PVC IMPRESION DE TELA PVC 720 DOI DE RESOLUCI
|
3213000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRASES RADIALES DE 30 SEGUNDOS PERIODO DEL 28 DE SEPTIEMBRE
|
2320500
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL CANDIDATO A SENADOR
|
825775
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL CANDIDATO A SENADOR
|
385560
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD RADIAL DIFUSIÓN CAMPAÑA A CANDIDATURA A SENADOR A
|
261800
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD EN LINEA MAULE PARA EL CANDIDATO ANDRÉS ZALDIVAR
|
1428000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD POLÍTICA DESDE EL DÍA 28 DE SEPTIEMBRE AL 16 DE N
|
1125000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PUBLICIDAD EN RADIO AMIGA 1020 AM CANDIDATO ANDRÉS ZALDIVAR,
|
4498200
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRASES RADIALES DE 30 SEGUNDOS DEL 27 DE OCTUBRE AL 16 DE NO
|
1820000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
496 AVISOS RADIALES CAMPAÑA SENADOR
|
2360960
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
CANDIDATO A SENADOR 2017 440 FRASES DE 30 SEGUNDOS
|
2094400
|
2017
|
# write.table(comuna_2017_filtro,"gastos_candidatos_ph/gastos_senadores_ph_2017.txt")
Presidentes
(volver al índice)
bd_dip <- readRDS("presidentes_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN <NA> 14 0 7 40
## 2 AISEN <NA> 14 1 25 114
## 3 AISEN C2 18 0 1 41
## 4 AISEN <NA> 14 1 2 41
## 5 AISEN <NA> 14 1 16 39
## NOMBRE ELECTO Tipo_vot Año N_Comuna
## 1 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Primera votacion 2017 AYSÉN
## 2 T_M <NA> Primera votacion 2017 AYSÉN
## 3 MICHELLE BACHELET JERIA SEGUNDA VUELTA Primera votacion 2005 AYSÉN
## 4 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Segunda votacion 2017 AYSÉN
## 5 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Primera votacion 2017 AYSÉN
## Codigo_comunal
## 1 11201
## 2 11201
## 3 11201
## 4 11201
## 5 11201
direccion_gasto <- dir("rds_gastos_e_ingresos_candidatos/gastos/", pattern = ".rds")
archivo_gasto <- paste("rds_gastos_e_ingresos_candidatos/gastos/",direccion_gasto, sep = "")
archivo_gasto
## [1] "rds_gastos_e_ingresos_candidatos/gastos/gastos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/gastos/gastos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/gastos/gastos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/gastos/gastos_senadores.rds"
diputados_gastos <- readRDS(archivo_gasto[3])
names(diputados_gastos)[1] <- "Nombre"
## Warning: The `value` argument of ``names<-`()` can't be empty as of tibble 3.0.0.
## Columns 2, 3, and 4 must be named.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
names(diputados_gastos)[2] <- "Partido"
## Warning: The `value` argument of ``names<-`()` can't be empty as of tibble 3.0.0.
## Columns 3 and 4 must be named.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
names(diputados_gastos)[3] <- "En que se gasto"
## Warning: The `value` argument of ``names<-`()` can't be empty as of tibble 3.0.0.
## Column 4 must be named.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
names(diputados_gastos)[4] <- "Monto"
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',NOMBRE))
archivo <- filter(archivo, !grepl('VOTOS',NOMBRE))
archivo <- filter(archivo, !grepl('_',NOMBRE))
archivo <- unique(archivo$NOMBRE)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,25 )
elec2
## [1] "IQUEZ-OMINAMI GUMUCIO " "AS HIRSCH GOLDSCHMIDT" "THEI FORNET EVELYN"
## [4] "ANDA MENESES ROXANA DE" "ASTIAN PIÑERA ECHENIQU" "LEJANDRO GUILLIER ÁLVA"
## [7] NA "QUIN LAVIN INFANTE" "AROLINA GOIC BOROEVIC"
## [10] "ARCO ENRÍQUEZ-OMINAMI " "ARDO FREI RUIZ-TAGLE" "ELYN-HOLT LETELIER TOM"
## [13] "DYS MARIN MILLIE" "CO ENRIQUEZ-OMINAMI" "EBASTIÁN PIÑERA ECHENI"
## [16] "IR YOUNIS ALFREDO" "EATRIZ SANCHEZ MUÑOZ" "OSÉ ANTONIO KAST RIST"
## [19] "HELET JERIA MICHELLE" "GE ARRATE" "URO FREI BOLIVAR"
## [22] "LEJANDRO NAVARRO BRAIN" "DUARDO ARTÉS BRICHETTI" "UDE REYES MARCEL"
## [25] "AEL ZIPPER RICARDO" "ISI FERNANDEZ FRANCO A" "ARDO LAGOS ESCOBAR"
## [28] "A LARRAIN RUIZ-TAGLE" "HELLE BACHELET JERIA"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_gastos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
CORTAVIENTOS, BANDERAS CHILENAS, CONOS, BOLSAS FERIA, BANDER
|
221221000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
GLOBOS
|
119000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
TELA PVC
|
99960000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
VOLANTES PIÑERA 1 MOTIVO
|
24340260
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
VOLANTES CANDIDATOS 212 MOTIVOS. ANTICIPO
|
51122400
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SALON REUNION 23 AGOSTO 2017
|
359975
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
EVENTO ARRIENDO DE SALON 29-08-2017 AUDIOVISUAL
|
1139306
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ARRIENDO SEP 2017 COMANDO
|
4524154
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PODIUM ESPECIAL
|
464100
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SERVICIOS Y ARRIENDOS. SERVICIOS DE ASEO Y ARRIENDO DE SILLA
|
572754
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRESENTACION ARTISTICA Y ANIMACION DIA MIERCOLES 23 DE AGOST
|
277778
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SERVICIO DE ENLACE INTERNET EN COMANDO PERIODO SEPTIEMBRE 20
|
1481731
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PULSERAS YO VOTO PINERA
|
42840
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
LANZAMIENTO PIÑERA Y CORES 12-09-2017
|
1090399
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRODUCCIÓN GIRA RANCAGUA, TALCA, CHILLAN Y CONCEPCIÓN
|
690200
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ARRIENDO DE EQUIPOS Y SERVICIOS DE SONIDO EL DÍA 9 DE SEPT.
|
80000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
06-09-2017 SERVICO DE COFFEE EN REUNIÓN ALCALDES
|
128282
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ASESORIA CREATIVA FRANJA
|
1.8e+07
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRODUCCIÓN FRANJA
|
73780000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ANIMACIÓN LANZAMIENTO CAMPANA EN ATACAMA 22 AGOSTO 2017
|
277777
|
2017
|
No
|
archivo_gasto2 <- paste(direccion_gasto[3],"_ph.rds", sep = "")
archivo_gasto2 <- str_replace(archivo_gasto2, ".rds_", "_")
# saveRDS(receptaculo,archivo_gasto2)
## Padre Hurtado 2009{#test8} (volver al índice)
comuna_2009 <- readRDS("gastos_presidentes_ph.rds")
names(comuna_2009)[1] <- "Nombre"
names(comuna_2009)[2] <- "Partido"
names(comuna_2009)[3] <- "En que se gasto"
names(comuna_2009)[4] <- "Monto"
comuna_2009_filtro <- filter(comuna_2009, comuna_2009$año == "2009" )
receptaculo_tab <- head(comuna_2009_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
90000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
10000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
60000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
30000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
20000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
50000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
20000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
30000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
60000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
10000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
20000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
50000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
80000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
60000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
80000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
20000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
130000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
110000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
80000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
APORTES POR TRABAJO VOLUNTARIO
|
60000
|
2009
|
No
|
# write.table(comuna_2009_filtro,"gastos_candidatos_ph/gastos_presidentes_ph_2009.txt")
## Padre Hurtado 2013{#test9} (volver al índice)
comuna_2013 <- readRDS("gastos_presidentes_ph.rds")
names(comuna_2013)[1] <- "Nombre"
names(comuna_2013)[2] <- "Partido"
names(comuna_2013)[3] <- "En que se gasto"
names(comuna_2013)[4] <- "Monto"
comuna_2013_filtro <- filter(comuna_2013, comuna_2013$año == "2013" )
comuna_2013_filtro
## # A tibble: 115 x 6
## Nombre Partido `En que se gasto` Monto año Primarias
## <chr> <chr> <chr> <chr> <chr> <chr>
## 1 MARCO ENRIQ~ PARTIDO PRO~ MATERIAL GRAFICO 33398~ 2013 No
## 2 MARCO ENRIQ~ PARTIDO PRO~ PRODUCCION FRANJA TELEVISIO~ 28688~ 2013 No
## 3 MARCO ENRIQ~ PARTIDO PRO~ IMPRESION GRAFICA 124168 2013 No
## 4 MARCO ENRIQ~ PARTIDO PRO~ MATERIAL GRAFICO 38704~ 2013 No
## 5 MARCO ENRIQ~ PARTIDO PRO~ CAMPAÑA PUBLICITARIA EN VIA~ 78540~ 2013 No
## 6 MARCO ENRIQ~ PARTIDO PRO~ ESTUDIO CAMPAÑA PRESIDENCIAL 800000 2013 No
## 7 MARCO ENRIQ~ PARTIDO PRO~ PRODUCCION DE EVENTOS PARA ~ 83372~ 2013 No
## 8 MARCO ENRIQ~ PARTIDO PRO~ MATERIAL GRAFICO 327688 2013 No
## 9 MARCO ENRIQ~ PARTIDO PRO~ SOPORTE PUBLICITARIO EN VIA~ 21420~ 2013 No
## 10 MARCO ENRIQ~ PARTIDO PRO~ ESTUDIO CAMPAÑA PRESIDENCIA~ 68000~ 2013 No
## # ... with 105 more rows
receptaculo_tab <- head(comuna_2013_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MATERIAL GRAFICO
|
3339852
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PRODUCCION FRANJA TELEVISION CAMPAÑA PRESIDENCIAL
|
28688653
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
IMPRESION GRAFICA
|
124168
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MATERIAL GRAFICO
|
3870475
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
CAMPAÑA PUBLICITARIA EN VIA PUBLICA
|
7854000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
ESTUDIO CAMPAÑA PRESIDENCIAL
|
800000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PRODUCCION DE EVENTOS PARA CAMPAÑA PRESIDENCAIL
|
8337272
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MATERIAL GRAFICO
|
327688
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
SOPORTE PUBLICITARIO EN VIA PUBLICA
|
2142000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
ESTUDIO CAMPAÑA PRESIDENCIAL MARCOS ENRIQUEZ OMINAMI
|
6800000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
IMPRESION GRAFICA
|
163399
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MATERIAL GRAFICO
|
1458940
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PROPAGANDA EN ESPACIOS VIA PUBLICA
|
11200000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PROPAGANDA RADIAL CAMPAÑA PRESIDENCIAL
|
3542023
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
SERVICIOS FOTOGRAFICOS Y POST PRODUCCION CANDIDATO
|
773500
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PROPAGANDA EN ESPACIOS VIA PUBLICA
|
6930000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
SERVICIOS DE ASESORIA ADMINISTRATIVA
|
2500000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
SERVICIOS DE ASESORIA AUDIOVISUAL
|
3023333
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
PROPAGANDA RADIAL CAMPAÑA PRESIDENCIAL
|
11781000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MATERIAL GRAFICO
|
51836
|
2013
|
No
|
# write.table(comuna_2013_filtro,"gastos_candidatos_ph/gastos_presidentes_ph_2013.txt")
## Padre Hurtado 2017{#test10} (volver al índice)
comuna_2017 <- readRDS("gastos_presidentes_ph.rds")
names(comuna_2017)[1] <- "Nombre"
names(comuna_2017)[2] <- "Partido"
names(comuna_2017)[3] <- "En que se gasto"
names(comuna_2017)[4] <- "Monto"
comuna_2017_filtro <- filter(comuna_2017, comuna_2017$año == "2017" )
receptaculo_tab <- head(comuna_2017_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
CORTAVIENTOS, BANDERAS CHILENAS, CONOS, BOLSAS FERIA, BANDER
|
221221000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
GLOBOS
|
119000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
TELA PVC
|
99960000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
VOLANTES PIÑERA 1 MOTIVO
|
24340260
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
VOLANTES CANDIDATOS 212 MOTIVOS. ANTICIPO
|
51122400
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SALON REUNION 23 AGOSTO 2017
|
359975
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
EVENTO ARRIENDO DE SALON 29-08-2017 AUDIOVISUAL
|
1139306
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ARRIENDO SEP 2017 COMANDO
|
4524154
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PODIUM ESPECIAL
|
464100
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SERVICIOS Y ARRIENDOS. SERVICIOS DE ASEO Y ARRIENDO DE SILLA
|
572754
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRESENTACION ARTISTICA Y ANIMACION DIA MIERCOLES 23 DE AGOST
|
277778
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
SERVICIO DE ENLACE INTERNET EN COMANDO PERIODO SEPTIEMBRE 20
|
1481731
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PULSERAS YO VOTO PINERA
|
42840
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
LANZAMIENTO PIÑERA Y CORES 12-09-2017
|
1090399
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRODUCCIÓN GIRA RANCAGUA, TALCA, CHILLAN Y CONCEPCIÓN
|
690200
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ARRIENDO DE EQUIPOS Y SERVICIOS DE SONIDO EL DÍA 9 DE SEPT.
|
80000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
06-09-2017 SERVICO DE COFFEE EN REUNIÓN ALCALDES
|
128282
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ASESORIA CREATIVA FRANJA
|
1.8e+07
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PRODUCCIÓN FRANJA
|
73780000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
ANIMACIÓN LANZAMIENTO CAMPANA EN ATACAMA 22 AGOSTO 2017
|
277777
|
2017
|
No
|
# write.table(comuna_2017_filtro,"gastos_candidatos_ph/gastos_presidentes_ph_2017.txt")
Concejales
(volver al índice)
bd_dip <- readRDS("concejales_codigos_final.rds")
head(bd_dip,5)
## Comuna Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN 14 V 1 31
## 2 AISEN 14 V 1 30
## 3 AISEN 14 V 1 29
## 4 AISEN 14 V 1 28
## 5 AISEN 14 V 11 22
## Candidato Votos TER
## 1 LUIS MARTINEZ GALLARDO 5
## 2 SANDRO PARRA SOTO 0
## 3 LUIS OTTH FONSECA 6
## 4 MARIA MANQUEMILLA ANDRADE 3
## 5 CECILIA DEL CARMEN MAYORGA ACUÑA 0
## Pacto Año N_Comuna Codigo_comunal
## 1 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 2 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 3 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 4 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 5 PACTO CHILE VAMOS PRI-EVOPOLI E INDEPENDIENTES 2016 AYSÉN 11201
direccion_gasto <- dir("rds_gastos_e_ingresos_candidatos/gastos/", pattern = ".rds")
archivo_gasto <- paste("rds_gastos_e_ingresos_candidatos/gastos/",direccion_gasto, sep = "")
archivo_gasto
## [1] "rds_gastos_e_ingresos_candidatos/gastos/gastos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/gastos/gastos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/gastos/gastos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/gastos/gastos_senadores.rds"
diputados_gastos <- readRDS(archivo_gasto[1])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',Candidato))
archivo <- filter(archivo, !grepl('VOTOS',Candidato))
archivo <- filter(archivo, !grepl('_',Candidato))
archivo <- unique(archivo$Candidato)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,25 )
elec2
## [1] "ME ANTONIO GALAZ GUZMA" "R VASQUEZ CASTILLO" "RO FUENTES VARGAS"
## [4] "OLINA ARAVENA NOVOA" "ESA GONZALEZ FLORES" "ENA ALEJANDRA VIZCARRA"
## [7] "ENA LOBOS OLIVARES" "IO GALMEZ GOMEZ" " GONZALEZ ZUÑIGA"
## [10] "ELIA DEL ROSARIO SILVA" "A VERDUGO PAINEMAL" "ALDO VILLAGRA QUEZADA"
## [13] "VADOR SEPULVEDA ORELLA" "NY FLORES BUSTOS" "NY EVELYN BRIONES REYE"
## [16] "RIGO VALDOVINOS PARRA" "IA AGUSTINA BRAVO GUIZ" "RICIO MUÑOZ VEGAS"
## [19] "RICIO ENRIQUE REYES PE" "S DEL CARMEN VASQUEZ P" "ILO ALBERTO DONOSO MUÑ"
## [22] "GE MARCELO CHAVEZ AREV" "UEL ANGEL RAMOS PINO" "RICIO SANHUEZA CUADRA"
## [25] "ARO ROLANDO BRIONES VA" "NA MARION QUIROZ CARRA" "ELYN ANDREA GARAY ALLE"
## [28] "LA TAVIE DIAZ" "N PABLO CORNEJO SEPULV" "OLFO CID COTROZO"
## [31] "ERTO HADDAD VALECH" "ONICA MARTINEZ RUBILAR" "UEL ANGEL MORA PEREZ"
## [34] "ICA BARRIENTOS CARTES" "N CARLOS LOPEZ URRUTIA" "ARDO FABIAN ESPINOZA A"
## [37] "OLIN HERIBERTO VEGA OL" "ETTE UTRERAS CONSTANZO" "EBAN ANTIL VENEGAS"
## [40] "N CUMILEF GUAJARDO" "E MANUEL DIAZ DE VALDE" "N CARLOS ANDREU PASTEN"
## [43] "ARDO HIDALGO PAVEZ" "RICIO ALBERTO FIGUEROA" "N CARLOS RIVERA CONCHA"
## [46] "RENTINO VALENZUELA DUR" "DDY ENRIQUE TORRES CON" "UEL MORAGA MESSINA"
## [49] "SES CANELEO MOYA" "S EMILIO RECABARREN DU" "A ELISA ALARCON BRIONE"
## [52] "N RODRIGUEZ MONSALVES" "UEL RAMOS PINO" "LIA DIAZ GONZALEZ"
## [55] "STIAN POZO GARCIA" "X HUGO HUERTA DONOSO" "ICEL ARELLANO MERINO"
## [58] "JANDRO MUÑOZ MUÑOZ"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_gastos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
1000 VOLANTES DOS CARAS
|
59000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
20 PALOMAS 2X1 7000 CU
|
140000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
APORTE PARTIDO POLITICO
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REMBOLSO CANDIDATO X BOLETA PENDIENTE DE PAGO
|
14463
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REEMBOLSO CANDIDATO BOLETA PENDIENTE DE PAGO
|
20400
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REEMBOLSO CANDIDATO BOLETA PENDIENTE DE PAGO
|
63250
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
VOLUNTARIOS 10 DIAS 10000 CU
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
VOLUNTARIOS 10 DIAS 10000 CU
|
100000
|
2016
|
No
|
archivo_gasto2 <- paste(direccion_gasto[1],"_ph.rds", sep = "")
archivo_gasto2 <- str_replace(archivo_gasto2, ".rds_", "_")
# saveRDS(receptaculo,archivo_gasto2)
## Padre Hurtado 2005{#test12} (volver al índice)
comuna_2004 <- readRDS("gastos_concejales_ph.rds")
comuna_2004_filtro <- filter(comuna_2004, comuna_2004$Anio == "2004" )
receptaculo_tab <- head(comuna_2004_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
CARMEN GONZALEZ ZUÑIGA
|
PARTIDO DEMOCRATA CRISTIANO
|
CALENDARIOS AFLICHES DIPTICOS
|
765116
|
2004
|
No
|
|
CARMEN GONZALEZ ZUÑIGA
|
PARTIDO DEMOCRATA CRISTIANO
|
VALLAS EN IMPRESION
|
112812
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
CELULAR
|
4000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
CELULAR
|
5000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
CELULAR
|
5000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
CELULAR
|
4000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
975
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
600
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
305
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1010
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1070
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
2050
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1400
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
590
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1535
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
765
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1730
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
2790
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1570
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
COLACION
|
1200
|
2004
|
No
|
# write.table(comuna_2004_filtro,"gastos_candidatos_ph/gastos_concejales_ph_2004.txt")
## Padre Hurtado 2009{#test13} (volver al índice)
comuna_2016 <- readRDS("gastos_concejales_ph.rds")
comuna_2016_filtro <- filter(comuna_2016, comuna_2016$Anio == "2016" )
receptaculo_tab <- head(comuna_2016_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
1000 VOLANTES DOS CARAS
|
59000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
20 PALOMAS 2X1 7000 CU
|
140000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
APORTE PARTIDO POLITICO
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REMBOLSO CANDIDATO X BOLETA PENDIENTE DE PAGO
|
14463
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REEMBOLSO CANDIDATO BOLETA PENDIENTE DE PAGO
|
20400
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
AUTORIZACION DE PROPAGANDA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
REEMBOLSO CANDIDATO BOLETA PENDIENTE DE PAGO
|
63250
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
VOLUNTARIOS 10 DIAS 10000 CU
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
VOLUNTARIOS 10 DIAS 10000 CU
|
100000
|
2016
|
No
|
# write.table(comuna_2016_filtro,"gastos_candidatos_ph/gastos_concejales_ph_2016.txt")
Ingresos de candidatos
Diputados
(volver al índice)
bd_dip <- readRDS("diputados_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN D2 18 1 12 54
## 2 AISEN B2 18 0 10 63
## 3 AISEN E2 18 0 8 53
## 4 AISEN <NA> 14 M 14 1
## 5 AISEN D2 18 1 14 49
## Nombre Año N_Comuna Codigo_comunal
## 1 PABLO GALILEA CARRILLO 2005 AYSÉN 11201
## 2 RENE ALINCO BUSTOS 2005 AYSÉN 11201
## 3 LEOPOLDO SANCHEZ GRUNERT 2001 AYSÉN 11201
## 4 53 MARISOL LUSDEMIA PINILLA VEJAR 2017 AYSÉN 11201
## 5 PABLO GALILEA CARRILLO 2005 AYSÉN 11201
direccion_ingreso <- dir("rds_gastos_e_ingresos_candidatos/ingresos/", pattern = ".rds")
archivo_ingreso <- paste("rds_gastos_e_ingresos_candidatos/ingresos/",direccion_ingreso, sep = "")
archivo_ingreso
## [1] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_senadores.rds"
diputados_ingresos <- readRDS(archivo_ingreso[2])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',Nombre))
archivo <- filter(archivo, !grepl('VOTOS',Nombre))
archivo <- filter(archivo, !grepl('_',Nombre))
archivo <- unique(archivo$Nombre)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,40 )
elec2
## [1] "NION PATRIOTICA"
## [2] "JAIME BELLOLIO AVARIA"
## [3] "OR TODO CHILE"
## [4] "JUAN DOMINGO VILLAVICENCIO PASTEN"
## [5] "MARCELO LOPEZ SALAZAR"
## [6] "JUANA SILVA MUÑOZ"
## [7] "ONVERGENCIA DEMOCRATICA"
## [8] "VICTOR RICARDO CERDA MORALES"
## [9] "ALENA GUTIERREZ MORENO"
## [10] "ERTO HADDAD VALECH"
## [11] "DIEGO EDUARDO CALDERON GAJARDO"
## [12] "JUAN A. COLOMA ALAMOS"
## [13] "S LEONCIO ALVAREZ GONZALEZ"
## [14] "GE MARIO SAAVEDRA CANALES"
## [15] "FRANCISCO A. PARRA PINTO"
## [16] "ALEJANDRA NOVOA SANDOVAL"
## [17] "ALEJANDRO IGNACIO IRARRAZABAL SALDIAS"
## [18] "IANA CHIRINO FERNANDEZ"
## [19] "FRANCISCO VALDES REYES"
## [20] "PARTIDO HUMANISTA"
## [21] "DENISE PASCAL ALLENDE"
## [22] "JAIME BELLOLIO AVARIA"
## [23] "ZALO URIARTE HERRERA"
## [24] "CARLOS ALBERTO NAVARRO GALLINATO"
## [25] "A FUERZA DE LA MAYORIA"
## [26] "MARIO FAJARDO PEREZ"
## [27] "JOSE LUIS STARK AGUILERA"
## [28] "ESPERANZA P. RUBIO ABARCA"
## [29] "ARSENIO ALVAREZ ARMIJO"
## [30] "DAVID ALEXIS SALDAÑA VERGARA"
## [31] "MANUEL RETAMAL JARA"
## [32] "HILE VAMOS"
## [33] "MEN GLORIA AYALA BASTIAS"
## [34] "SUSANA SANCHEZ GONGORA"
## [35] "MARISELA SANTIBANEZ NOVOA"
## [36] "MARCELO VERA PAVEZ"
## [37] "RAUL LEIVA CARVAJAL"
## [38] "PAULA ZUÑIGA CALDERON"
## [39] "RENTE AMPLIO"
## [40] "CLARA RIOS LUEIZA"
## [41] "ANGEL RICARDO BOZAN RAMOS"
## [42] "ANGELICA PINO SAN MARTIN"
## [43] "YOVANNA FUENTES PINO"
## [44] "ME A. SUAREZ GONZALEZ"
## [45] "LEONARDO SOTO FERRADA"
## [46] "CELA PAZ MALLEA BUSTOS"
## [47] "ROBERTO CARLOS OVALLE MOLINA"
## [48] "LIANZA"
## [49] "ESTEBAN CACERES OLAVE"
## [50] "MARCIA MILLAQUEO IBARRA"
## [51] "DAVID MORALES NORDETTI"
## [52] "CLAUDIO PATRICIO MONTERO ARRATIA"
## [53] "JUAN ANTONIO COLOMA ALAMOS"
## [54] "NUEVA MAYORIA"
## [55] "ME JIMENEZ VILLAVICENCIO"
## [56] "UEVA CONSTITUCION PARA CHILE"
## [57] "DENNY FLORES BUSTOS"
## [58] "ANTONIO HORVATH GUTIERREZ"
## [59] "RENATO GARIN GONZALEZ"
## [60] "I TU QUIERES CHILE CAMBIA"
## [61] "CELA MALLEA BUSTOS"
## [62] "O LAZZARO NOVOA"
## [63] "ISE PASCAL ALLENDE"
## [64] "MARCIA GONZALEZ NAVARRO"
## [65] "DO GARCIA VILLARROEL"
## [66] "ISABEL MARGARITA LABBE MARTINEZ"
## [67] " MARIA SANTELICES QUINTEROS"
## [68] "O ANDRES LAZZARO NOVOA"
## [69] "PATRICIO GONZALEZ DOLZ"
## [70] "MARIO GEBAUER BRINGAS"
## [71] "JORGE MADRIAGA CELIS"
## [72] "ENIO BENITEZ RAMIREZ"
## [73] "NCISCO PUGA HAMILTON"
## [74] "N ANTONIO COLOMA CORREA"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_ingresos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
Donador
|
Monto
|
año
|
primaria
|
archivo_ingreso2 <- paste(direccion_ingreso[2],"_ph.rds", sep = "")
archivo_ingreso2 <- str_replace(archivo_ingreso2, ".rds_", "_")
# saveRDS(receptaculo,archivo_ingreso2)
Senadores
(volver al índice)
bd_dip <- readRDS("senadores_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN <NA> 14 M 22 NA
## 2 AISEN <NA> 14 V 2 5
## 3 AISEN A1 18 0 18 1
## 4 AISEN <NA> 14 M 18 6
## 5 AISEN E4 18 1 7 54
## Nombre Año N_Comuna Codigo_comunal
## 1 G FRENTE AMPLIO 2017 AYSÉN 11201
## 2 18 LUPERCIANO S MUÑOZ GONZALEZ IND-PRSD 2017 AYSÉN 11201
## 3 ARMANDO COLOMA HERRERA 2001 AYSÉN 11201
## 4 TOTAL LISTA G 2017 AYSÉN 11201
## 5 ANSELMO SULE CANDIA 2001 AYSÉN 11201
direccion_ingreso <- dir("rds_gastos_e_ingresos_candidatos/ingresos/", pattern = ".rds")
archivo_ingreso <- paste("rds_gastos_e_ingresos_candidatos/ingresos/",direccion_ingreso, sep = "")
archivo_ingreso
## [1] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_senadores.rds"
diputados_ingresos <- readRDS(archivo_ingreso[4])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',Nombre))
archivo <- filter(archivo, !grepl('VOTOS',Nombre))
archivo <- filter(archivo, !grepl('_',Nombre))
archivo <- unique(archivo$Nombre)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,40 )
elec2
## [1] "UIDO GIRARDI LAVIN (PPD)" "NDRES ALLAMAND ZAVALA (RN)"
## [3] "E M. VALLEJO KNOCKAERT" "DUARDO GUTIERREZ GONZALEZ (IND)"
## [5] "DO GIRARDI LAVIN" "ILFREDO ALFSEN OVANDO (PH)"
## [7] "LBERTO UNDURRAGA VICUÑA(PDC)" "RES ZALDIVAR LARRAIN"
## [9] "DYS MARIN MILLIE" "GIO SANTANDER SEPULVEDA"
## [11] "ALIANZA" "UEVA CONSTITUCION PARA CHILE"
## [13] "ABLO ZALAQUETT SAID (UDI)" "ERTO FANTUZZI HERNANDEZ"
## [15] "ZALO ROVIRA SOTO" "ARDO ARTES BRICHETTI"
## [17] "ERGIO HENRIQUEZ FLOREZ RAMIREZ (IG)" "ARLOS A. MUÑOZ FLORES (PH)"
## [19] "INO NOVOA VASQUEZ" "STIAN REITZE CAMPOS"
## [21] "PARTIDO HUMANISTA" " FIGUEROA EDWARDS"
## [23] "EL FANTUZZI HERNANDEZ" "ILO ESCALONA MEDINA"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_ingresos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
Proveedor
|
Monto
|
Anio
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
5e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1900000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
2e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
4e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ALBERTO JAVIER ZALDIVAR LARRAIN
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1900000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
1e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRANCISCO JAVIER ZALDIVAR PERALTA
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ALBERTO JAVIER RAFAEL ZALDIVAR LARRAIN
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
CARLOS ENRIQUE HURTADO TAGLE
|
4e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
DEMOCRACIA CRISTIANA
|
2e+07
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE IGNACIO ZALDIVAR
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE RAMON ACHURRA LARRAIN
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
MARIA FRANCISCA ZALDIVAR HURTADO
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
HUGO ENRIQUE CIFUENTES
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PABLO BADENNIER MARTINEZ
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
DEMOCRACIA CRISTIANA
|
5e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
5e+05
|
2017
|
archivo_ingreso2 <- paste(direccion_ingreso[4],"_ph.rds", sep = "")
archivo_ingreso2 <- str_replace(archivo_ingreso2, ".rds_", "_")
# saveRDS(receptaculo,archivo_ingreso2)
## Padre Hurtado 2017{#test17} (volver al índice)
comuna_2017 <- readRDS("ingresos_senadores_ph.rds")
comuna_2017_filtro <- filter(comuna_2017, comuna_2017$Anio == "2017" )
receptaculo_tab <- head(comuna_2017_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
Proveedor
|
Monto
|
Anio
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
5e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1900000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
2e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
4e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ALBERTO JAVIER ZALDIVAR LARRAIN
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
1900000
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
1e+05
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
FRANCISCO JAVIER ZALDIVAR PERALTA
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
ALBERTO JAVIER RAFAEL ZALDIVAR LARRAIN
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
CARLOS ENRIQUE HURTADO TAGLE
|
4e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
DEMOCRACIA CRISTIANA
|
2e+07
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE IGNACIO ZALDIVAR
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE RAMON ACHURRA LARRAIN
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
JOSE ROBERTO GATICABAEZA
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
MARIA FRANCISCA ZALDIVAR HURTADO
|
2e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
HUGO ENRIQUE CIFUENTES
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
PABLO BADENNIER MARTINEZ
|
1e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
DEMOCRACIA CRISTIANA
|
5e+06
|
2017
|
|
ANDRES ZALDIVAR LARRAIN
|
PARTIDO DEMOCRATA CRISTIANO
|
NA
|
5e+05
|
2017
|
# write.table(comuna_2017_filtro,"ingresos_candidatos_ph/ingresos_senadores_ph_2017.txt")
Presidentes
(volver al índice)
bd_dip <- readRDS("presidentes_codigos_final.rds")
head(bd_dip,5)
## Comuna CODIGO Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN <NA> 14 0 7 40
## 2 AISEN <NA> 14 1 25 114
## 3 AISEN C2 18 0 1 41
## 4 AISEN <NA> 14 1 2 41
## 5 AISEN <NA> 14 1 16 39
## NOMBRE ELECTO Tipo_vot Año N_Comuna
## 1 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Primera votacion 2017 AYSÉN
## 2 T_M <NA> Primera votacion 2017 AYSÉN
## 3 MICHELLE BACHELET JERIA SEGUNDA VUELTA Primera votacion 2005 AYSÉN
## 4 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Segunda votacion 2017 AYSÉN
## 5 4 ALEJANDRO GUILLIER ÁLVAREZ <NA> Primera votacion 2017 AYSÉN
## Codigo_comunal
## 1 11201
## 2 11201
## 3 11201
## 4 11201
## 5 11201
direccion_ingreso <- dir("rds_gastos_e_ingresos_candidatos/ingresos/", pattern = ".rds")
archivo_ingreso <- paste("rds_gastos_e_ingresos_candidatos/ingresos/",direccion_ingreso, sep = "")
archivo_ingreso
## [1] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_senadores.rds"
diputados_ingresos <- readRDS(archivo_ingreso[3])
names(diputados_ingresos)[1] <- "Nombre"
names(diputados_ingresos)[2] <- "Partido"
names(diputados_ingresos)[3] <- "En que se gasto"
names(diputados_ingresos)[4] <- "Monto"
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',NOMBRE))
archivo <- filter(archivo, !grepl('VOTOS',NOMBRE))
archivo <- filter(archivo, !grepl('_',NOMBRE))
archivo <- unique(archivo$NOMBRE)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,40 )
elec2
## [1] "IQUEZ-OMINAMI GUMUCIO MARCO" "AS HIRSCH GOLDSCHMIDT"
## [3] "THEI FORNET EVELYN" "ANDA MENESES ROXANA DEL CARMEN"
## [5] "ASTIAN PIÑERA ECHENIQUE" "LEJANDRO GUILLIER ÁLVAREZ"
## [7] NA "QUIN LAVIN INFANTE"
## [9] "AROLINA GOIC BOROEVIC" "ARCO ENRÍQUEZ-OMINAMI GUMUCIO"
## [11] "ARDO FREI RUIZ-TAGLE" "ELYN-HOLT LETELIER TOMAS"
## [13] "DYS MARIN MILLIE" "CO ENRIQUEZ-OMINAMI"
## [15] "EBASTIÁN PIÑERA ECHENIQUE" "IR YOUNIS ALFREDO"
## [17] "EATRIZ SANCHEZ MUÑOZ" "OSÉ ANTONIO KAST RIST"
## [19] "HELET JERIA MICHELLE" "GE ARRATE"
## [21] "URO FREI BOLIVAR" "LEJANDRO NAVARRO BRAIN"
## [23] "DUARDO ARTÉS BRICHETTI" "UDE REYES MARCEL"
## [25] "AEL ZIPPER RICARDO" "ISI FERNANDEZ FRANCO ALDO"
## [27] "ARDO LAGOS ESCOBAR" "A LARRAIN RUIZ-TAGLE"
## [29] "HELLE BACHELET JERIA"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_ingresos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1052796
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JAVIER IGNACIO MUÑOZHUNT
|
15000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
8e+05
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
RICARDO ALFONSO MASSU MASSU
|
1.3e+07
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL ANGEL CORNEJOLABRA
|
20000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL ANGEL FERNANDEZ PLAZA
|
10000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1000001
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
AGUSTIN OSSA PAROT
|
1000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JOSE FELIX DE VICENTE MINGO
|
5e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
2000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL JUAN SEBASTIAN PIÑERA ECHENIQUE
|
1.13e+09
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
LUIS ALBERTO MORENOLOPEZ
|
50000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PATRICIO FERNANDO BAEZA ASPEE
|
5e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JUAN ANDRES CAMUS CAMUS
|
13100000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
520000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
520000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
archivo_ingreso2 <- paste(direccion_ingreso[3],"_ph.rds", sep = "")
archivo_ingreso2 <- str_replace(archivo_ingreso2, ".rds_", "_")
# saveRDS(receptaculo,archivo_ingreso2)
## Padre Hurtado 2009{#test19} (volver al índice)
comuna_2009 <- readRDS("ingresos_presidentes_ph.rds")
comuna_2009_filtro <- filter(comuna_2009, comuna_2009$año == "2009" )
receptaculo_tab <- head(comuna_2009_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
MARIA TERESA ORELLANA PEZOA
|
30000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
92173465
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
BANCO CORPBANCA
|
2.01e+08
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
MARIA SOLEDAD OJEDA ROJAS
|
40000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
438155
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
CARMEN GLORIA RETAMAL HUAIQUIL
|
50000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
CARMEN GLORIA RETAMAL HUAIQUIL
|
190000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
19702795
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
NADIA DANIELA MALDONADO OPAZO
|
40000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
BANCO CORPBANCA
|
1981896
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
112546435
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
HECTOR ORLANDO ALVEAR SAAVEDRA
|
10000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
25743267
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
BANCO CORPBANCA
|
589600
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
ROMINA ANDREA MUNOZ CABRERA
|
60000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
BANCO CORPBANCA
|
201094500
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
CONSTANZA CECILIA FUENTES VALDES
|
50000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
MARIA SOLEDAD OJEDA ROJAS
|
190000
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
3377254
|
2009
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
INDEPENDIENTE
|
SERVEL
|
40725465
|
2009
|
No
|
# write.table(comuna_2009_filtro,"ingresos_candidatos_ph/ingresos_presidentes_ph_2009.txt")
## Padre Hurtado 2013{#test20} (volver al índice)
comuna_2013 <- readRDS("ingresos_presidentes_ph.rds")
comuna_2013_filtro <- filter(comuna_2013, comuna_2013$año == "2013" )
receptaculo_tab <- head(comuna_2013_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
BANCOESTADO
|
50000000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
MARCO ENRIQUEZ OMINAMI GUMUCIO
|
7752578
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
CORPBANCA
|
7250000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
NA
|
189287746
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
BANCO ESTADO
|
936394
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
|
160000
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
|
239873370
|
2013
|
No
|
|
MARCO ENRIQUEZ-OMINAMI
|
PARTIDO PROGRESISTA
|
CORPBANCA
|
250000000
|
2013
|
No
|
# write.table(comuna_2013_filtro,"ingresos_candidatos_ph/ingresos_presidentes_ph_2013.txt")
## Padre Hurtado 2017{#test21} (volver al índice)
comuna_2017 <- readRDS("ingresos_presidentes_ph.rds")
comuna_2017_filtro <- filter(comuna_2017, comuna_2017$año == "2017" )
receptaculo_tab <- head(comuna_2017_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
año
|
Primarias
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1052796
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JAVIER IGNACIO MUÑOZHUNT
|
15000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
8e+05
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
RICARDO ALFONSO MASSU MASSU
|
1.3e+07
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL ANGEL CORNEJOLABRA
|
20000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL ANGEL FERNANDEZ PLAZA
|
10000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1000001
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
AGUSTIN OSSA PAROT
|
1000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JOSE FELIX DE VICENTE MINGO
|
5e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
2000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
MIGUEL JUAN SEBASTIAN PIÑERA ECHENIQUE
|
1.13e+09
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
LUIS ALBERTO MORENOLOPEZ
|
50000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
PATRICIO FERNANDO BAEZA ASPEE
|
5e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
JUAN ANDRES CAMUS CAMUS
|
13100000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
520000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
520000
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
|
SEBASTIAN PIÑERA ECHENIQUE
|
INDEPENDIENTE
|
NA
|
1e+06
|
2017
|
No
|
# write.table(comuna_2017_filtro,"ingresos_candidatos_ph/ingresos_presidentes_ph_2017.txt")
Concejales
(volver al índice)
bd_dip <- readRDS("concejales_codigos_final.rds")
head(bd_dip,5)
## Comuna Circunscripción Tipo de mesa Numero de mesa Votos
## 1 AISEN 14 V 1 31
## 2 AISEN 14 V 1 30
## 3 AISEN 14 V 1 29
## 4 AISEN 14 V 1 28
## 5 AISEN 14 V 11 22
## Candidato Votos TER
## 1 LUIS MARTINEZ GALLARDO 5
## 2 SANDRO PARRA SOTO 0
## 3 LUIS OTTH FONSECA 6
## 4 MARIA MANQUEMILLA ANDRADE 3
## 5 CECILIA DEL CARMEN MAYORGA ACUÑA 0
## Pacto Año N_Comuna Codigo_comunal
## 1 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 2 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 3 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 4 PACTO CHILE VAMOS UDI-INDEPENDIENTES 2016 AYSÉN 11201
## 5 PACTO CHILE VAMOS PRI-EVOPOLI E INDEPENDIENTES 2016 AYSÉN 11201
direccion_ingreso <- dir("rds_gastos_e_ingresos_candidatos/ingresos/", pattern = ".rds")
archivo_ingreso <- paste("rds_gastos_e_ingresos_candidatos/ingresos/",direccion_ingreso, sep = "")
archivo_ingreso
## [1] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_concejales.rds"
## [2] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_diputados.rds"
## [3] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_presidentes.rds"
## [4] "rds_gastos_e_ingresos_candidatos/ingresos/ingresos_senadores.rds"
diputados_ingresos <- readRDS(archivo_ingreso[1])
archivo <- bd_dip
archivo <- filter(archivo, archivo$Comuna == "PADRE HURTADO" )
archivo <- filter(archivo, !grepl('TOTAL',Candidato))
archivo <- filter(archivo, !grepl('VOTOS',Candidato))
archivo <- filter(archivo, !grepl('_',Candidato))
archivo <- unique(archivo$Candidato)
filas_archivo <- as.data.frame(archivo)
filas_archivo <- nrow(filas_archivo)
archivo_nom <- archivo
elec2 <- vector()
rango <- seq(1:filas_archivo)
elec2 <- str_sub(archivo_nom[rango], 4,40 )
elec2
## [1] "ME ANTONIO GALAZ GUZMAN" "R VASQUEZ CASTILLO"
## [3] "RO FUENTES VARGAS" "OLINA ARAVENA NOVOA"
## [5] "ESA GONZALEZ FLORES" "ENA ALEJANDRA VIZCARRA VEGA"
## [7] "ENA LOBOS OLIVARES" "IO GALMEZ GOMEZ"
## [9] " GONZALEZ ZUÑIGA" "ELIA DEL ROSARIO SILVA ROA"
## [11] "A VERDUGO PAINEMAL" "ALDO VILLAGRA QUEZADA"
## [13] "VADOR SEPULVEDA ORELLANA" "NY FLORES BUSTOS"
## [15] "NY EVELYN BRIONES REYES" "RIGO VALDOVINOS PARRA"
## [17] "IA AGUSTINA BRAVO GUIZMAN" "RICIO MUÑOZ VEGAS"
## [19] "RICIO ENRIQUE REYES PEREZ" "S DEL CARMEN VASQUEZ PINTO"
## [21] "ILO ALBERTO DONOSO MUÑOZ" "GE MARCELO CHAVEZ AREVALO"
## [23] "UEL ANGEL RAMOS PINO" "RICIO SANHUEZA CUADRA"
## [25] "ARO ROLANDO BRIONES VASQUEZ" "NA MARION QUIROZ CARRASCO"
## [27] "ELYN ANDREA GARAY ALLENDE" "LA TAVIE DIAZ"
## [29] "N PABLO CORNEJO SEPULVEDA" "OLFO CID COTROZO"
## [31] "ERTO HADDAD VALECH" "ONICA MARTINEZ RUBILAR"
## [33] "UEL ANGEL MORA PEREZ" "ICA BARRIENTOS CARTES"
## [35] "N CARLOS LOPEZ URRUTIA" "ARDO FABIAN ESPINOZA ALCAINO"
## [37] "OLIN HERIBERTO VEGA OLIVARES" "ETTE UTRERAS CONSTANZO"
## [39] "EBAN ANTIL VENEGAS" "N CUMILEF GUAJARDO"
## [41] "E MANUEL DIAZ DE VALDES IBARRA" "N CARLOS ANDREU PASTEN"
## [43] "ARDO HIDALGO PAVEZ" "RICIO ALBERTO FIGUEROA CANALES"
## [45] "N CARLOS RIVERA CONCHA" "RENTINO VALENZUELA DURAN"
## [47] "DDY ENRIQUE TORRES CONTRERAS" "UEL MORAGA MESSINA"
## [49] "SES CANELEO MOYA" "S EMILIO RECABARREN DUARTE"
## [51] "A ELISA ALARCON BRIONES" "N RODRIGUEZ MONSALVES"
## [53] "UEL RAMOS PINO" "LIA DIAZ GONZALEZ"
## [55] "STIAN POZO GARCIA" "X HUGO HUERTA DONOSO"
## [57] "ICEL ARELLANO MERINO" "JANDRO MUÑOZ MUÑOZ"
receptaculo <- data.frame()
for (n in 1 : 10){
nombres <- filter(diputados_ingresos, grepl(elec2[n],Nombre))
receptaculo <<- rbind(receptaculo, nombres)
}
receptaculo_tab <- head(receptaculo,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
PABLO ACU¿A
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ALICIA BUSTAMANTE
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
MACIONELLA CORNEJO
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE FUENTES
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
EVELYN LOPEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RODRIGO FERNANDEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
FLOR VASQUEZ
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
HUMBERTO GAJARDO
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE ARELLANO
|
59000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE ARELLANO
|
140000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RENOVACION NACIONAL
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JENNIFER TRINCADO
|
14463
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
COMERCIAL ZH HUI FANG
|
20400
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RODRIGO FERNANDEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ROSA MORALES
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
SERGIO PINCHEIRA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
FABRIZIO JIMENEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ROSA ARRIOLA
|
63250
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ALICIA BUSTAMANTE
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ASTRID MANNI VEGA
|
100000
|
2016
|
No
|
archivo_ingreso2 <- paste(direccion_ingreso[1],"_ph.rds", sep = "")
archivo_ingreso2 <- str_replace(archivo_ingreso2, ".rds_", "_")
# saveRDS(receptaculo,archivo_ingreso2)
## Padre Hurtado 2017{#test23} (volver al índice)
comuna_2004 <- readRDS("ingresos_concejales_ph.rds")
comuna_2004_filtro <- filter(comuna_2004, comuna_2004$Anio == "2004" )
receptaculo_tab <- head(comuna_2004_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
CARMEN GONZALEZ ZUÑIGA
|
PARTIDO DEMOCRATA CRISTIANO
|
96549640-8
|
765116
|
2004
|
No
|
|
CARMEN GONZALEZ ZUÑIGA
|
PARTIDO DEMOCRATA CRISTIANO
|
96939500-2
|
112812
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
10906384-3
|
4000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
10906384-3
|
5000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
11317419-6
|
5000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
5059196-4
|
4000
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12856105-6
|
975
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12856105-6
|
600
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
305
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12264814-1
|
1010
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12856105-6
|
1070
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
2050
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
9051662-0
|
1400
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
590
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12264814-1
|
1535
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
765
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
1730
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
77299490-7
|
2790
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12264814-1
|
1570
|
2004
|
No
|
|
OSVALDO VILLAGRA QUEZADA
|
UNION DEMOCRATA INDEPENDIENTE
|
12264814-1
|
1200
|
2004
|
No
|
# write.table(comuna_2004_filtro,"ingresos_candidatos_ph/ingresos_concejales_ph_2004.txt")
## Padre Hurtado 2017{#test24} (volver al índice)
comuna_2016 <- readRDS("ingresos_concejales_ph.rds")
comuna_2016_filtro <- filter(comuna_2016, comuna_2016$Anio == "2016" )
receptaculo_tab <- head(comuna_2016_filtro,20)
kbl(receptaculo_tab) %>%
kable_styling(bootstrap_options = c("striped", "hover")) %>%
kable_paper() %>%
scroll_box(width = "100%", height = "500px")
|
Nombre
|
Partido
|
En que se gasto
|
Monto
|
Anio
|
Primarias
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
PABLO ACU¿A
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ALICIA BUSTAMANTE
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
MACIONELLA CORNEJO
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE FUENTES
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
EVELYN LOPEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RODRIGO FERNANDEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
FLOR VASQUEZ
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
HUMBERTO GAJARDO
|
50000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE ARELLANO
|
59000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JOSE ARELLANO
|
140000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RENOVACION NACIONAL
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
JENNIFER TRINCADO
|
14463
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
COMERCIAL ZH HUI FANG
|
20400
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
RODRIGO FERNANDEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ROSA MORALES
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
SERGIO PINCHEIRA
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
FABRIZIO JIMENEZ
|
25000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ROSA ARRIOLA
|
63250
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ALICIA BUSTAMANTE
|
100000
|
2016
|
No
|
|
FLOR VASQUEZ CASTILLO
|
RENOVACION NACIONAL
|
ASTRID MANNI VEGA
|
100000
|
2016
|
No
|
# write.table(comuna_2016_filtro,"ingresos_candidatos_ph/ingresos_concejales_ph_2016.txt")