Orden de columnas y unión de tablas para los datos del TCE entre 1989-2009 en Chile

DataIntelligence-Chile

Abstract

El documento sólo contiene repetición del mismo código pues se deben hacer ajustes tabla a tabla dependiendo de sus características únicas. Una estrategia pudo haber iniciado uniendo la moda, pero debimos establecer a priori las columnas que necesitamos.

EXPLORACION

funcion_dip_1989 <- function(j) { 
diputados_1989_numero = data.frame() 
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string) 
#print(diputados_1989) 
} 

for(i in 1:9) { 
funcion_dip_1989(i) 
} 

Nuestra tabla madre sera:

lista
cir
dis
tipo_mesa
n_mesa
votos
nombre

ORDEN 01

j <- 1
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO REGION NRO_CIR NRO_DIS JUNTA PROVINCIA COMUNA NOM_COMUNA
## 1     A1      1       1       1     1         1      1      ARICA
## 2     A1      1       1       1     1         1      1      ARICA
##   CIRCUNSCRIPCION NOM_CIR COLEGIO TIPO_MESA NRO_MESA values ind NOMBRE
## 1               1   ARICA     101         0        1      6  V1  PEDRO
## 2               1   ARICA     101         0        2      8  V2  PEDRO
##   APELLIDO1 APELLIDO2
## 1 CISTERNAS    FLORES
## 2 CISTERNAS    FLORES

empty_df <- diputados_1989[,c(1,3,4,12,13,14,16,17,18)]
head(empty_df,2)

##   CODIGO NRO_CIR NRO_DIS TIPO_MESA NRO_MESA values NOMBRE APELLIDO1 APELLIDO2
## 1     A1       1       1         0        1      6  PEDRO CISTERNAS    FLORES
## 2     A1       1       1         0        2      8  PEDRO CISTERNAS    FLORES

empty_df$NOMBRE <- paste(empty_df$NOMBRE ,empty_df$APELLIDO1 ,empty_df$APELLIDO2 )

names(empty_df)[6] <- "VOTOS"
empty_df <- empty_df[,c(-8,-9)]
#head(empty_df,2)


names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                 nombre
## 1    A1   1   1         0      1     6 PEDRO CISTERNAS FLORES
## 2    A1   1   1         0      2     8 PEDRO CISTERNAS FLORES
## 3    A1   1   1         0     32     8 PEDRO CISTERNAS FLORES
## 4    A1   1   1         0     29     2 PEDRO CISTERNAS FLORES
## 5    A1   1   1         0      3     7 PEDRO CISTERNAS FLORES

saveRDS(empty_df, "diputados_01_1989_f.rds")

ORDEN 02

j <- 2
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
#head(diputados_1989,2)

empty_df <- diputados_1989[,c(1,9,3,11,12,13,15)]
names(empty_df)[6] <- "VOTOS"
names(empty_df)[3] <- "NRO_DIS"
head(empty_df,2)

##   CODIGO CIRP NRO_DIS TIPOMESAP NRO_MESA VOTOS                  NOMBRE
## 1     A1    8       2         1      119    53 HUGO CALDERON CAMPUSANO
## 2     A1    8       2         1       79    40 HUGO CALDERON CAMPUSANO

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                  nombre
## 1    A1   8   2         1    119    53 HUGO CALDERON CAMPUSANO
## 2    A1   8   2         1     79    40 HUGO CALDERON CAMPUSANO
## 3    A1   8   2         1    120    34 HUGO CALDERON CAMPUSANO
## 4    A1   8   2         1    118    44 HUGO CALDERON CAMPUSANO
## 5    A1   8   2         1     78    47 HUGO CALDERON CAMPUSANO

saveRDS(empty_df, "diputados_02_1989_f.rds")

ORDEN 03

j <- 3
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
# head(diputados_1989,2)

empty_df <- diputados_1989[,c(1,8,2,10,11,12,14)]
names(empty_df)[6] <- "VOTOS"
names(empty_df)[3] <- "NRO_DIS"
head(empty_df,2)

