Abstract
Exponemos el método que nos permitió construir el código de lista para los candidatos a la elección de senadores del 2017 y así homologarla al conjunto restante. Nos queda como tarea resolver una automatización en un reemplazo de valores de un dataframe. Construímos un diccionario entre código de comuna y circunscripción electoral, pero nuestra memoria no permite su integración.
senadores1 <- readRDS("senadores_1989-2013.rds")
senadores2 <- readRDS("senadores_2017.rds")head(senadores1,5)## Lista Circunscripción Tipo de mesa Número de mesa Cantidad de votos
## 1 A1 1 0 43 124
## 2 A1 1 0 47 112
## 3 A1 1 0 46 122
## 4 A1 1 0 45 95
## 5 A1 1 0 44 105
## Nombre del candidato Año
## 1 HUMBERTO PALZA CORVACHO 1989
## 2 HUMBERTO PALZA CORVACHO 1989
## 3 HUMBERTO PALZA CORVACHO 1989
## 4 HUMBERTO PALZA CORVACHO 1989
## 5 HUMBERTO PALZA CORVACHO 1989head(senadores2,5)## Lista Circunscripción Tipo de mesa
## 1 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 2 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 3 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 M
## 4 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 5 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## Número de mesa Cantidad de votos Año lalista.x industry.x factory.x V5.x
## 1 7 1 2017 10 10 P 10P
## 2 50 0 2017 10 10 P 10P
## 3 57 2 2017 10 10 P 10P
## 4 17 2 2017 10 10 P 10P
## 5 30 1 2017 10 10 P 10P
## lalista.y industry.y factory.y V5.y lalista.x industry.x factory.x V5.x
## 1 10 10 <NA> 10NA 10 10 <NA> 10NA
## 2 10 10 <NA> 10NA 10 10 <NA> 10NA
## 3 10 10 <NA> 10NA 10 10 <NA> 10NA
## 4 10 10 <NA> 10NA 10 10 <NA> 10NA
## 5 10 10 <NA> 10NA 10 10 <NA> 10NA
## lalista.y industry.y factory.y V5.y lalista industry factory V5
## 1 10 10 <NA> 10NA 10 10 <NA> 10NA
## 2 10 10 <NA> 10NA 10 10 <NA> 10NA
## 3 10 10 <NA> 10NA 10 10 <NA> 10NA
## 4 10 10 <NA> 10NA 10 10 <NA> 10NA
## 5 10 10 <NA> 10NA 10 10 <NA> 10NAlistas <- senadores2$Lista
sss <- listas %>% unique()
#listas <- as.data.frame(listas)
head(sss,5)## [1] "10 ALEJANDRO BARRIENTOS ALVAREZ RD" "10 GUSTAVO A RUZ ZAÑARTU"
## [3] "10 JUAN ORTIZ SOTO" "10 FRANCISCO COLOANE ROJAS"
## [5] "10 GLORIA GUZMAN ROJAS"elec2 <- vector()
rango <- seq(1:191)
elec2[rango] <- str_sub(sss[rango], 1, 2)
elec2 <- as.data.frame(elec2)
names(elec2)[1] <- "lalista"
elec2$lalista <- as.character(elec2$lalista)
elec2 <- cbind(elec2, sss)
head(elec2)## lalista sss
## 1 10 10 ALEJANDRO BARRIENTOS ALVAREZ RD
## 2 10 10 GUSTAVO A RUZ ZAÑARTU
## 3 10 10 JUAN ORTIZ SOTO
## 4 10 10 FRANCISCO COLOANE ROJAS
## 5 10 10 GLORIA GUZMAN ROJAS
## 6 10 10 PABLO ANTONIO PIZARRO BOSSAY# elec2 # dataset normal
# a <- elec2$lalista %>% unique()
# a
# write_xlsx(a, "laprueba.xlsx")
# elec3 <- as.list(elec2)
# elec3 elec2$industry[elec2$lalista == "10"] <- "10"
elec2$industry[elec2$lalista == "11"] <- "11"
elec2$industry[elec2$lalista == "12"] <- "12"
elec2$industry[elec2$lalista == "13"] <- "13"
elec2$industry[elec2$lalista == "14"] <- "14"
elec2$industry[elec2$lalista == "15"] <- "15"
elec2$industry[elec2$lalista == "16"] <- "16"
elec2$industry[elec2$lalista == "17"] <- "17"
elec2$industry[elec2$lalista == "18"] <- "18"
elec2$industry[elec2$lalista == "19"] <- "19"
elec2$industry[elec2$lalista == "20"] <- "20"
elec2$industry[elec2$lalista == "21"] <- "21"
elec2$industry[elec2$lalista == "22"] <- "22"
elec2$industry[elec2$lalista == "23"] <- "23"
elec2$industry[elec2$lalista == "24"] <- "24"
elec2$industry[elec2$lalista == "25"] <- "25"
elec2$industry[elec2$lalista == "26"] <- "26"
elec2$industry[elec2$lalista == "27"] <- "27"
elec2$industry[elec2$lalista == "28"] <- "28"
elec2$industry[elec2$lalista == "29"] <- "29"
elec2$industry[elec2$lalista == "30"] <- "30"
elec2$industry[elec2$lalista == "31"] <- "31"
elec2$industry[elec2$lalista == "32"] <- "32"
elec2$industry[elec2$lalista == "33"] <- "33"
elec2$industry[elec2$lalista == "34"] <- "34"
elec2$industry[elec2$lalista == "35"] <- "35"
elec2$industry[elec2$lalista == "36"] <- "36"
elec2$industry[elec2$lalista == "37"] <- "37"
elec2$industry[elec2$lalista == "38"] <- "38"
elec2$industry[elec2$lalista == "39"] <- "39"
elec2$industry[elec2$lalista == "40"] <- "40"
elec2$industry[elec2$lalista == "41"] <- "41"
elec2$industry[elec2$lalista == "42"] <- "42"
elec2$industry[elec2$lalista == "43"] <- "43"
elec2$industry[elec2$lalista == "44"] <- "44"
elec2$industry[elec2$lalista == "45"] <- "45"
elec2$industry[elec2$lalista == "46"] <- "46"
elec2$industry[elec2$lalista == "47"] <- "47"
elec2$industry[elec2$lalista == "48"] <- "48"
elec2$industry[elec2$lalista == "49"] <- "49"
head(elec2,5)## lalista sss industry
## 1 10 10 ALEJANDRO BARRIENTOS ALVAREZ RD 10
## 2 10 10 GUSTAVO A RUZ ZAÑARTU 10
## 3 10 10 JUAN ORTIZ SOTO 10
## 4 10 10 FRANCISCO COLOANE ROJAS 10
## 5 10 10 GLORIA GUZMAN ROJAS 10elec2 %>% unique()## lalista sss industry
## 1 10 10 ALEJANDRO BARRIENTOS ALVAREZ RD 10
## 2 10 10 GUSTAVO A RUZ ZAÑARTU 10
## 3 10 10 JUAN ORTIZ SOTO 10
## 4 10 10 FRANCISCO COLOANE ROJAS 10
## 5 10 10 GLORIA GUZMAN ROJAS 10
## 6 10 10 PABLO ANTONIO PIZARRO BOSSAY 10
## 7 10 10 RIGOBERTO ROJAS SARAPURA 10
## 8 11 11 AUCAN HUILCAMAN PAILLAMA 11
## 9 11 11 JENNY DEL CARMEN RIVERA ROA RD 11
## 10 11 11 MARIA C DE L ROMERO 11
## 11 11 11 GABRIEL GUROVICH STEINER 11
## 12 11 11 HECTOR CHRISTIAN PEREZ MENESES 11
## 13 11 11 JORGE VARGAS GUERRA 11
## 14 11 11 SANDRA CECILIA ZAPATA VELASQUEZ 11
## 15 12 12 DIEGO ALEXIS ANCALAO GAVILAN 12
## 16 12 12 RAUL VARGAS FOURCADE TODOS 12
## 17 12 12 SANDRA BEATRIZ ALFARO CHAVEZ 12
## 18 12 12 ALEJANDRA GUAJARDO BIZAMA 12
## 19 12 12 CLAUDIO OJEDA MURILLO 12
## 20 12 12 ELIZABETH PEREZ MATURANA 12
## 21 12 12 PAMELA AIDA JIMENEZ GALLARDO 12
## 22 13 13 CARLOS CHAVEZ MARCHANT IND-TODOS 13
## 23 13 13 GABRIELA PAZ MELENDEZ TORMEN 13
## 24 13 13 WILFREDO ALFSEN OVANDO 13
## 25 13 13 LAUTARO CARMONA SOTO 13
## 26 13 13 LORENA VERGARA BRAVO 13
## 27 13 13 OCTAVIO GONZALEZ OJEDA 13
## 28 13 13 RODRIGO DIAZ BOGDANIC 13
## 29 14 14 CARLOS ADOLFO PEREZ OSORIO DRP 14
## 30 14 14 GLORIA MUJICA ASCUI 14
## 31 14 14 MARTA GUERRA MEDINA 14
## 32 14 14 CAROLINA PERALTA ARAVENA 14
## 33 14 14 JORGE SORIA QUIROGA 14
## 34 14 14 JUAN IGNACIO LATORRE RIVEROS 14
## 35 14 14 VERONICA FOPPIANO DIAZ 14
## 36 15 15 ANTONELLA MUÑOZ ARAYA IND-DRP 15
## 37 15 15 JIMENA ARIAS QUIROGA 15
## 38 15 15 LUCIA CECILIA TORMEN MENDEZ 15
## 39 15 15 ALBERTO ROBLES PANTOJA 15
## 40 15 15 ASTRID ABARCA IBARRA 15
## 41 15 15 FRANCISCO GABRIEL MARIN CASTRO 15
## 42 15 15 SALVADOR PEDRO URRUTIA CARDENAS 15
## 43 16 16 ALFREDO JUAN SFEIR YOUNIS 16
## 44 16 16 CAMILO ESCALONA MEDINA PS 16
## 45 16 16 EDUARDO DIAZ HERRERA 16
## 46 16 16 FRANITZA MITROVIC VARELA 16
## 47 16 16 JOSE MIGUEL INSULZA SALINAS 16
## 48 16 16 MONICA VALENCIA BECERRA 16
## 49 16 16 YASNA PROVOSTE CAMPILLAY 16
## 50 17 17 EMA VIDAL DIAZ 17
## 51 17 17 MARIA E LORENZINI LORENZINI 17
## 52 17 17 XIMENA ORDENES NEIRA IND-PPD 17
## 53 17 17 JUAN CARLOS CARREÑO CARMONA 17
## 54 17 17 LILY PEREZ SAN MARTIN 17
## 55 17 17 TOMAS REINALDO PASTENES CABEZAS 17
## 56 17 17 TRINIDAD VICTORIA PARRA CORREA 17
## 57 18 18 LUPERCIANO S MUÑOZ GONZALEZ IND-PRSD 18
## 58 18 18 TATIANA RUDOLPH ESPINOZA 18
## 59 18 18 YURI SEPULVEDA GONZALEZ 18
## 60 18 18 FELIPE WARD EDWARDS 18
## 61 18 18 JOSE DURANA SEMIR 18
## 62 18 18 PAMELA BOYARDI VILLALOBOS 18
## 63 18 18 PEDRO SARIEGO PASTEN 18
## 64 19 19 ANDRES VELASCO BRAÑES 19
## 65 19 19 EDUARDO CRUCES BURGOS PDC 19
## 66 19 19 JUAN EDILBERTO RAMIREZ VILLAGRA 19
## 67 19 19 ANA CUADROS MATAMALA 19
## 68 19 19 LUZ EBENSPERGER ORREGO 19
## 69 19 19 RAFAEL PROHENS ESPINOSA 19
## 70 19 19 RODOLFO BARBOSA BARRIOS 19
## 71 20 20 FULVIO ROSSI CIOCCA 20
## 72 20 20 JAIME QUINTANA LEAL 20
## 73 20 20 PAULA ANDREA ROMERO NEIRA 20
## 74 20 20 PAZ MARITZA FOITZICH SANDOVAL PDC 20
## 75 20 20 ALBERTO EDUARDO NUÑEZ PONCE 20
## 76 20 20 MIRTHA ARANCIBIA CRUZ 20
## 77 21 21 ALBERTO ANTONIO PIZARRO CHAÑILAO 21
## 78 21 21 ALBERTO N MARTINEZ MOYA 21
## 79 21 21 HERNAN VODANOVIC SCHNAKE IND-PDC 21
## 80 21 21 ENRIQUE LEE FLORES 21
## 81 21 21 JULIAN ANDRES UGARTE FUENTES 21
## 82 22 22 CLAUDIA ANDREA PALMA NUÑEZ 22
## 83 22 22 ESTEBAN BRAVO MORENO 22
## 84 22 22 PILAR CUEVAS MARDONES RN 22
## 85 22 22 OSCAR REMENTERIA PALOMINO 22
## 86 23 23 ANA VERDUGO BADILLA RN 23
## 87 23 23 GRACE MARICEL SALAZAR BARRA 23
## 88 23 23 PATRICIA DEL CARMEN COÑOMAN CARRILLO 23
## 89 23 23 LUIS ARAVENA EGAÑA 23
## 90 24 24 ALVARO ELIZALDE SOTO 24
## 91 24 24 DAVID SANDOVAL PLAZA UDI 24
## 92 24 24 FLOR DOMINGUEZ ROSAS 24
## 93 24 24 VLADEMIR VENEGAS SANHUEZA 24
## 94 25 25 FUAD EDUARDO CHAHIN VALENZUELA 25
## 95 25 25 VIVIANA LANDAETA PARRA 25
## 96 25 25 BERTA CARO MORALES 25
## 97 26 26 CARLOS VILLALOBOS SEPULVEDA 26
## 98 26 26 FRANCISCO HUENCHUMILLA JARAMILLO 26
## 99 26 26 RICARDO LAGOS WEBER 26
## 100 27 27 FELIPE KAST SOMMERHOFF 27
## 101 27 27 JORGE CARLOS TARUD DACCARETT 27
## 102 27 27 MARCO ANTONIO NUÑEZ LOZANO 27
## 103 28 28 CARMEN GLORIA ARAVENA ACUÑA 28
## 104 28 28 LILIANA CARO VERA 28
## 105 28 28 ISABEL ALLENDE BUSSI 28
## 106 29 29 JOSE GARCIA RUMINOT 29
## 107 29 29 VALERIA JENOVEVA LEAL ALBORNOZ 29
## 108 29 29 ABEL GALLARDO PEREZ 29
## 109 30 30 ANDRES ZALDIVAR LARRAIN 30
## 110 30 30 GERMAN BECKER ALVEAR 30
## 111 30 30 NELSON JAIME AVILA CONTRERAS 30
## 112 31 31 JOSE VILLAGRAN SANDOVAL 31
## 113 31 31 XIMENA RINCON GONZALEZ 31
## 114 31 31 JOSEFINA BUSTAMANTE DIAZ 31
## 115 32 32 GUSTAVO HASBUN SELUME 32
## 116 32 32 JUAN ANTONIO COLOMA CORREA 32
## 117 32 32 IGNACIO WALKER PRIETO 32
## 118 33 33 ROJO EDWARDS SILVA 33
## 119 33 33 YASNA CANCINO ROSSON 33
## 120 33 33 ALDO VICENTE CORNEJO GONZALEZ 33
## 121 34 34 FRANCISCA CONCHA LE-BEUFFE 34
## 122 34 34 ORIELE ANGELINA ZENCOVICH MADRID 34
## 123 35 35 RODRIGO GALILEA VIAL 35
## 124 35 35 FRANCISCO CHAHUAN CHAHUAN 35
## 125 36 36 MACARENA PONS PORCILE 36
## 126 36 36 CARMEN XIMENA ZAMORA BRAVO 36
## 127 37 37 JUAN CASTRO PRIETO 37
## 128 37 37 KENNETH PUGH OLAVARRIA 37
## 129 38 38 ANDREA MOLINA OLIVA 38
## 130 39 39 FRANCISCO BARTOLUCCI JOHNSTON 39
## 131 40 40 XIMENA RAMIREZ GUTIERREZ 40
## 132 41 41 GASPAR RIVAS SANCHEZ 41
## 133 B B . POR TODO CHILE <NA>
## 134 B B POR TODO CHILE <NA>
## 135 CA CANDIDATURA INDEPENDIENTE <NA>
## 136 G G . FRENTE AMPLIO <NA>
## 137 G G FRENTE AMPLIO <NA>
## 138 G. G. FRENTE AMPLIO <NA>
## 139 H H . SUMEMOS <NA>
## 140 H H SUMEMOS <NA>
## 141 K K COALICIÓN REGIONALISTA VERDE <NA>
## 142 K. K. COALICIÓN REGIONALISTA VERDE <NA>
## 143 M M . UNION PATRIOTICA <NA>
## 144 N N . LA FUERZA DE LA MAYORIA <NA>
## 145 N N LA FUERZA DE LA MAYORIA <NA>
## 146 N. N. LA FUERZA DE LA MAYORIA <NA>
## 147 O O . CONVERGENCIA DEMOCRATICA <NA>
## 148 O O CONVERGENCIA DEMOCRATICA <NA>
## 149 O. O. CONVERGENCIA DEMOCRATICA <NA>
## 150 P P . CHILE VAMOS <NA>
## 151 P P CHILE VAMOS <NA>
## 152 P. P. CHILE VAMOS <NA>
## 153 T_ T_M <NA>
## 154 TO TOTAL 2° CIRCUNSCRIPCION SENATORIAL <NA>
## 155 TO TOTAL 4° CIRCUNSCRIPCION <NA>
## 156 TO TOTAL 6° CIRCUNSCRIPCION <NA>
## 157 TO TOTAL CANDIDATURA INDEPENDIENTE <NA>
## 158 TO TOTAL CANDIDATURA INDEPENDIENTES <NA>
## 159 TO TOTAL EP <NA>
## 160 TO TOTAL IND-LBCH <NA>
## 161 TO TOTAL IND-PAIS-PAIS <NA>
## 162 TO TOTAL IND-PPD <NA>
## 163 TO TOTAL IND-PS <NA>
## 164 TO TOTAL INDEPENDIENTE <NA>
## 165 TO TOTAL LISTA B <NA>
## 166 TO TOTAL LISTA G <NA>
## 167 TO TOTAL LISTA H <NA>
## 168 TO TOTAL LISTA K <NA>
## 169 TO TOTAL LISTA M <NA>
## 170 TO TOTAL LISTA N <NA>
## 171 TO TOTAL LISTA O <NA>
## 172 TO TOTAL LISTA P <NA>
## 173 TO TOTAL PCCH <NA>
## 174 TO TOTAL PH <NA>
## 175 TO TOTAL PPD <NA>
## 176 TO TOTAL PPD-IND-PPD <NA>
## 177 TO TOTAL PRO <NA>
## 178 TO TOTAL PRSD <NA>
## 179 TO TOTAL PS <NA>
## 180 TO TOTAL RD-IND-RD <NA>
## 181 TO TOTAL RN <NA>
## 182 TO TOTAL RN-IND-RN <NA>
## 183 TO TOTAL RN-IND. <NA>
## 184 TO TOTAL UDI <NA>
## 185 TO TOTAL UDI-IND-UDI <NA>
## 186 TO TOTAL VOTOS BLANCOS <NA>
## 187 TO TOTAL VOTOS NULOS <NA>
## 188 VB VB <NA>
## 189 VN VN <NA>
## 190 VO VOTOS BLANCOS <NA>
## 191 VO VOTOS NULOS <NA>elec2$factory[elec2$lalista == "G."] <- "G"
elec2$factory[elec2$lalista == "K."] <- "K"
elec2$factory[elec2$lalista == "N."] <- "N"
elec2$factory[elec2$lalista == "O."] <- "O"
elec2$factory[elec2$lalista == "P."] <- "P"
elec2$factory[elec2$lalista == "H"] <- "H"
elec2$factory[elec2$lalista == "G"] <- "G"
elec2$factory[elec2$lalista == "K"] <- "K"
elec2$factory[elec2$lalista == "N"] <- "N"
elec2$factory[elec2$lalista == "P"] <- "P"
elec2$factory[elec2$lalista == "O"] <- "O"
elec2$factory[elec2$lalista == "B"] <- "B"
head(elec2,5)## lalista sss industry factory
## 1 10 10 ALEJANDRO BARRIENTOS ALVAREZ RD 10 <NA>
## 2 10 10 GUSTAVO A RUZ ZAÑARTU 10 <NA>
## 3 10 10 JUAN ORTIZ SOTO 10 <NA>
## 4 10 10 FRANCISCO COLOANE ROJAS 10 <NA>
## 5 10 10 GLORIA GUZMAN ROJAS 10 <NA>s <- elec2 %>% fill(factory, .direction = "down")
head(s,5)## lalista sss industry factory
## 1 10 10 ALEJANDRO BARRIENTOS ALVAREZ RD 10 <NA>
## 2 10 10 GUSTAVO A RUZ ZAÑARTU 10 <NA>
## 3 10 10 JUAN ORTIZ SOTO 10 <NA>
## 4 10 10 FRANCISCO COLOANE ROJAS 10 <NA>
## 5 10 10 GLORIA GUZMAN ROJAS 10 <NA>s <- s %>% mutate(V5 = ifelse(is.na(industry), NA , paste(industry, factory, sep="")))
#head(s,500)names(s)[2] <- "Lista"
a <- head(s,500)
kbl(a) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "500px")| lalista | Lista | industry | factory | V5 |
|---|---|---|---|---|
| 10 | 10 ALEJANDRO BARRIENTOS ALVAREZ RD | 10 | NA | 10NA |
| 10 | 10 GUSTAVO A RUZ ZAÑARTU | 10 | NA | 10NA |
| 10 | 10 JUAN ORTIZ SOTO | 10 | NA | 10NA |
| 10 | 10 FRANCISCO COLOANE ROJAS | 10 | NA | 10NA |
| 10 | 10 GLORIA GUZMAN ROJAS | 10 | NA | 10NA |
| 10 | 10 PABLO ANTONIO PIZARRO BOSSAY | 10 | NA | 10NA |
| 10 | 10 RIGOBERTO ROJAS SARAPURA | 10 | NA | 10NA |
| 11 | 11 AUCAN HUILCAMAN PAILLAMA | 11 | NA | 11NA |
| 11 | 11 JENNY DEL CARMEN RIVERA ROA RD | 11 | NA | 11NA |
| 11 | 11 MARIA C DE L ROMERO | 11 | NA | 11NA |
| 11 | 11 GABRIEL GUROVICH STEINER | 11 | NA | 11NA |
| 11 | 11 HECTOR CHRISTIAN PEREZ MENESES | 11 | NA | 11NA |
| 11 | 11 JORGE VARGAS GUERRA | 11 | NA | 11NA |
| 11 | 11 SANDRA CECILIA ZAPATA VELASQUEZ | 11 | NA | 11NA |
| 12 | 12 DIEGO ALEXIS ANCALAO GAVILAN | 12 | NA | 12NA |
| 12 | 12 RAUL VARGAS FOURCADE TODOS | 12 | NA | 12NA |
| 12 | 12 SANDRA BEATRIZ ALFARO CHAVEZ | 12 | NA | 12NA |
| 12 | 12 ALEJANDRA GUAJARDO BIZAMA | 12 | NA | 12NA |
| 12 | 12 CLAUDIO OJEDA MURILLO | 12 | NA | 12NA |
| 12 | 12 ELIZABETH PEREZ MATURANA | 12 | NA | 12NA |
| 12 | 12 PAMELA AIDA JIMENEZ GALLARDO | 12 | NA | 12NA |
| 13 | 13 CARLOS CHAVEZ MARCHANT IND-TODOS | 13 | NA | 13NA |
| 13 | 13 GABRIELA PAZ MELENDEZ TORMEN | 13 | NA | 13NA |
| 13 | 13 WILFREDO ALFSEN OVANDO | 13 | NA | 13NA |
| 13 | 13 LAUTARO CARMONA SOTO | 13 | NA | 13NA |
| 13 | 13 LORENA VERGARA BRAVO | 13 | NA | 13NA |
| 13 | 13 OCTAVIO GONZALEZ OJEDA | 13 | NA | 13NA |
| 13 | 13 RODRIGO DIAZ BOGDANIC | 13 | NA | 13NA |
| 14 | 14 CARLOS ADOLFO PEREZ OSORIO DRP | 14 | NA | 14NA |
| 14 | 14 GLORIA MUJICA ASCUI | 14 | NA | 14NA |
| 14 | 14 MARTA GUERRA MEDINA | 14 | NA | 14NA |
| 14 | 14 CAROLINA PERALTA ARAVENA | 14 | NA | 14NA |
| 14 | 14 JORGE SORIA QUIROGA | 14 | NA | 14NA |
| 14 | 14 JUAN IGNACIO LATORRE RIVEROS | 14 | NA | 14NA |
| 14 | 14 VERONICA FOPPIANO DIAZ | 14 | NA | 14NA |
| 15 | 15 ANTONELLA MUÑOZ ARAYA IND-DRP | 15 | NA | 15NA |
| 15 | 15 JIMENA ARIAS QUIROGA | 15 | NA | 15NA |
| 15 | 15 LUCIA CECILIA TORMEN MENDEZ | 15 | NA | 15NA |
| 15 | 15 ALBERTO ROBLES PANTOJA | 15 | NA | 15NA |
| 15 | 15 ASTRID ABARCA IBARRA | 15 | NA | 15NA |
| 15 | 15 FRANCISCO GABRIEL MARIN CASTRO | 15 | NA | 15NA |
| 15 | 15 SALVADOR PEDRO URRUTIA CARDENAS | 15 | NA | 15NA |
| 16 | 16 ALFREDO JUAN SFEIR YOUNIS | 16 | NA | 16NA |
| 16 | 16 CAMILO ESCALONA MEDINA PS | 16 | NA | 16NA |
| 16 | 16 EDUARDO DIAZ HERRERA | 16 | NA | 16NA |
| 16 | 16 FRANITZA MITROVIC VARELA | 16 | NA | 16NA |
| 16 | 16 JOSE MIGUEL INSULZA SALINAS | 16 | NA | 16NA |
| 16 | 16 MONICA VALENCIA BECERRA | 16 | NA | 16NA |
| 16 | 16 YASNA PROVOSTE CAMPILLAY | 16 | NA | 16NA |
| 17 | 17 EMA VIDAL DIAZ | 17 | NA | 17NA |
| 17 | 17 MARIA E LORENZINI LORENZINI | 17 | NA | 17NA |
| 17 | 17 XIMENA ORDENES NEIRA IND-PPD | 17 | NA | 17NA |
| 17 | 17 JUAN CARLOS CARREÑO CARMONA | 17 | NA | 17NA |
| 17 | 17 LILY PEREZ SAN MARTIN | 17 | NA | 17NA |
| 17 | 17 TOMAS REINALDO PASTENES CABEZAS | 17 | NA | 17NA |
| 17 | 17 TRINIDAD VICTORIA PARRA CORREA | 17 | NA | 17NA |
| 18 | 18 LUPERCIANO S MUÑOZ GONZALEZ IND-PRSD | 18 | NA | 18NA |
| 18 | 18 TATIANA RUDOLPH ESPINOZA | 18 | NA | 18NA |
| 18 | 18 YURI SEPULVEDA GONZALEZ | 18 | NA | 18NA |
| 18 | 18 FELIPE WARD EDWARDS | 18 | NA | 18NA |
| 18 | 18 JOSE DURANA SEMIR | 18 | NA | 18NA |
| 18 | 18 PAMELA BOYARDI VILLALOBOS | 18 | NA | 18NA |
| 18 | 18 PEDRO SARIEGO PASTEN | 18 | NA | 18NA |
| 19 | 19 ANDRES VELASCO BRAÑES | 19 | NA | 19NA |
| 19 | 19 EDUARDO CRUCES BURGOS PDC | 19 | NA | 19NA |
| 19 | 19 JUAN EDILBERTO RAMIREZ VILLAGRA | 19 | NA | 19NA |
| 19 | 19 ANA CUADROS MATAMALA | 19 | NA | 19NA |
| 19 | 19 LUZ EBENSPERGER ORREGO | 19 | NA | 19NA |
| 19 | 19 RAFAEL PROHENS ESPINOSA | 19 | NA | 19NA |
| 19 | 19 RODOLFO BARBOSA BARRIOS | 19 | NA | 19NA |
| 20 | 20 FULVIO ROSSI CIOCCA | 20 | NA | 20NA |
| 20 | 20 JAIME QUINTANA LEAL | 20 | NA | 20NA |
| 20 | 20 PAULA ANDREA ROMERO NEIRA | 20 | NA | 20NA |
| 20 | 20 PAZ MARITZA FOITZICH SANDOVAL PDC | 20 | NA | 20NA |
| 20 | 20 ALBERTO EDUARDO NUÑEZ PONCE | 20 | NA | 20NA |
| 20 | 20 MIRTHA ARANCIBIA CRUZ | 20 | NA | 20NA |
| 21 | 21 ALBERTO ANTONIO PIZARRO CHAÑILAO | 21 | NA | 21NA |
| 21 | 21 ALBERTO N MARTINEZ MOYA | 21 | NA | 21NA |
| 21 | 21 HERNAN VODANOVIC SCHNAKE IND-PDC | 21 | NA | 21NA |
| 21 | 21 ENRIQUE LEE FLORES | 21 | NA | 21NA |
| 21 | 21 JULIAN ANDRES UGARTE FUENTES | 21 | NA | 21NA |
| 22 | 22 CLAUDIA ANDREA PALMA NUÑEZ | 22 | NA | 22NA |
| 22 | 22 ESTEBAN BRAVO MORENO | 22 | NA | 22NA |
| 22 | 22 PILAR CUEVAS MARDONES RN | 22 | NA | 22NA |
| 22 | 22 OSCAR REMENTERIA PALOMINO | 22 | NA | 22NA |
| 23 | 23 ANA VERDUGO BADILLA RN | 23 | NA | 23NA |
| 23 | 23 GRACE MARICEL SALAZAR BARRA | 23 | NA | 23NA |
| 23 | 23 PATRICIA DEL CARMEN COÑOMAN CARRILLO | 23 | NA | 23NA |
| 23 | 23 LUIS ARAVENA EGAÑA | 23 | NA | 23NA |
| 24 | 24 ALVARO ELIZALDE SOTO | 24 | NA | 24NA |
| 24 | 24 DAVID SANDOVAL PLAZA UDI | 24 | NA | 24NA |
| 24 | 24 FLOR DOMINGUEZ ROSAS | 24 | NA | 24NA |
| 24 | 24 VLADEMIR VENEGAS SANHUEZA | 24 | NA | 24NA |
| 25 | 25 FUAD EDUARDO CHAHIN VALENZUELA | 25 | NA | 25NA |
| 25 | 25 VIVIANA LANDAETA PARRA | 25 | NA | 25NA |
| 25 | 25 BERTA CARO MORALES | 25 | NA | 25NA |
| 26 | 26 CARLOS VILLALOBOS SEPULVEDA | 26 | NA | 26NA |
| 26 | 26 FRANCISCO HUENCHUMILLA JARAMILLO | 26 | NA | 26NA |
| 26 | 26 RICARDO LAGOS WEBER | 26 | NA | 26NA |
| 27 | 27 FELIPE KAST SOMMERHOFF | 27 | NA | 27NA |
| 27 | 27 JORGE CARLOS TARUD DACCARETT | 27 | NA | 27NA |
| 27 | 27 MARCO ANTONIO NUÑEZ LOZANO | 27 | NA | 27NA |
| 28 | 28 CARMEN GLORIA ARAVENA ACUÑA | 28 | NA | 28NA |
| 28 | 28 LILIANA CARO VERA | 28 | NA | 28NA |
| 28 | 28 ISABEL ALLENDE BUSSI | 28 | NA | 28NA |
| 29 | 29 JOSE GARCIA RUMINOT | 29 | NA | 29NA |
| 29 | 29 VALERIA JENOVEVA LEAL ALBORNOZ | 29 | NA | 29NA |
| 29 | 29 ABEL GALLARDO PEREZ | 29 | NA | 29NA |
| 30 | 30 ANDRES ZALDIVAR LARRAIN | 30 | NA | 30NA |
| 30 | 30 GERMAN BECKER ALVEAR | 30 | NA | 30NA |
| 30 | 30 NELSON JAIME AVILA CONTRERAS | 30 | NA | 30NA |
| 31 | 31 JOSE VILLAGRAN SANDOVAL | 31 | NA | 31NA |
| 31 | 31 XIMENA RINCON GONZALEZ | 31 | NA | 31NA |
| 31 | 31 JOSEFINA BUSTAMANTE DIAZ | 31 | NA | 31NA |
| 32 | 32 GUSTAVO HASBUN SELUME | 32 | NA | 32NA |
| 32 | 32 JUAN ANTONIO COLOMA CORREA | 32 | NA | 32NA |
| 32 | 32 IGNACIO WALKER PRIETO | 32 | NA | 32NA |
| 33 | 33 ROJO EDWARDS SILVA | 33 | NA | 33NA |
| 33 | 33 YASNA CANCINO ROSSON | 33 | NA | 33NA |
| 33 | 33 ALDO VICENTE CORNEJO GONZALEZ | 33 | NA | 33NA |
| 34 | 34 FRANCISCA CONCHA LE-BEUFFE | 34 | NA | 34NA |
| 34 | 34 ORIELE ANGELINA ZENCOVICH MADRID | 34 | NA | 34NA |
| 35 | 35 RODRIGO GALILEA VIAL | 35 | NA | 35NA |
| 35 | 35 FRANCISCO CHAHUAN CHAHUAN | 35 | NA | 35NA |
| 36 | 36 MACARENA PONS PORCILE | 36 | NA | 36NA |
| 36 | 36 CARMEN XIMENA ZAMORA BRAVO | 36 | NA | 36NA |
| 37 | 37 JUAN CASTRO PRIETO | 37 | NA | 37NA |
| 37 | 37 KENNETH PUGH OLAVARRIA | 37 | NA | 37NA |
| 38 | 38 ANDREA MOLINA OLIVA | 38 | NA | 38NA |
| 39 | 39 FRANCISCO BARTOLUCCI JOHNSTON | 39 | NA | 39NA |
| 40 | 40 XIMENA RAMIREZ GUTIERREZ | 40 | NA | 40NA |
| 41 | 41 GASPAR RIVAS SANCHEZ | 41 | NA | 41NA |
| B | B . POR TODO CHILE | NA | NA | NA |
| B | B POR TODO CHILE | NA | NA | NA |
| CA | CANDIDATURA INDEPENDIENTE | NA | NA | NA |
| G | G . FRENTE AMPLIO | NA | NA | NA |
| G | G FRENTE AMPLIO | NA | NA | NA |
| G. | G. FRENTE AMPLIO | NA | G | NA |
| H | H . SUMEMOS | NA | G | NA |
| H | H SUMEMOS | NA | G | NA |
| K | K COALICIÓN REGIONALISTA VERDE | NA | G | NA |
| K. | K. COALICIÓN REGIONALISTA VERDE | NA | K | NA |
| M | M . UNION PATRIOTICA | NA | K | NA |
| N | N . LA FUERZA DE LA MAYORIA | NA | K | NA |
| N | N LA FUERZA DE LA MAYORIA | NA | K | NA |
| N. | N. LA FUERZA DE LA MAYORIA | NA | N | NA |
| O | O . CONVERGENCIA DEMOCRATICA | NA | N | NA |
| O | O CONVERGENCIA DEMOCRATICA | NA | N | NA |
| O. | O. CONVERGENCIA DEMOCRATICA | NA | O | NA |
| P | P . CHILE VAMOS | NA | O | NA |
| P | P CHILE VAMOS | NA | O | NA |
| P. | P. CHILE VAMOS | NA | P | NA |
| T_ | T_M | NA | P | NA |
| TO | TOTAL 2° CIRCUNSCRIPCION SENATORIAL | NA | P | NA |
| TO | TOTAL 4° CIRCUNSCRIPCION | NA | P | NA |
| TO | TOTAL 6° CIRCUNSCRIPCION | NA | P | NA |
| TO | TOTAL CANDIDATURA INDEPENDIENTE | NA | P | NA |
| TO | TOTAL CANDIDATURA INDEPENDIENTES | NA | P | NA |
| TO | TOTAL EP | NA | P | NA |
| TO | TOTAL IND-LBCH | NA | P | NA |
| TO | TOTAL IND-PAIS-PAIS | NA | P | NA |
| TO | TOTAL IND-PPD | NA | P | NA |
| TO | TOTAL IND-PS | NA | P | NA |
| TO | TOTAL INDEPENDIENTE | NA | P | NA |
| TO | TOTAL LISTA B | NA | P | NA |
| TO | TOTAL LISTA G | NA | P | NA |
| TO | TOTAL LISTA H | NA | P | NA |
| TO | TOTAL LISTA K | NA | P | NA |
| TO | TOTAL LISTA M | NA | P | NA |
| TO | TOTAL LISTA N | NA | P | NA |
| TO | TOTAL LISTA O | NA | P | NA |
| TO | TOTAL LISTA P | NA | P | NA |
| TO | TOTAL PCCH | NA | P | NA |
| TO | TOTAL PH | NA | P | NA |
| TO | TOTAL PPD | NA | P | NA |
| TO | TOTAL PPD-IND-PPD | NA | P | NA |
| TO | TOTAL PRO | NA | P | NA |
| TO | TOTAL PRSD | NA | P | NA |
| TO | TOTAL PS | NA | P | NA |
| TO | TOTAL RD-IND-RD | NA | P | NA |
| TO | TOTAL RN | NA | P | NA |
| TO | TOTAL RN-IND-RN | NA | P | NA |
| TO | TOTAL RN-IND. | NA | P | NA |
| TO | TOTAL UDI | NA | P | NA |
| TO | TOTAL UDI-IND-UDI | NA | P | NA |
| TO | TOTAL VOTOS BLANCOS | NA | P | NA |
| TO | TOTAL VOTOS NULOS | NA | P | NA |
| VB | VB | NA | P | NA |
| VN | VN | NA | P | NA |
| VO | VOTOS BLANCOS | NA | P | NA |
| VO | VOTOS NULOS | NA | P | NA |
El s tenemos que mergearlo con la tabla madre por lista
senadores2
senadores_2017 = merge( x = senadores2 , y = s, by ="Lista", all.x = TRUE)## Warning in merge.data.frame(x = senadores2, y = s, by = "Lista", all.x = TRUE):
## column names 'lalista.x', 'industry.x', 'factory.x', 'V5.x', 'lalista.y',
## 'industry.y', 'factory.y', 'V5.y', 'lalista.x', 'industry.x', 'factory.x',
## 'V5.x', 'lalista.y', 'industry.y', 'factory.y', 'V5.y' are duplicated in the
## resultsaveRDS(senadores_2017,"senadores_2017.rds")head(senadores_2017,5)## Lista Circunscripción Tipo de mesa
## 1 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 2 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 3 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 M
## 4 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## 5 10 ALEJANDRO BARRIENTOS ALVAREZ RD 14 V
## Número de mesa Cantidad de votos Año lalista.x industry.x factory.x V5.x
## 1 7 1 2017 10 10 P 10P
## 2 50 0 2017 10 10 P 10P
## 3 57 2 2017 10 10 P 10P
## 4 17 2 2017 10 10 P 10P
## 5 30 1 2017 10 10 P 10P
## lalista.y industry.y factory.y V5.y lalista.x industry.x factory.x V5.x
## 1 10 10 <NA> 10NA 10 10 <NA> 10NA
## 2 10 10 <NA> 10NA 10 10 <NA> 10NA
## 3 10 10 <NA> 10NA 10 10 <NA> 10NA
## 4 10 10 <NA> 10NA 10 10 <NA> 10NA
## 5 10 10 <NA> 10NA 10 10 <NA> 10NA
## lalista.y industry.y factory.y V5.y lalista.x industry.x factory.x V5.x
## 1 10 10 <NA> 10NA 10 10 <NA> 10NA
## 2 10 10 <NA> 10NA 10 10 <NA> 10NA
## 3 10 10 <NA> 10NA 10 10 <NA> 10NA
## 4 10 10 <NA> 10NA 10 10 <NA> 10NA
## 5 10 10 <NA> 10NA 10 10 <NA> 10NA
## lalista.y industry.y factory.y V5.y
## 1 10 10 <NA> 10NA
## 2 10 10 <NA> 10NA
## 3 10 10 <NA> 10NA
## 4 10 10 <NA> 10NA
## 5 10 10 <NA> 10NAsenadores_cir <- unique(senadores_2017$Circunscripción)
senadores_cir## [1] 14 9 11 6 4 1 2g <- read_xlsx("../codes_R_rds/eleccionesunificadaschile/elecciones/codigos_sen_comuna.xlsx")## New names:
## * `` -> ...5
## * `` -> ...7saveRDS(g, "codigos_sen_comuna.rds")union_senadores<-readRDS("../codes_R_rds/eleccionesunificadaschile/elecciones/senadores_1989-2017.rds")
codigos <- readRDS("../codes_R_rds/eleccionesunificadaschile/elecciones/codigos_sen_comuna.rds")head(union_senadores,5)## Lista Circunscripción Tipo de mesa Número de mesa Cantidad de votos
## 1 A1 1 0 43 124
## 2 A1 1 0 47 112
## 3 A1 1 0 46 122
## 4 A1 1 0 45 95
## 5 A1 1 0 44 105
## Nombre del candidato Año
## 1 HUMBERTO PALZA CORVACHO 1989
## 2 HUMBERTO PALZA CORVACHO 1989
## 3 HUMBERTO PALZA CORVACHO 1989
## 4 HUMBERTO PALZA CORVACHO 1989
## 5 HUMBERTO PALZA CORVACHO 1989head(codigos,5)## Warning: `...` is not empty.
##
## We detected these problematic arguments:
## * `needs_dots`
##
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?## # A tibble: 5 x 8
## `CIRCUNSCRIPCIÓ~ DISTRITO `CIRCUNSCRIPCIÓ~ COMUNA ...5 `Código Comuna ~ ...7
## <dbl> <dbl> <chr> <chr> <lgl> <chr> <lgl>
## 1 6 7 SAN ANTONIO ALGAR~ NA 05602 NA
## 2 7 14 MELIPILLA ALHUE NA 13502 NA
## 3 10 21 BIOBIO ALTO ~ NA 08314 NA
## 4 4 4 HUASCO ALTO ~ NA 03302 NA
## 5 2 2 IQUIQUE ALTO ~ NA 01107 NA
## # ... with 1 more variable: `NOMBRE COMUNA` <chr>names(codigos)[1]<- "Circunscripción"
codigos_2 <- codigos[,c(1,6)]
head(codigos_2,5)## Warning: `...` is not empty.
##
## We detected these problematic arguments:
## * `needs_dots`
##
## These dots only exist to allow future extensions and should be empty.
## Did you misspecify an argument?## # A tibble: 5 x 2
## Circunscripción `Código Comuna 2018`
## <dbl> <chr>
## 1 6 05602
## 2 7 13502
## 3 10 08314
## 4 4 03302
## 5 2 01107# uniones_senador_final_final = merge( x = union_senadores, y = codigos_2, by ="Circunscripción", all.x = TRUE)
# uniones_senador_final_final# savRDS(uniones_senador_final_final,"senadores_1989-2017_codigos_nuevos.rds")