Manipulación de los datos electorales 1989 - 2009
Victor Enamorado - Christian Castro. DI
21 de diciembre de 2020
Manipularemos los datos electorales 1989 - 2009 extraídos del Tricel de Chile
http://www.tce.cl/resultados-electorales/
para homologar los con la data entregada por el Servel 2012 - 2017. El caso de la elección a diputados 1989.
La data de Tricel se entrega como sigue:
A caption
Esta data debe poseer el formato que entrega el Servel a partir del 2012.
A caption
presidentes <- read_xls('DIPUTADOS_01_1989.xls')
saveRDS(presidentes, "DIPUTADOS_01_1989.rds")dataset_diputadosn <- readRDS("DIPUTADOS_01_1989n.rds")
dataset_diputadosn[ , c("CODIGO", "NOMBRE")]## # A tibble: 29 x 2
## CODIGO NOMBRE
## <chr> <chr>
## 1 A1 LUIS LE BLANC VALENZUELA
## 2 A2 LUIS GUTIERREZ TORRES
## 3 B1 PATRICIO DURAN GATICA
## 4 B2 CARLOS VALCARCE MEDINA
## 5 E1 VICENTE JESUS ECHEVERRIA GUZMAN
## 6 E2 PABLO PIZARRO BOSSAY
## 7 G1 JUAN RESTELLI PORTUGUEZ
## 8 G2 OREL VICIANI ESCKER
## 9 I1 PATRICIO ARANCIBIA BEAUMONT
## 10 V_N VOTOS NULOS
## # ... with 19 more rowsAcá tenemos la repetición 13 Veces de cada fila:
dataset_diputados <- readRDS("DIPUTADOS_01_1989.rds")
# dataset_diputados
resultados <- dataset_diputados[,1:10]
data_diputados_sub_rep<-resultados[rep(seq_len(nrow(resultados)), each = 13), ]
head(data_diputados_sub_rep,10)## # A tibble: 10 x 10
## DISTRITO REGIONP JUNTAP PROVINCIAP COMUNAP NOM_COMUNA CIRP NOM_CIR TIPOMESAP
## <chr> <lgl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1 NA 1 1 1 ARICA 1 ARICA 0
## 2 1 NA 1 1 1 ARICA 1 ARICA 0
## 3 1 NA 1 1 1 ARICA 1 ARICA 0
## 4 1 NA 1 1 1 ARICA 1 ARICA 0
## 5 1 NA 1 1 1 ARICA 1 ARICA 0
## 6 1 NA 1 1 1 ARICA 1 ARICA 0
## 7 1 NA 1 1 1 ARICA 1 ARICA 0
## 8 1 NA 1 1 1 ARICA 1 ARICA 0
## 9 1 NA 1 1 1 ARICA 1 ARICA 0
## 10 1 NA 1 1 1 ARICA 1 ARICA 0
## # ... with 1 more variable: NRO_MESA <chr>Acá tenemos los resultados stackeados de las elecciones:
dataset_diputados <- readRDS("DIPUTADOS_01_1989.rds")
resultados <- dataset_diputados[,11:23]
resultados_stack<-stack(resultados)
nrow(resultados_stack)## [1] 4095nombre <- colnames(resultados)
nombres <- as.data.frame(nombre)
typeof(nombres)## [1] "list"col_stack <- stack(nombres)
data_diputados_sub_rep_cand<-col_stack[rep(seq_len(nrow(col_stack)), times = 315), ]
nrow(data_diputados_sub_rep_cand)## [1] 4095diputados_1989_001 <- cbind(data_diputados_sub_rep, resultados_stack, data_diputados_sub_rep_cand)
head(diputados_1989_001,10)## DISTRITO REGIONP JUNTAP PROVINCIAP COMUNAP NOM_COMUNA CIRP NOM_CIR TIPOMESAP
## 1 1 NA 1 1 1 ARICA 1 ARICA 0
## 2 1 NA 1 1 1 ARICA 1 ARICA 0
## 3 1 NA 1 1 1 ARICA 1 ARICA 0
## 4 1 NA 1 1 1 ARICA 1 ARICA 0
## 5 1 NA 1 1 1 ARICA 1 ARICA 0
## 6 1 NA 1 1 1 ARICA 1 ARICA 0
## 7 1 NA 1 1 1 ARICA 1 ARICA 0
## 8 1 NA 1 1 1 ARICA 1 ARICA 0
## 9 1 NA 1 1 1 ARICA 1 ARICA 0
## 10 1 NA 1 1 1 ARICA 1 ARICA 0
## NRO_MESA values ind values ind
## 1 1 67 A1 A1 nombre
## 2 1 73 A1 A2 nombre
## 3 1 66 A1 B1 nombre
## 4 1 58 A1 B2 nombre
## 5 1 66 A1 E1 nombre
## 6 1 60 A1 E2 nombre
## 7 1 67 A1 G1 nombre
## 8 1 58 A1 G2 nombre
## 9 1 58 A1 I1 nombre
## 10 1 41 A1 V_NULOS nombreData <- diputados_1989_001[,-12]
head(Data,10)## DISTRITO REGIONP JUNTAP PROVINCIAP COMUNAP NOM_COMUNA CIRP NOM_CIR TIPOMESAP
## 1 1 NA 1 1 1 ARICA 1 ARICA 0
## 2 1 NA 1 1 1 ARICA 1 ARICA 0
## 3 1 NA 1 1 1 ARICA 1 ARICA 0
## 4 1 NA 1 1 1 ARICA 1 ARICA 0
## 5 1 NA 1 1 1 ARICA 1 ARICA 0
## 6 1 NA 1 1 1 ARICA 1 ARICA 0
## 7 1 NA 1 1 1 ARICA 1 ARICA 0
## 8 1 NA 1 1 1 ARICA 1 ARICA 0
## 9 1 NA 1 1 1 ARICA 1 ARICA 0
## 10 1 NA 1 1 1 ARICA 1 ARICA 0
## NRO_MESA values values.1 ind
## 1 1 67 A1 nombre
## 2 1 73 A2 nombre
## 3 1 66 B1 nombre
## 4 1 58 B2 nombre
## 5 1 66 E1 nombre
## 6 1 60 E2 nombre
## 7 1 67 G1 nombre
## 8 1 58 G2 nombre
## 9 1 58 I1 nombre
## 10 1 41 V_NULOS nombre