##   CODIGO CIRP NRO_DIS TIPOMESAP NRO_MESA VOTOS        NOMBRE
## 1     A1   19       3         0       82    80 NICANOR ARAYA
## 2     A1   19       3         0       19    84 NICANOR ARAYA

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos        nombre
## 1    A1  19   3         0     82    80 NICANOR ARAYA
## 2    A1  19   3         0     19    84 NICANOR ARAYA
## 3    A1  19   3         0     89    89 NICANOR ARAYA
## 4    A1  19   3         0     88    65 NICANOR ARAYA
## 5    A1  19   3         0     90    95 NICANOR ARAYA

saveRDS(empty_df, "diputados_03_1989_f.rds")

ORDEN 04

j <- 4
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
 head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION NRO_MESA values
## 1     A1        4      2     6         6      1              26       70     84
## 2     A1        4      2     6         6      1              26       74    100
##    ind                    NOMBRE
## 1 V342 FELIPE VALENZUELA HERRERA
## 2 V346 FELIPE VALENZUELA HERRERA

empty_df <- diputados_1989[,c(1,7,2,8,9,11)]

empty_df$TIPOMESAP <- NA

names(empty_df)[5] <- "VOTOS"

#names(empty_df)[3] <- "NRO_DIS"

empty_df <- empty_df[,c(1,2,3,7,4,5,6)]

head(empty_df,2)

##   CODIGO CIRCUNSCRIPCION DISTRITO TIPOMESAP NRO_MESA VOTOS
## 1     A1              26        4        NA       70    84
## 2     A1              26        4        NA       74   100
##                      NOMBRE
## 1 FELIPE VALENZUELA HERRERA
## 2 FELIPE VALENZUELA HERRERA

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                    nombre
## 1    A1  26   4        NA     70    84 FELIPE VALENZUELA HERRERA
## 2    A1  26   4        NA     74   100 FELIPE VALENZUELA HERRERA
## 3    A1  26   4        NA     75    91 FELIPE VALENZUELA HERRERA
## 4    A1  26   4        NA     69    84 FELIPE VALENZUELA HERRERA
## 5    A1  26   4        NA     73    98 FELIPE VALENZUELA HERRERA

saveRDS(empty_df, "diputados_04_1989_f.rds")

ORDEN 05

j <- 5
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION NRO_MESA values
## 1     A1        5      3     7         7      1              30        4    114
## 2     A1        5      3     7         7      1              30        6    105
##   ind                NOMBRE
## 1  V4 SERGIO PIZARRO MACKAY
## 2  V6 SERGIO PIZARRO MACKAY

empty_df <- diputados_1989[,c(1,7,2,8,9,11)]

empty_df$TIPOMESAP <- NA

names(empty_df)[5] <- "VOTOS"

#names(empty_df)[3] <- "NRO_DIS"

empty_df <- empty_df[,c(1,2,3,7,4,5,6)]

head(empty_df,2)

##   CODIGO CIRCUNSCRIPCION DISTRITO TIPOMESAP NRO_MESA VOTOS
## 1     A1              30        5        NA        4   114
## 2     A1              30        5        NA        6   105
##                  NOMBRE
## 1 SERGIO PIZARRO MACKAY
## 2 SERGIO PIZARRO MACKAY

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                nombre
## 1    A1  30   5        NA      4   114 SERGIO PIZARRO MACKAY
## 2    A1  30   5        NA      6   105 SERGIO PIZARRO MACKAY
## 3    A1  30   5        NA      5   111 SERGIO PIZARRO MACKAY
## 4    A1  30   5        NA      1   113 SERGIO PIZARRO MACKAY
## 5    A1  30   5        NA      7   120 SERGIO PIZARRO MACKAY

saveRDS(empty_df, "diputados_05_1989_f.rds")

ORDEN 06

