Unificación de las bases de datos de elecciones para diputados en Chile desde 1989
Construcción de un criterio unificador luego de la nueva agrupación territorial electoral
Abstract
.
Vamos a leer nuestra base de datos de 1989 y la vamos a homologar a las del 1993 y 1997:
d_1989 <- read_xlsx("xlsx_ya_construidos/diputados_1989.xlsx")
names(d_1989)[1] <- "Lista"
names(d_1989)[2] <- "Circunscripción"
names(d_1989)[5] <- "Número de mesa"
names(d_1989)[6] <- "Cantidad de votos"
names(d_1989)[7] <- "Nombre del candidato"
d_1989$anio <- "1989"
d_1989 <- d_1989[c(1,3,2,4,5,6,7,8)]Leemos y guardamos en formato xlsx para hacer pruebas posteriores:
head(d_1989,3)## # A tibble: 3 x 8
## Lista Distrito Circunscripción `Tipo de mesa` `Número de mesa`
## <chr> <chr> <chr> <chr> <chr>
## 1 A1 1 1 0 58
## 2 A1 1 1 0 29
## 3 A1 1 1 0 30
## # ... with 3 more variables: `Cantidad de votos` <dbl>, `Nombre del
## # candidato` <chr>, anio <chr>write_xlsx(d_1989, "d_1989.xlsx")Hacemos lo mismo para 1993 y 1997:
d_1993 <- read_xlsx("xlsx_ya_construidos/diputados_1993.xlsx")
d_1993$anio <- "1993"
head(d_1993,3)## # A tibble: 3 x 8
## Lista Distrito Circunscripción `Tipo de mesa` `Número de mesa`
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 A1 1 1 0 1
## 2 A1 1 2 1 167
## 3 A1 1 2 1 83
## # ... with 3 more variables: `Cantidad de votos` <dbl>, `Nombre del
## # candidato` <chr>, anio <chr>write_xlsx(d_1993, "d_1993.xlsx")d_1997 <- read_xlsx("xlsx_ya_construidos/diputados_1997.xlsx")
d_1997$anio <- "1997"
head(d_1997,3)## # A tibble: 3 x 8
## Lista Distrito Circunscripción `Tipo de mesa` `Número de mesa`
## <chr> <dbl> <dbl> <dbl> <dbl>
## 1 A1 1 1 0 1
## 2 A1 1 1 0 83
## 3 A1 1 2 1 70
## # ... with 3 more variables: `Cantidad de votos` <dbl>, `Nombre del
## # candidato` <chr>, anio <chr>#write_xlsx(d_1997, "d_1997.xlsx")#