Unificación de resultados electorales desde 1989
Homologación de los distritos electorales a la nueva nomenclatura
Victor Enamorado
DataIntelligence-Chile10-02-2021
Abstract
Necesitamos saber si debemos construir un nuevo id que permita homologar el nuevo distritaje territorial electoral para las eleciones historicas para presidentes y diputados desde la vuelta de la democracia. Las elecciones presidenciales no lo necesitan; la de diputados sí acontinuación exponemos la lógica. Si bien se logra el propósito, queda planteada la pregunta de si se puede hacer un reemplazo de manera mas eficiente.
I Estado del arte.
En rojo tenemos las tablas que aún nos queda por reunir.
| Diputados: | Senadores: | Presidentes: | Alcaldes: | Concejales: | Cores: |
| — | — | — | — | — | — |
| Diputados 2009 | Senadores 2009 | Presidentes 2009 | Alcaldes 1992 | Concejales 2004 | Cores 2013: se debe programar su descarga. |
| Diputados 1993 | Senadores 1993 | Presidentes 1993 | Alcaldes 1996 | Concejales 2008 | Cores 2017: se debe programar su descarga. |
| Diputados 1997 | Senadores 1997 | Presidentes 2009 | Alcaldes 2000 | Concejales 2012 | |
| Diputados 2001 | Senadores 2001 | Presidentes 2009 | Alcaldes 2004 | Concejales 2016 | |
| Diputados 2009 | Senadores 2009 | Presidentes 2009 | Alcaldes 2008 | ||
| Diputados 2009 | Senadores 2009 | Presidentes 2013 | Alcaldes 2012 | ||
| Diputados 2013 | Senadores 2013 | Presidentes 2017 | Alcaldes 2016 | ||
| Diputados 2017 | Senadores 2017 |
II El distritaje territorial y las elecciones presidenciales
Las mesas electorales quedan totalmente definidas por el número de mesa, el tipo de mesa y el nombre de circunscripción.
## III El distritaje territorial y las elecciones de diputados
Debemos crear una columna con el nuevo distrito electoral al que pertenecería una comuna en el antiguo si se considerara hoy.
diputados_u <- readRDS("Diputados/d_unificado_nuevo.rds")diputados <- diputados_u
diputados <- sapply(diputados[, c(2)], as.numeric)
head(diputados,5)## 25 3 3 21 1
## 25 3 3 21 1diputados_unidos <- diputados_udiputados_unidos$Distrito_homologado <- NAIV Hacemos el reemplazo en duro pero queremos una forma más eficiente. Queda para un futuro desarrollo.
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito == 1 ] <- 1
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito == 2 ] <- 2
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 3 & diputados_unidos$Distrito <= 4 ] <- 3
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 5 & diputados_unidos$Distrito <= 6 ] <- 4
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 7 & diputados_unidos$Distrito <= 9 ] <- 5
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 10 & diputados_unidos$Distrito <= 12 ] <- 6
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 13 & diputados_unidos$Distrito <= 15 ] <- 7
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 16 ] <- 8
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 17 & diputados_unidos$Distrito <= 19 ] <- 9
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 20 ] <- 8
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 22 & diputados_unidos$Distrito <= 30 ] <- 10
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 31 ] <- 14
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 21 ] <- 10
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 23 & diputados_unidos$Distrito <= 24 ] <- 11
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 25 ] <- 10
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 26 ] <- 12
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 27 & diputados_unidos$Distrito <= 28 ] <- 13
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 29 ] <- 12
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 32 & diputados_unidos$Distrito <= 33 ] <- 15
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 34 & diputados_unidos$Distrito <= 35 ] <- 16
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 36 & diputados_unidos$Distrito <= 38 ] <- 17
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 39 & diputados_unidos$Distrito <= 40 ] <- 18
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 42 ] <- 19
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 43 & diputados_unidos$Distrito <= 45 ] <- 20
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 41 ] <- 19
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 46 & diputados_unidos$Distrito <= 47 ] <- 21
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 48 & diputados_unidos$Distrito <= 49 ] <- 22
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 50 & diputados_unidos$Distrito <= 52 ] <- 23
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 53 & diputados_unidos$Distrito <= 54 ] <- 24
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 55 & diputados_unidos$Distrito <= 56 ] <- 25
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 57 & diputados_unidos$Distrito <= 58 ] <- 26
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 59 ] <- 27
diputados_unidos$Distrito_homologado[diputados_unidos$Distrito >= 60 ] <- 28V Verifiquemos la nueva columna en la que la mesa electoral queda asociada al nuevo distrito territorial electoral.
head(diputados_unidos,15)## Lista Distrito Circunscripción Tipo de mesa Número de mesa Cantidad de votos
## 1 A2 25 8 0 63 5
## 2 A1 3 16 0 17 5
## 3 F1 3 19 0 35 0
## 4 V_N 21 8 0 105 10
## 5 G2 1 1 0 109 31
## 6 I2 3 19 0 62 0
## 7 T_D 4 23 0 69 182
## 8 V_N 22 7 0 100 20
## 9 T_M 24 8 0 20 234
## 10 A1 1 1 0 117 89
## 11 I1 3 19 0 45 34
## 12 A1 26 8 0 85 2
## 13 G2 1 1 0 62 20
## 14 V_B 59 18 0 41 1
## 15 T_B 1 1 0 143 60
## Nombre del candidato anio Nombre de la Circunscripción Inscritos
## 1 ERIKA KLENNER 1997 <NA> <NA>
## 2 VICTOR RAVELLO 1993 <NA> <NA>
## 3 <NA> 1989 <NA> <NA>
## 4 VOTOS NULOS 2005 PROVIDENCIA <NA>
## 5 OREL VICIANI ESCKER 1989 <NA> <NA>
## 6 <NA> 1989 <NA> <NA>
## 7 TOTAL LISTA D 1993 <NA> <NA>
## 8 VOTOS NULOS 2005 PARQUE ALMAGRO <NA>
## 9 TOTAL VOTACION 1997 <NA> <NA>
## 10 LUIS LE BLANC VALENZUELA 1989 <NA> <NA>
## 11 JUAN LUIS MAURAS NOVELLA 1989 <NA> <NA>
## 12 MARILEN CABRERA 1997 <NA> <NA>
## 13 OREL VICIANI ESCKER 1989 <NA> <NA>
## 14 VOTOS BLANCOS 2005 COYHAIQUE <NA>
## 15 TOTAL LISTA B 1993 <NA> <NA>
## Local de votación Direccion del local Distrito_homologado
## 1 <NA> <NA> 10
## 2 <NA> <NA> 12
## 3 <NA> <NA> 12
## 4 <NA> <NA> 10
## 5 <NA> <NA> 1
## 6 <NA> <NA> 12
## 7 <NA> <NA> 18
## 8 <NA> <NA> 10
## 9 <NA> <NA> 11
## 10 <NA> <NA> 1
## 11 <NA> <NA> 12
## 12 <NA> <NA> 12
## 13 <NA> <NA> 1
## 14 <NA> <NA> 27
## 15 <NA> <NA> 1