j <- 6
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESA
## 1     A1        6      3     8         8      3              37        1
## 2     A1        6      3     8         8      2              36        0
##   NRO_MESA values ind                     NOMBRE
## 1        2    114 V29 ARMANDO ARANCIBIA CALDERON
## 2        4     91  V4 ARMANDO ARANCIBIA CALDERON

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# 
# names(empty_df)[5] <- "VOTOS"
# 
# #names(empty_df)[3] <- "NRO_DIS"
# 
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# 
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                     nombre
## 1    A1  37   6         1      2   114 ARMANDO ARANCIBIA CALDERON
## 2    A1  36   6         0      4    91 ARMANDO ARANCIBIA CALDERON
## 3    A1  36   6         1      6    96 ARMANDO ARANCIBIA CALDERON
## 4    A1  36   6         0      3    80 ARMANDO ARANCIBIA CALDERON
## 5    A1  36   6         1      5    94 ARMANDO ARANCIBIA CALDERON

saveRDS(empty_df, "diputados_06_1989_f.rds")

ORDEN 07

j <- 7
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESA
## 1     A1        7      4    10        10      1              44        0
## 2     A1        7      4    10        10      1              44        0
##   NRO_MESA values ind                    NOMBRE
## 1       32     83 V32 JOAQUIN PALMA IRARRAZABAL
## 2        2     70  V2 JOAQUIN PALMA IRARRAZABAL

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                    nombre
## 1    A1  44   7         0     32    83 JOAQUIN PALMA IRARRAZABAL
## 2    A1  44   7         0      2    70 JOAQUIN PALMA IRARRAZABAL
## 3    A1  44   7         0     63    82 JOAQUIN PALMA IRARRAZABAL
## 4    A1  44   7         0     33    84 JOAQUIN PALMA IRARRAZABAL
## 5    A1  44   7         0      6    51 JOAQUIN PALMA IRARRAZABAL

saveRDS(empty_df, "diputados_07_1989_f.rds")

ORDEN 08

j <- 8
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1        8      4    10        10      3              48         1
## 2     A1        8      4    10        10      3              48         1
##   NRO_MESA values ind             NOMBRE
## 1        7     81 V86 JORGE PIZARRO SOTO
## 2        8     81 V87 JORGE PIZARRO SOTO

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos             nombre
## 1    A1  48   8         1      7    81 JORGE PIZARRO SOTO
## 2    A1  48   8         1      8    81 JORGE PIZARRO SOTO
## 3    A1  48   8         1     10    79 JORGE PIZARRO SOTO
## 4    A1  48   8         1     11    79 JORGE PIZARRO SOTO
## 5    A1  48   8         1     13    74 JORGE PIZARRO SOTO

saveRDS(empty_df, "diputados_08_1989_f.rds")

ORDEN 09

j <- 9
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_0", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1        9      4    12        12      2              66         1
## 2     A1        9      4    12        12      2              65         1
##   NRO_MESA values  ind              NOMBRE
## 1        1    106 V182 JULIO ROJOS ASTORGA
## 2        7     81 V169 JULIO ROJOS ASTORGA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos              nombre
## 1    A1  66   9         1      1   106 JULIO ROJOS ASTORGA
## 2    A1  65   9         1      7    81 JULIO ROJOS ASTORGA
## 3    A1  66   9         1      3    78 JULIO ROJOS ASTORGA
## 4    A1  66   9         0      4    57 JULIO ROJOS ASTORGA
## 5    A1  65   9         1      6    88 JULIO ROJOS ASTORGA

saveRDS(empty_df, "diputados_09_1989_f.rds")

ORDEN 10

j <- 10
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       10      5    16        16      1              89         0
## 2     A1       10      5    17        17      3             110         1
##   NRO_MESA values  ind               NOMBRE
## 1       23     79 V138 EDUARDO CERDA GARCIA
## 2        5     84 V411 EDUARDO CERDA GARCIA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos               nombre
## 1    A1  89  10         0     23    79 EDUARDO CERDA GARCIA
## 2    A1 110  10         1      5    84 EDUARDO CERDA GARCIA
## 3    A1  89  10         0     38    80 EDUARDO CERDA GARCIA
## 4    A1  92  10         1     13    92 EDUARDO CERDA GARCIA
## 5    A1  89  10         0     42    74 EDUARDO CERDA GARCIA

saveRDS(empty_df, "diputados_10_1989_f.rds")

ORDEN 11

