I Unificacion de las bases de datos de elecciones a diputados en Chile desde 1989.

1989

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")

#