Índice:

Gastos

Ingresos

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