j <- 11
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       11      5    14        14      1              78         0
## 2     A1       11      5    14        14      1              78         0
##   NRO_MESA values ind              NOMBRE
## 1        7     73  V7 SERGIO JARA CATALAN
## 2        6     86  V6 SERGIO JARA CATALAN

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos              nombre
## 1    A1  78  11         0      7    73 SERGIO JARA CATALAN
## 2    A1  78  11         0      6    86 SERGIO JARA CATALAN
## 3    A1  78  11         0      4    74 SERGIO JARA CATALAN
## 4    A1  78  11         0     10    70 SERGIO JARA CATALAN
## 5    A1  78  11         0      5    73 SERGIO JARA CATALAN

saveRDS(empty_df, "diputados_11_1989_f.rds")

ORDEN 12

j <- 12
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESA
## 1     A1       12      5    53        17      5             112        0
## 2     A1       12      5    17        17      6             114        1
##   NRO_MESA values  ind                NOMBRE
## 1       44     26 V244 LUIS PERTUZE IGLESIAS
## 2       33     41 V170 LUIS PERTUZE IGLESIAS

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                nombre
## 1    A1 112  12         0     44    26 LUIS PERTUZE IGLESIAS
## 2    A1 114  12         1     33    41 LUIS PERTUZE IGLESIAS
## 3    A1 112  12         0     47    39 LUIS PERTUZE IGLESIAS
## 4    A1 114  12         1     36    42 LUIS PERTUZE IGLESIAS
## 5    A1 112  12         0     46    29 LUIS PERTUZE IGLESIAS

saveRDS(empty_df, "diputados_12_1989_f.rds")

ORDEN 13

j <- 13
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       13      5    17        17      1              97         0
## 2     A1       13      5    17        17      1              97         0
##   NRO_MESA values ind             NOMBRE
## 1       68      9 V68 HECTOR PEÑA CASTRO
## 2       71     13 V71 HECTOR PEÑA CASTRO

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos             nombre
## 1    A1  97  13         0     68     9 HECTOR PEÑA CASTRO
## 2    A1  97  13         0     71    13 HECTOR PEÑA CASTRO
## 3    A1  97  13         0     72    10 HECTOR PEÑA CASTRO
## 4    A1  97  13         0     69     8 HECTOR PEÑA CASTRO
## 5    A1  97  13         0     66     7 HECTOR PEÑA CASTRO

saveRDS(empty_df, "diputados_13_1989_f.rds")

ORDEN 14

j <- 14
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       14      5    17        17      2             108         0
## 2     A1       14      5    17        17      2             108         0
##   NRO_MESA values ind                  NOMBRE
## 1       42     97 V42 GUSTAVO CARDEMIL ALFARO
## 2       44     41 V44 GUSTAVO CARDEMIL ALFARO

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
# empty_df

# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                  nombre
## 1    A1 108  14         0     42    97 GUSTAVO CARDEMIL ALFARO
## 2    A1 108  14         0     44    41 GUSTAVO CARDEMIL ALFARO
## 3    A1 108  14         1     29    76 GUSTAVO CARDEMIL ALFARO
## 4    A1 108  14         0     16    94 GUSTAVO CARDEMIL ALFARO
## 5    A1 108  14         0     14    81 GUSTAVO CARDEMIL ALFARO

saveRDS(empty_df, "diputados_14_1989_f.rds")

ORDEN 15

j <- 15
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       15      5    17        17      7             115         0
## 2     A1       15      5    17        17      7             115         1
##   NRO_MESA values ind            NOMBRE
## 1        6     63  V6 AKIN SOTO MORALES
## 2        6     44 V22 AKIN SOTO MORALES

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos            nombre
## 1    A1 115  15         0      6    63 AKIN SOTO MORALES
## 2    A1 115  15         1      6    44 AKIN SOTO MORALES
## 3    A1 115  15         0     12    64 AKIN SOTO MORALES
## 4    A1 115  15         1      5    48 AKIN SOTO MORALES
## 5    A1 115  15         0      9    60 AKIN SOTO MORALES

saveRDS(empty_df, "diputados_15_1989_f.rds")

ORDEN 16

j <- 16
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       16     13    21        20      2             126         0
## 2     A1       16     13    21        20      1             125         1
##   NRO_MESA values ind                NOMBRE
## 1       10     75 V86 ADRIANA MUÑOZ DALBORA
## 2       14     80 V56 ADRIANA MUÑOZ DALBORA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                nombre
## 1    A1 126  16         0     10    75 ADRIANA MUÑOZ DALBORA
## 2    A1 125  16         1     14    80 ADRIANA MUÑOZ DALBORA
## 3    A1 126  16         0     12    72 ADRIANA MUÑOZ DALBORA
## 4    A1 126  16         0     11    68 ADRIANA MUÑOZ DALBORA
## 5    A1 125  16         0     13    95 ADRIANA MUÑOZ DALBORA

saveRDS(empty_df, "diputados_16_1989_f.rds")

ORDEN 17

j <- 17
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       17     13    56        21      5             144         0
## 2     A1       17     13    56        21      5             144         0
##   NRO_MESA values ind               NOMBRE
## 1       52    124 V52 RAMON ELIZALDE HEVIA
## 2       22    108 V22 RAMON ELIZALDE HEVIA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos               nombre
## 1    A1 144  17         0     52   124 RAMON ELIZALDE HEVIA
## 2    A1 144  17         0     22   108 RAMON ELIZALDE HEVIA
## 3    A1 144  17         0     57    98 RAMON ELIZALDE HEVIA
## 4    A1 144  17         0     56   116 RAMON ELIZALDE HEVIA
## 5    A1 144  17         0     54   124 RAMON ELIZALDE HEVIA

saveRDS(empty_df, "diputados_17_1989_f.rds")

ORDEN 18

j <- 18
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       18     13    55        21     11             156         0
## 2     A1       18     13    55        21     11             156         0
##   NRO_MESA values ind                 NOMBRE
## 1       49    115 V49 HERNAN BOSSELIN CORREA
## 2       55    118 V55 HERNAN BOSSELIN CORREA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                 nombre
## 1    A1 156  18         0     49   115 HERNAN BOSSELIN CORREA
## 2    A1 156  18         0     55   118 HERNAN BOSSELIN CORREA
## 3    A1 156  18         0     56   103 HERNAN BOSSELIN CORREA
## 4    A1 156  18         0     54   117 HERNAN BOSSELIN CORREA
## 5    A1 156  18         0     52   100 HERNAN BOSSELIN CORREA

saveRDS(empty_df, "diputados_18_1989_f.rds")

ORDEN 19

j <- 19
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       19     13    56        21      3             136         0
## 2     A1       19     13    56        21      3             136         0
##   NRO_MESA values ind           NOMBRE
## 1       62     89 V62 MARIO HAMUY BERR
## 2       32    101 V32 MARIO HAMUY BERR

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos           nombre
## 1    A1 136  19         0     62    89 MARIO HAMUY BERR
## 2    A1 136  19         0     32   101 MARIO HAMUY BERR
## 3    A1 136  19         0     36   115 MARIO HAMUY BERR
## 4    A1 136  19         0     63   102 MARIO HAMUY BERR
## 5    A1 136  19         0      6    95 MARIO HAMUY BERR

saveRDS(empty_df, "diputados_19_1989_f.rds")

ORDEN 20

j <- 20
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       20     13    59        21     13             161         1
## 2     A1       20     13    55        21      4             140         0
##   NRO_MESA values  ind             NOMBRE
## 1      126    120 V540 CARLOS DUPRE SILVA
## 2        2     87   V2 CARLOS DUPRE SILVA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos             nombre
## 1    A1 161  20         1    126   120 CARLOS DUPRE SILVA
## 2    A1 140  20         0      2    87 CARLOS DUPRE SILVA
## 3    A1 140  20         0      6   119 CARLOS DUPRE SILVA
## 4    A1 161  20         1    134   115 CARLOS DUPRE SILVA
## 5    A1 161  20         1    133   124 CARLOS DUPRE SILVA

saveRDS(empty_df, "diputados_20_1989_f.rds")

ORDEN 21

j <- 21
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       21     13    60        21     29             198         0
## 2     A1       21     13    60        21     29             198         0
##   NRO_MESA values ind                     NOMBRE
## 1       77    108 V77 GUTENBERG MARTINEZ OCAMICA
## 2       75    102 V75 GUTENBERG MARTINEZ OCAMICA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                     nombre
## 1    A1 198  21         0     77   108 GUTENBERG MARTINEZ OCAMICA
## 2    A1 198  21         0     75   102 GUTENBERG MARTINEZ OCAMICA
## 3    A1 198  21         0     68   105 GUTENBERG MARTINEZ OCAMICA
## 4    A1 198  21         0     88   108 GUTENBERG MARTINEZ OCAMICA
## 5    A1 198  21         0     76   117 GUTENBERG MARTINEZ OCAMICA

saveRDS(empty_df, "diputados_21_1989_f.rds")

ORDEN 22

j <- 22
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       22     13    21        21      1             128         0
## 2     A1       22     13    21        21      1             128         0
##   NRO_MESA values ind               NOMBRE
## 1       20     70 V20 LUIS PARETO GONZALEZ
## 2       31     93 V31 LUIS PARETO GONZALEZ

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos               nombre
## 1    A1 128  22         0     20    70 LUIS PARETO GONZALEZ
## 2    A1 128  22         0     31    93 LUIS PARETO GONZALEZ
## 3    A1 128  22         0     25    81 LUIS PARETO GONZALEZ
## 4    A1 128  22         0     24    68 LUIS PARETO GONZALEZ
## 5    A1 128  22         0     22   100 LUIS PARETO GONZALEZ

saveRDS(empty_df, "diputados_22_1989_f.rds")

ORDEN 23

j <- 23
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       23     13    61        21     30             203         1
## 2     A1       23     13    61        21     30             203         1
##   NRO_MESA values  ind              NOMBRE
## 1       74     27 V468 GUIDO GIRARDI LAVIN
## 2       73     23 V467 GUIDO GIRARDI LAVIN

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos              nombre
## 1    A1 203  23         1     74    27 GUIDO GIRARDI LAVIN
## 2    A1 203  23         1     73    23 GUIDO GIRARDI LAVIN
## 3    A1 203  23         1     72    35 GUIDO GIRARDI LAVIN
## 4    A1 203  23         1    137    37 GUIDO GIRARDI LAVIN
## 5    A1 203  23         1    104    31 GUIDO GIRARDI LAVIN

saveRDS(empty_df, "diputados_23_1989_f.rds")

ORDEN 24

j <- 24
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       24     13    60        21     28             196         0
## 2     A1       24     13    60        21     28             196         0
##   NRO_MESA values ind                 NOMBRE
## 1       61     71 V61 MARTIN MANTEROLA URZUA
## 2       62     79 V62 MARTIN MANTEROLA URZUA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                 nombre
## 1    A1 196  24         0     61    71 MARTIN MANTEROLA URZUA
## 2    A1 196  24         0     62    79 MARTIN MANTEROLA URZUA
## 3    A1 196  24         0     63    67 MARTIN MANTEROLA URZUA
## 4    A1 196  24         0     42   102 MARTIN MANTEROLA URZUA
## 5    A1 197  24         1     10    91 MARTIN MANTEROLA URZUA

saveRDS(empty_df, "diputados_24_1989_f.rds")

ORDEN 25

j <- 25
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       25     13    21        21     26             191         0
## 2     A1       25     13    21        21     26             191         0
##   NRO_MESA values ind                   NOMBRE
## 1       71    125 V71 ANDRES PALMA IRARRAZABAL
## 2       72    147 V72 ANDRES PALMA IRARRAZABAL

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                   nombre
## 1    A1 191  25         0     71   125 ANDRES PALMA IRARRAZABAL
## 2    A1 191  25         0     72   147 ANDRES PALMA IRARRAZABAL
## 3    A1 191  25         0     47   131 ANDRES PALMA IRARRAZABAL
## 4    A1 191  25         0     44   135 ANDRES PALMA IRARRAZABAL
## 5    A1 191  25         0     45   142 ANDRES PALMA IRARRAZABAL

saveRDS(empty_df, "diputados_25_1989_f.rds")

ORDEN 26

j <- 26
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       26     13    86        21     24             185         0
## 2     A1       26     13    86        21     24             185         0
##   NRO_MESA values ind                  NOMBRE
## 1       17    114 V17 CARLOS MONTES CISTERNAS
## 2        6     78  V6 CARLOS MONTES CISTERNAS

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                  nombre
## 1    A1 185  26         0     17   114 CARLOS MONTES CISTERNAS
## 2    A1 185  26         0      6    78 CARLOS MONTES CISTERNAS
## 3    A1 185  26         0     21   116 CARLOS MONTES CISTERNAS
## 4    A1 185  26         0     18   118 CARLOS MONTES CISTERNAS
## 5    A1 185  26         0     22   124 CARLOS MONTES CISTERNAS

saveRDS(empty_df, "diputados_26_1989_f.rds")

ORDEN 27

j <- 27
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1        0     13    65        21     20             176         0
## 2     A1       27     13    64        21     17             171         1
##   NRO_MESA values  ind                 NOMBRE
## 1       12    115  V12 CAMILO ESCALONA MEDINA
## 2       15     65 V533 CAMILO ESCALONA MEDINA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                 nombre
## 1    A1 176   0         0     12   115 CAMILO ESCALONA MEDINA
## 2    A1 171  27         1     15    65 CAMILO ESCALONA MEDINA
## 3    A1 176   0         0     13    98 CAMILO ESCALONA MEDINA
## 4    A1 171  27         1     13    82 CAMILO ESCALONA MEDINA
## 5    A1 165  27         1     21    40 CAMILO ESCALONA MEDINA

saveRDS(empty_df, "diputados_27_1989_f.rds")

ORDEN 28

j <- 28
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       28     13    63        21     22             181         0
## 2     A1       28     13    63        21     22             181         0
##   NRO_MESA values  ind                NOMBRE
## 1       20    141 V531 RODOLFO SEGUEL MOLINA
## 2       22    143 V533 RODOLFO SEGUEL MOLINA

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                nombre
## 1    A1 181  28         0     20   141 RODOLFO SEGUEL MOLINA
## 2    A1 181  28         0     22   143 RODOLFO SEGUEL MOLINA
## 3    A1 167  28         0     10   121 RODOLFO SEGUEL MOLINA
## 4    A1 181  28         0     21   116 RODOLFO SEGUEL MOLINA
## 5    A1 167  28         0     11   124 RODOLFO SEGUEL MOLINA

saveRDS(empty_df, "diputados_28_1989_f.rds")

ORDEN 29

j <- 29
empty_df = data.frame()
diputados_1989_string <- paste("diputados1989/diputados_", j ,'_1989_corregido.rds',sep="")
diputados_1989  <- readRDS(diputados_1989_string)
head(diputados_1989,2)

##   CODIGO DISTRITO REGION JUNTA PROVINCIA COMUNA CIRCUNSCRIPCION TIPOMESAP
## 1     A1       29     13    22        22      1             207         0
## 2     A1       29     13    22        22      1             207         0
##   NRO_MESA values ind                     NOMBRE
## 1       24    125 V24 GUILLERMO YUNGE BUSTAMANTE
## 2       25    122 V25 GUILLERMO YUNGE BUSTAMANTE

empty_df <- diputados_1989[,c(1,7,2,8,9,10,12)]
#empty_df


# empty_df$TIPOMESAP <- NA
# names(empty_df)[5] <- "VOTOS"
# #names(empty_df)[3] <- "NRO_DIS"
# empty_df <- empty_df[,c(1,2,3,7,4,5,6)]
# head(empty_df,2)

names(empty_df)[1] <- "lista"
names(empty_df)[2] <- "cir"
names(empty_df)[3] <- "dis"
names(empty_df)[4] <- "tipo_mesa"
names(empty_df)[5] <- "n_mesa"
names(empty_df)[6] <- "votos"
names(empty_df)[7] <- "nombre"

empty_df$cir <- as.numeric(empty_df$cir)
empty_df$dis <- as.numeric(empty_df$dis)
empty_df$tipo_mesa <- as.numeric(empty_df$tipo_mesa)
empty_df$n_mesa <- as.numeric(empty_df$n_mesa)
empty_df$votos <- as.numeric(empty_df$votos)

head(empty_df,5)

##   lista cir dis tipo_mesa n_mesa votos                     nombre
## 1    A1 207  29         0     24   125 GUILLERMO YUNGE BUSTAMANTE
## 2    A1 207  29         0     25   122 GUILLERMO YUNGE BUSTAMANTE
## 3    A1 207  29         0     21   119 GUILLERMO YUNGE BUSTAMANTE
## 4    A1 207  29         0     32   131 GUILLERMO YUNGE BUSTAMANTE
## 5    A1 207  29         0     26   122 GUILLERMO YUNGE BUSTAMANTE

saveRDS(empty_df, "diputados_29_1989_f.rds")

UNION

dipu_01 <- readRDS("diputados_01_1989_f.rds")
dipu_02 <- readRDS("diputados_02_1989_f.rds")
dipu_03<- readRDS("diputados_03_1989_f.rds")
dipu_04 <- readRDS("diputados_04_1989_f.rds")
dipu_05 <- readRDS("diputados_05_1989_f.rds")
dipu_06 <- readRDS("diputados_06_1989_f.rds")
dipu_07 <- readRDS("diputados_07_1989_f.rds")
dipu_08<- readRDS("diputados_08_1989_f.rds")
dipu_09 <- readRDS("diputados_09_1989_f.rds")
dipu_10 <- readRDS("diputados_10_1989_f.rds")
dipu_11 <- readRDS("diputados_11_1989_f.rds")
dipu_12 <- readRDS("diputados_12_1989_f.rds")
dipu_13<- readRDS("diputados_13_1989_f.rds")
dipu_14 <- readRDS("diputados_14_1989_f.rds")
dipu_15 <- readRDS("diputados_15_1989_f.rds")
dipu_16 <- readRDS("diputados_16_1989_f.rds")
dipu_17 <- readRDS("diputados_17_1989_f.rds")
dipu_18<- readRDS("diputados_18_1989_f.rds")
dipu_19 <- readRDS("diputados_19_1989_f.rds")
dipu_20 <- readRDS("diputados_20_1989_f.rds")
dipu_21 <- readRDS("diputados_21_1989_f.rds")
dipu_22 <- readRDS("diputados_22_1989_f.rds")
dipu_23 <- readRDS("diputados_23_1989_f.rds")
dipu_24<- readRDS("diputados_24_1989_f.rds")
dipu_25 <- readRDS("diputados_25_1989_f.rds")
dipu_26 <- readRDS("diputados_26_1989_f.rds")
dipu_27 <- readRDS("diputados_27_1989_f.rds")
dipu_28 <- readRDS("diputados_28_1989_f.rds")
dipu_29<- readRDS("diputados_29_1989_f.rds")

dipu_f <- bind_rows(dipu_01, dipu_02, dipu_03,dipu_04, dipu_05,
dipu_06,
dipu_07,
dipu_08,
dipu_09,
dipu_10,
                    
dipu_11,    
dipu_12, 
dipu_13, 
dipu_14, 
dipu_15, 
dipu_16,    
dipu_17, 
dipu_18, 
dipu_19, 
dipu_20, 

dipu_21,    
dipu_22, 
dipu_23, 
dipu_24, 
dipu_25, 
dipu_26,    
dipu_27, 
dipu_28, 
dipu_29, )
head(dipu_f,5)

##   lista cir dis tipo_mesa n_mesa votos                 nombre
## 1    A1   1   1         0      1     6 PEDRO CISTERNAS FLORES
## 2    A1   1   1         0      2     8 PEDRO CISTERNAS FLORES
## 3    A1   1   1         0     32     8 PEDRO CISTERNAS FLORES
## 4    A1   1   1         0     29     2 PEDRO CISTERNAS FLORES
## 5    A1   1   1         0      3     7 PEDRO CISTERNAS FLORES

saveRDS(dipu_f, "diputados_1989_f_primera_parte.rds")