Índice:

I. Introducción

(volver al índice)

Tenemos una tabla central de una base de datos (llamémosla electoral-demográfica) y dos tablas más: locales de votacion y poblados.

La tabla central de la base electoral-demográfica posee registros que representan personas cuyos campos relevantes son la edad, el sexo, el local y la mesa de votación que le corresponde y el poblado al que pertenece. Lo primero que resolveremos será crear una estructura de claves que permitan relacionar éstas tres tablas, trabajo que se expone en el punto 2: “Creación de claves”.

Es de interés poder vincular dos datos a nivel agregado tanto para la mesa como el local de votación: la cantidad de hombres y mujeres y ela cantidad de votantes por edad.

Existe un grado de complejidad a nivel de local de votación, pues éstos tienen una existencia conceptual y no física: un local de votación puede estar en varios poblados simultáneamente.

Construiremos las tablas en verde:



II. Creación de claves

2.1 La tabla central de la base de datos censal

(volver al índice)

2.1.0 Lectura de la tabla central

Vamos a leer la tabla central y la subsetearemos a sólo 10000 registros para poder trabajar con rapidez. Veamos las primeras 100 filas:

TBL_CNE_M_CENSO_NACIONAL <- readRDS("../../bases_de_datos/elecciones_Honduras/TBL_CNE_M_CENSO_NACIONAL.rds")
TBL_CNE_M_CENSO_NACIONAL_100 <- TBL_CNE_M_CENSO_NACIONAL[1:1000,]
a <- head(TBL_CNE_M_CENSO_NACIONAL_100,100)
kbl(a) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_MUNICIPIO_DOMICILIO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA
0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 1 1 1 1 E01 0 0 0
0101190600076 ENRIQUETA GARCIA 2 1906/12/23 5 1 4 41 1 145 H01 1 Z00 4066 210
0101190800106 LUCILA LUCILA FLORES 0 1 1 1 1 1 1 E01 0 0 0
0101190800945 GERMANA RAMONA VALLADARES AVILA 2 1908/10/12 5 1 7 35 1 284 H01 1 Z00 4689 67
0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 1 1 1 1 E01 0 0 0
0101191000079 ALINE ALFONSINA BRENILLET ALCANTARA 2 1910/08/22 1 1 1 26 1 22 H01 1 Z00 92 112
0101191100110 GUILLERMO GALEAS BECERRA 1 1911/08/19 1 1 1 46 1 33 H01 1 Z00 172 138
0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 1 1 1 1 E01 0 0 0
0101191100128 EDUARDO EDUARDO FUNES 0 1 1 1 1 1 1 E01 0 0 0
0101191200010 CARLOS FOOT BANEGAS 1 1912/12/29 1 1 1 123 1 16 E01 1 Z00 0 0
0101191200097 MARIA CALDERINI GALINDO 2 1912/03/03 1 4 1 1 2 1 E01 1 Z00 0 0
0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 1 1 1 1 E01 0 0 0
0101191200170 GRISELDA GRISELDA RUBI 0 1 1 1 1 1 1 E01 0 0 0
0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 1 1 1 1 E01 0 0 0
0101191300017 MARIA EVA CASTILLO ANTUNEZ 2 1913/01/12 8 1 3 16 1 253 H01 1 Z00 9605 196
0101191300041 VICTOR SOLIS 1 1913/02/18 1 1 12 1 2 6 E01 1 Z00 0 0
0101191300048 LAURA CABRERA 0 8 1 1 1 1 1 E01 1 Z00 0 0
0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 1 1 1 1 E01 0 0 0
0101191300101 BASILIO VELASQUEZ 1 1913/06/14 1 1 4 1 2 3 E01 1 Z00 0 0
0101191300102 ERASMO RAMOS 1 1913/06/14 1 6 10 1 2 4 H01 1 Z00 641 300
0101191300136 MARIA ANGELA BREVILLET ALCANTARA 2 1913/08/04 1 1 1 26 1 22 E01 1 Z00 0 0
0101191300141 DOMINGA SOLORZANO 2 1913/08/04 1 1 4 1 2 3 H01 1 Z00 336 45
0101191300154 CANDIDA AGUIRRE 2 1913/09/04 1 1 1 7 1 7 H01 1 Z00 33 17
0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191300177 ELOISA MC COY 2 1913/10/12 18 7 50 1 2 29 E01 1 Z00 0 0
0101191300209 GUADALUPE PIEDAD TABLADA 2 1913/12/12 1 1 1 18 1 15 H01 1 Z00 55 265
0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 1 1 1 1 E01 0 0 0
0101191400040 ESTELA ARGENTINA MATUTE CANIZALES 2 1914/03/14 1 1 1 24 1 20 E01 1 Z00 0 0
0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 1 1 1 1 E01 0 0 0
0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191400155 ROSA EDITA MARTINEZ ROMERO 2 1914/09/16 1 1 1 5 1 5 E01 1 Z00 0 0
0101191400170 MARIA LUISA TABLADA 2 1914/10/14 1 1 1 6 1 6 E01 1 Z00 0 0
0101191400195 CATALINA DAVID GARCIA 0 8 1 1 1 1 1 E01 1 Z00 0 0
0101191400200 AURELIA FERNANDEZ 2 1914/12/02 1 1 4 1 2 3 E01 1 Z00 0 0
0101191400207 NICOLASA NICOLASA REYES 0 1 1 1 1 1 1 E01 0 0 0
0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191500062 NELVIN MC KENLY SANTINE SANTINE 1 1915/04/12 1 2 1 1 2 1 H01 1 Z00 380 250
0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 1 1 1 1 E01 0 0 0
0101191500096 IRENE REBEKAH HEATH 2 1915/05/21 11 3 1 1 2 1 H01 1 Z00 12618 234
0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 1 1 1 1 E01 0 0 0
0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 1 1 1 1 E01 0 0 0
0101191500109 MARIA ARAMINTA ROMERO POSAS 2 1915/07/05 1 1 1 14 1 22 H01 1 Z00 100 339
0101191500131 FILADELFO LOBO RODRIGUEZ 1 1915/08/23 5 1 4 20 1 130 H01 1 Z00 3963 324
0101191500142 MAZEY INORA BELCARRIS BODDEN 2 1915/09/10 11 1 2 1 2 6 H01 1 Z00 12590 256
0101191500158 JOSE RUMUALDO GALEAS SOTO 1 1915/09/28 1 1 1 41 1 31 H01 1 Z00 156 281
0101191500164 ISABEL GRAUGNARD GARCIA 2 1915/10/08 1 1 1 5 1 5 H01 1 Z00 27 32
0101191500181 LASTENIA PAGOAGA 2 1915/10/28 1 1 1 16 1 15 E01 1 Z00 0 0
0101191500192 MARIA DE LOS ANGELES VALLADARES 2 1915/11/16 5 1 2 33 1 62 H01 1 Z00 3740 354
0101191500200 MARIA NATALIA VILLAFRANCA 2 1915/11/02 1 1 1 10 1 22 H01 1 Z00 102 219
0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 1 1 1 1 E01 0 0 0
0101191500783 JULIAN ANTONIO AGUILAR PEREIRA 1 1915/02/17 1 1 1 24 1 20 H01 1 Z00 81 17
0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 1 1 1 1 E01 0 0 0
0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 1 1 1 1 E01 0 0 0
0101191600058 CORONADO FIALLOS RODRIGUEZ 1 1916/09/04 1 1 1 26 1 22 H01 1 Z00 94 107
0101191600070 MANUEL DE JESUS CANELAS AGURCIA 1 1916/09/21 1 1 1 26 1 22 H01 1 Z00 92 239
0101191600092 MIRNA CORDELIA AVILA 2 1916/10/19 18 7 1 1 1 1 E01 1 Z00 0 0
0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 1 1 1 1 E01 0 0 0
0101191600094 MARIA ELENA HERNANDEZ 2 1916/10/22 5 1 4 41 1 145 H01 1 I10 4067 232
0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 1 1 3 1 1 H01 1 Z00 23 104
0101191600121 JUANA EVANGELISTA CANELAS SANTOS 2 1916/12/26 8 1 5 57 1 446 H01 1 Z00 10406 209
0101191600132 ALBERTO ACOSTA 2 1916/04/07 1 1 1 34 1 28 H01 1 Z00 125 9
0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 1 1 4 1 2 3 H01 1 Z00 331 163
0101191600150 MARIA TERESA ELVIR 2 1916/03/07 1 1 1 24 1 20 H01 1 Z00 82 127
0101191600221 CARLOS BERTOT ACOSTA 1 8 1 1 1 1 1 E01 0 0 0
0101191600232 BERNARDA CARIBAY LINARES 2 1916/01/26 5 1 2 9 1 43 E01 1 Z00 0 0
0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 1 1 1 1 E01 0 0 0
0101191700051 JOSE FELIX SOSA 0 1 1 1 1 1 1 E01 0 0 0
0101191700052 GRACIELA MEJIA VALLADARES 2 1917/02/27 1 1 1 30 1 23 E01 1 Z00 0 0
0101191700057 VICTORIA OFELIA MARTINEZ ALONZO 2 1917/03/05 1 4 1 1 2 1 E01 1 Z00 0 0
0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 1 1 1 1 E01 0 0 0
0101191700093 LUCIAN DUNUEL KELLY HENDRICKS 1 1917/05/07 5 6 1 26 1 12 H01 1 Z00 5611 312
0101191700094 CONCEPCION AGUSTINA HERNANDEZ PADILLA 2 1917/05/04 1 1 1 41 1 31 H01 1 Z00 157 256
0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191700138 BASILIA RODRIGUEZ CASTRO 2 1917/07/04 1 1 17 1 2 8 H01 1 Z00 352 212
0101191700150 OLIMPIA NIEVES MONCADA 2 1917/08/05 1 1 1 26 1 22 H01 1 Z00 98 3
0101191700164 JUANA CALIX QUEZADA 2 1917/08/23 11 1 1 1 1 1 H01 1 Z00 12523 81
0101191700171 RAQUEL REVECA ALFONSO RUIZ 2 1917/09/09 5 1 83 2 1 86 E01 1 Z00 0 0
0101191700174 ZOILA BLANCA EMILIA RIVERA FIALLOS 2 1917/09/20 8 1 1 30 1 14 E01 1 Z00 0 0
0101191700195 LUCILA ALINA BREUILLET ALCANTARA 2 1917/10/31 1 1 1 26 1 22 E01 1 Z00 0 0
0101191700196 MARIA DE LOS SANTOS MUNGUIA MARTINEZ 2 1917/10/28 1 1 1 65 1 40 H01 1 Z00 226 203
0101191700200 ENEMECIO CARCAMO VILLAFRANCA 1 1917/10/31 1 1 19 1 2 9 H01 1 Z00 354 135
0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 1 1 1 1 E01 0 0 0
0101191700224 MILENE FEREZ GALINDO 2 1917/12/06 8 1 3 8 1 248 E01 1 Z00 0 0
0101191700233 GUADALUPE FIALLOS MARTINEZ 1 1917/12/02 1 7 7 6 2 3 E01 1 Z00 0 0
0101191800026 ROSARIO DOROTEA SAUSA ACOSTA 2 1918/02/06 1 1 1 18 1 15 H01 1 Z00 55 241
0101191800028 MARIA DE JESUS PONCE 2 1918/02/05 1 1 1 85 1 44 H01 1 Z00 248 64
0101191800043 JULIANA VUELTO CHAMORRO 2 1918/02/20 1 1 17 1 2 8 E01 1 Z00 0 0
0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 1 1 1 1 E01 0 0 0
0101191800063 JOSE ABRAHAM URBINA GARCIA 1 1918/03/17 1 1 1 26 1 22 E01 1 Z00 0 0
0101191800078 MANUEL DE JESUS OCAMPO CRUZ 1 1918/03/29 1 1 1 46 1 33 E01 1 Z00 0 0
0101191800097 MIGUEL RUBEN UGARTE ORTEGA 1 1918/04/03 1 1 1 28 1 24 E01 1 Z00 0 0
0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 1 1 1 1 E01 0 0 0
0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 1 1 1 1 E01 0 0 0
0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 1 1 1 1 E01 0 0 0
0101191800157 CRESCENCIA LOPEZ GARCIA 2 1918/07/15 1 1 4 1 2 3 H01 1 Z00 333 126
0101191800161 JUAN ANTONIO CACERES CALIX 1 1918/07/19 11 1 1 1 1 1 H01 1 Z00 12523 36
0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 1 1 1 1 E01 0 0 0
0101191800179 LIDIA MERIDA CEDEÑO RIVERA 2 1918/08/10 1 1 1 24 1 20 H01 1 Z00 81 340


Debemos construir dos nuevos campos, con los que nos podamos conectar a las tablas poblado y local de votación. No es problema porque los podemos construir con información contenida en la misma tabla.

El formato del código de lugar de votación es:

\(\begin{aligned} 06 - 01 - 01 - 019 \\ \end{aligned}\)

CODIGO_DEPARTAMENTO_DOMICILIO - CODIGO_MUNICIPIO_DOMICILIO - CODIGO_AREA - CODIGO_SECTOR_ELECTORAL

El formato del código de lugar poblado es:

\(\begin{aligned} 06 - 01 - 01 - 019 \\ \end{aligned}\)

CODIGO_DEPARTAMENTO_DOMICILIO - CODIGO_MUNICIPIO_DOMICILIO - CODIGO_ALDEA - CODIGO_LUGAR_POBLADO


2.1.1 Construcción del código lugar de votación en la tabla censal

(volver al índice)


i. Corregimos para CODIGO_DEPARTAMENTO_DOMICILIO.

Hay que completar con ceros los dígitos que poseen uno. Como máximo tienen dos dígitos. Para ello construímos un diccionario ad-hoc y hacemos un merge con la tabla madre. Desplegaremos los 100 primeros registros.

# Corrección al codigo de DEPARTAMENTO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_dep <- rbind(df1,df2)
dic_dep   <- as.data.frame(dic_dep)
names(dic_dep)[1] <- "CODIGO_DEPARTAMENTO_DOMICILIO"
names(dic_dep)[2] <- "CODIGO_DEPARTAMENTO_DOMICILIO_nuevo"
# dic_dep
TBL_1  = merge( x = TBL_CNE_M_CENSO_NACIONAL_100, y = dic_dep, by = "CODIGO_DEPARTAMENTO_DOMICILIO", all.x = TRUE)
# TBL_CNE_M_CENSO_NACIONAL_100_final
a_1 <- head(TBL_1,100)
kbl(a_1) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_DEPARTAMENTO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_MUNICIPIO_DOMICILIO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA CODIGO_DEPARTAMENTO_DOMICILIO_nuevo
1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 1 1 1 E01 0 0 0 01
1 0101192200057 FELIPA CESARINA PUERTO 2 1922/02/28 1 21 1 2 10 H01 1 Z00 359 133 01
1 0101190800106 LUCILA LUCILA FLORES 0 1 1 1 1 1 E01 0 0 0 01
1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 1 1 1 E01 0 0 0 01
1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191000079 ALINE ALFONSINA BRENILLET ALCANTARA 2 1910/08/22 1 1 26 1 22 H01 1 Z00 92 112 01
1 0101191100110 GUILLERMO GALEAS BECERRA 1 1911/08/19 1 1 46 1 33 H01 1 Z00 172 138 01
1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 1 1 1 E01 0 0 0 01
1 0101191200010 CARLOS FOOT BANEGAS 1 1912/12/29 1 1 123 1 16 E01 1 Z00 0 0 01
1 0101191200097 MARIA CALDERINI GALINDO 2 1912/03/03 4 1 1 2 1 E01 1 Z00 0 0 01
1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 1 1 1 E01 0 0 0 01
1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 1 1 1 E01 0 0 0 01
1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 1 1 1 E01 0 0 0 01
1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191300041 VICTOR SOLIS 1 1913/02/18 1 12 1 2 6 E01 1 Z00 0 0 01
1 0101192000104 MARIA DEL CARMEN RAMIREZ VILLALOBO 2 1920/08/15 3 1 1 2 1 H01 1 Z00 419 79 01
1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 1 1 1 E01 0 0 0 01
1 0101191300101 BASILIO VELASQUEZ 1 1913/06/14 1 4 1 2 3 E01 1 Z00 0 0 01
1 0101191300102 ERASMO RAMOS 1 1913/06/14 6 10 1 2 4 H01 1 Z00 641 300 01
1 0101191300136 MARIA ANGELA BREVILLET ALCANTARA 2 1913/08/04 1 1 26 1 22 E01 1 Z00 0 0 01
1 0101191300141 DOMINGA SOLORZANO 2 1913/08/04 1 4 1 2 3 H01 1 Z00 336 45 01
1 0101191300154 CANDIDA AGUIRRE 2 1913/09/04 1 1 7 1 7 H01 1 Z00 33 17 01
1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 1 1 1 E01 0 0 0 01
1 0101191300209 GUADALUPE PIEDAD TABLADA 2 1913/12/12 1 1 18 1 15 H01 1 Z00 55 265 01
1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191400040 ESTELA ARGENTINA MATUTE CANIZALES 2 1914/03/14 1 1 24 1 20 E01 1 Z00 0 0 01
1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 1 1 1 E01 0 0 0 01
1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191400155 ROSA EDITA MARTINEZ ROMERO 2 1914/09/16 1 1 5 1 5 E01 1 Z00 0 0 01
1 0101191400170 MARIA LUISA TABLADA 2 1914/10/14 1 1 6 1 6 E01 1 Z00 0 0 01
1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 1 1 1 E01 0 0 0 01
1 0101191400200 AURELIA FERNANDEZ 2 1914/12/02 1 4 1 2 3 E01 1 Z00 0 0 01
1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 1 1 1 E01 0 0 0 01
1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500062 NELVIN MC KENLY SANTINE SANTINE 1 1915/04/12 2 1 1 2 1 H01 1 Z00 380 250 01
1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 1 1 1 E01 0 0 0 01
1 0101192200254 PABLO EMILIO UGARTE ORTEGA 1 1922/09/28 1 1 7 1 7 H01 1 Z00 37 215 01
1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500109 MARIA ARAMINTA ROMERO POSAS 2 1915/07/05 1 1 14 1 22 H01 1 Z00 100 339 01
1 0101192100008 BLANCA ZOILA JUAREZ PONCE 2 1921/12/28 1 1 39 1 30 H01 1 Z00 149 279 01
1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500158 JOSE RUMUALDO GALEAS SOTO 1 1915/09/28 1 1 41 1 31 H01 1 Z00 156 281 01
1 0101191500164 ISABEL GRAUGNARD GARCIA 2 1915/10/08 1 1 5 1 5 H01 1 Z00 27 32 01
1 0101191500181 LASTENIA PAGOAGA 2 1915/10/28 1 1 16 1 15 E01 1 Z00 0 0 01
1 0101192200318 JOSEFA CELSA BUSTILLO 2 1922/11/30 7 1 10 1 4 H01 1 Z00 657 338 01
1 0101191500200 MARIA NATALIA VILLAFRANCA 2 1915/11/02 1 1 10 1 22 H01 1 Z00 102 219 01
1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191500783 JULIAN ANTONIO AGUILAR PEREIRA 1 1915/02/17 1 1 24 1 20 H01 1 Z00 81 17 01
1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 1 1 1 E01 0 0 0 01
1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191600058 CORONADO FIALLOS RODRIGUEZ 1 1916/09/04 1 1 26 1 22 H01 1 Z00 94 107 01
1 0101191600070 MANUEL DE JESUS CANELAS AGURCIA 1 1916/09/21 1 1 26 1 22 H01 1 Z00 92 239 01
1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 1 1 1 E01 0 0 0 01
1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 1 1 1 E01 0 0 0 01
1 0101192100096 SOLEDAD PALMA 2 1921/03/21 1 1 64 1 28 H01 1 Z00 136 270 01
1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 1 3 1 1 H01 1 Z00 23 104 01
1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 1 1 1 E01 0 0 0 01
1 0101191600132 ALBERTO ACOSTA 2 1916/04/07 1 1 34 1 28 H01 1 Z00 125 9 01
1 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 1 4 1 2 3 H01 1 Z00 331 163 01
1 0101191600150 MARIA TERESA ELVIR 2 1916/03/07 1 1 24 1 20 H01 1 Z00 82 127 01
1 0101192100123 CRESENCIA ZAPATA MARTINEZ 2 1921/04/19 1 4 1 2 3 E01 1 Z00 0 0 01
1 0101192100129 ALFREDO URBINA 1 1921/06/14 1 1 98 1 48 H01 1 Z00 264 217 01
1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 1 1 1 E01 0 0 0 01
1 0101191700051 JOSE FELIX SOSA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191700052 GRACIELA MEJIA VALLADARES 2 1917/02/27 1 1 30 1 23 E01 1 Z00 0 0 01
1 0101191700057 VICTORIA OFELIA MARTINEZ ALONZO 2 1917/03/05 4 1 1 2 1 E01 1 Z00 0 0 01
1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 1 1 1 E01 0 0 0 01
1 0101192100165 MARIA SATURNINA MEDINA VILLAFRANCA 2 1921/06/04 1 1 23 1 19 H01 1 Z00 77 314 01
1 0101191700094 CONCEPCION AGUSTINA HERNANDEZ PADILLA 2 1917/05/04 1 1 41 1 31 H01 1 Z00 157 256 01
1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191700138 BASILIA RODRIGUEZ CASTRO 2 1917/07/04 1 17 1 2 8 H01 1 Z00 352 212 01
1 0101191700150 OLIMPIA NIEVES MONCADA 2 1917/08/05 1 1 26 1 22 H01 1 Z00 98 3 01
1 0101192100191 JOSE ISABEL HERNANDEZ 1 1921/07/08 1 1 105 1 53 E01 1 Z00 0 0 01
1 0101192300110 LUZ MARINA URBIZO HERRERA 2 1923/04/02 1 1 26 1 22 H01 1 Z00 102 75 01
1 0101192100199 EMMA OSORIO ESCOBAR 2 1921/07/18 1 1 23 1 19 H01 1 Z00 78 263 01
1 0101191700195 LUCILA ALINA BREUILLET ALCANTARA 2 1917/10/31 1 1 26 1 22 E01 1 Z00 0 0 01
1 0101191700196 MARIA DE LOS SANTOS MUNGUIA MARTINEZ 2 1917/10/28 1 1 65 1 40 H01 1 Z00 226 203 01
1 0101191700200 ENEMECIO CARCAMO VILLAFRANCA 1 1917/10/31 1 19 1 2 9 H01 1 Z00 354 135 01
1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 1 1 1 E01 0 0 0 01
1 0101192300143 LILIA ESTELA ROSALES HERRERA 2 1923/05/06 1 1 19 1 16 E01 1 Z00 0 0 01
1 0101191700233 GUADALUPE FIALLOS MARTINEZ 1 1917/12/02 7 7 6 2 3 E01 1 Z00 0 0 01
1 0101191800026 ROSARIO DOROTEA SAUSA ACOSTA 2 1918/02/06 1 1 18 1 15 H01 1 Z00 55 241 01
1 0101191800028 MARIA DE JESUS PONCE 2 1918/02/05 1 1 85 1 44 H01 1 Z00 248 64 01
1 0101191800043 JULIANA VUELTO CHAMORRO 2 1918/02/20 1 17 1 2 8 E01 1 Z00 0 0 01
1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191800063 JOSE ABRAHAM URBINA GARCIA 1 1918/03/17 1 1 26 1 22 E01 1 Z00 0 0 01
1 0101191800078 MANUEL DE JESUS OCAMPO CRUZ 1 1918/03/29 1 1 46 1 33 E01 1 Z00 0 0 01
1 0101191800097 MIGUEL RUBEN UGARTE ORTEGA 1 1918/04/03 1 1 28 1 24 E01 1 Z00 0 0 01
1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 1 1 1 E01 0 0 0 01
1 0101191800157 CRESCENCIA LOPEZ GARCIA 2 1918/07/15 1 4 1 2 3 H01 1 Z00 333 126 01
1 0101192100287 RAFAELA ARJONIA MEJIA 2 1921/10/25 1 1 10 1 22 H01 1 Z00 91 293 01
1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 1 1 1 E01 0 0 0 01
1 0101191800179 LIDIA MERIDA CEDEÑO RIVERA 2 1918/08/10 1 1 24 1 20 H01 1 Z00 81 340 01


ii. Corregimos para CODIGO_MUNICIPIO_DOMICILIO.

Hay que completar con ceros los dígitos que poseen uno. Como máximo tienen dos dígitos. Para ello construímos un diccionario ad-hoc y hacemos un merge con la tabla madre.

# Corrección al codigo de MUNICIPIO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic__mun <- rbind(df1,df2)
dic__mun  <- as.data.frame(dic__mun)
names(dic__mun)[1] <- "CODIGO_MUNICIPIO_DOMICILIO"
names(dic__mun)[2] <- "CODIGO_MUNICIPIO_DOMICILIO_nuevo"
# dic__mun
TBL_2  = merge( x = TBL_1, y = dic__mun, by = "CODIGO_MUNICIPIO_DOMICILIO", all.x = TRUE)
a_2 <- head(TBL_2,100)
kbl(a_2) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo
1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192200057 FELIPA CESARINA PUERTO 2 1922/02/28 21 1 2 10 H01 1 Z00 359 133 01 01
1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191000079 ALINE ALFONSINA BRENILLET ALCANTARA 2 1910/08/22 1 26 1 22 H01 1 Z00 92 112 01 01
1 1 0101191100110 GUILLERMO GALEAS BECERRA 1 1911/08/19 1 46 1 33 H01 1 Z00 172 138 01 01
1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191200010 CARLOS FOOT BANEGAS 1 1912/12/29 1 123 1 16 E01 1 Z00 0 0 01 01
1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191300041 VICTOR SOLIS 1 1913/02/18 12 1 2 6 E01 1 Z00 0 0 01 01
1 1 0101192200113 SOVEIDA GIRON 2 1922/04/22 1 10 1 22 H01 1 Z00 94 285 01 01
1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191300101 BASILIO VELASQUEZ 1 1913/06/14 4 1 2 3 E01 1 Z00 0 0 01 01
1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 1 1 E01 1 Z00 0 0 01 01
1 1 0101191300136 MARIA ANGELA BREVILLET ALCANTARA 2 1913/08/04 1 26 1 22 E01 1 Z00 0 0 01 01
1 1 0101191300141 DOMINGA SOLORZANO 2 1913/08/04 4 1 2 3 H01 1 Z00 336 45 01 01
1 1 0101191300154 CANDIDA AGUIRRE 2 1913/09/04 1 7 1 7 H01 1 Z00 33 17 01 01
1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191300209 GUADALUPE PIEDAD TABLADA 2 1913/12/12 1 18 1 15 H01 1 Z00 55 265 01 01
1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191400040 ESTELA ARGENTINA MATUTE CANIZALES 2 1914/03/14 1 24 1 20 E01 1 Z00 0 0 01 01
1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191400155 ROSA EDITA MARTINEZ ROMERO 2 1914/09/16 1 5 1 5 E01 1 Z00 0 0 01 01
1 1 0101191400170 MARIA LUISA TABLADA 2 1914/10/14 1 6 1 6 E01 1 Z00 0 0 01 01
1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191400200 AURELIA FERNANDEZ 2 1914/12/02 4 1 2 3 E01 1 Z00 0 0 01 01
1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192000252 TROADIO FIALLOS MARTINEZ 1 1920/01/03 16 9 2 7 H01 1 Z00 344 243 01 01
1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192200254 PABLO EMILIO UGARTE ORTEGA 1 1922/09/28 1 7 1 7 H01 1 Z00 37 215 01 01
1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191500109 MARIA ARAMINTA ROMERO POSAS 2 1915/07/05 1 14 1 22 H01 1 Z00 100 339 01 01
1 1 0101192100008 BLANCA ZOILA JUAREZ PONCE 2 1921/12/28 1 39 1 30 H01 1 Z00 149 279 01 01
1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191500158 JOSE RUMUALDO GALEAS SOTO 1 1915/09/28 1 41 1 31 H01 1 Z00 156 281 01 01
1 1 0101191500164 ISABEL GRAUGNARD GARCIA 2 1915/10/08 1 5 1 5 H01 1 Z00 27 32 01 01
1 1 0101191500181 LASTENIA PAGOAGA 2 1915/10/28 1 16 1 15 E01 1 Z00 0 0 01 01
1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 1 1 H01 1 Z00 7 324 01 01
1 1 0101191500200 MARIA NATALIA VILLAFRANCA 2 1915/11/02 1 10 1 22 H01 1 Z00 102 219 01 01
1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191500783 JULIAN ANTONIO AGUILAR PEREIRA 1 1915/02/17 1 24 1 20 H01 1 Z00 81 17 01 01
1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191600058 CORONADO FIALLOS RODRIGUEZ 1 1916/09/04 1 26 1 22 H01 1 Z00 94 107 01 01
1 1 0101191600070 MANUEL DE JESUS CANELAS AGURCIA 1 1916/09/21 1 26 1 22 H01 1 Z00 92 239 01 01
1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192100096 SOLEDAD PALMA 2 1921/03/21 1 64 1 28 H01 1 Z00 136 270 01 01
1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 1 1 H01 1 Z00 23 104 01 01
1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191600132 ALBERTO ACOSTA 2 1916/04/07 1 34 1 28 H01 1 Z00 125 9 01 01
1 1 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 4 1 2 3 H01 1 Z00 331 163 01 01
1 1 0101191600150 MARIA TERESA ELVIR 2 1916/03/07 1 24 1 20 H01 1 Z00 82 127 01 01
1 1 0101192100123 CRESENCIA ZAPATA MARTINEZ 2 1921/04/19 4 1 2 3 E01 1 Z00 0 0 01 01
1 1 0101192100129 ALFREDO URBINA 1 1921/06/14 1 98 1 48 H01 1 Z00 264 217 01 01
1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191700051 JOSE FELIX SOSA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191700052 GRACIELA MEJIA VALLADARES 2 1917/02/27 1 30 1 23 E01 1 Z00 0 0 01 01
1 1 0101192100153 RITA MARTINEZ 2 1921/05/22 17 1 2 8 H01 1 I10 350 186 01 01
1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192100165 MARIA SATURNINA MEDINA VILLAFRANCA 2 1921/06/04 1 23 1 19 H01 1 Z00 77 314 01 01
1 1 0101191700094 CONCEPCION AGUSTINA HERNANDEZ PADILLA 2 1917/05/04 1 41 1 31 H01 1 Z00 157 256 01 01
1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191700138 BASILIA RODRIGUEZ CASTRO 2 1917/07/04 17 1 2 8 H01 1 Z00 352 212 01 01
1 1 0101191700150 OLIMPIA NIEVES MONCADA 2 1917/08/05 1 26 1 22 H01 1 Z00 98 3 01 01
1 1 0101192100191 JOSE ISABEL HERNANDEZ 1 1921/07/08 1 105 1 53 E01 1 Z00 0 0 01 01
1 1 0101192300110 LUZ MARINA URBIZO HERRERA 2 1923/04/02 1 26 1 22 H01 1 Z00 102 75 01 01
1 1 0101192100199 EMMA OSORIO ESCOBAR 2 1921/07/18 1 23 1 19 H01 1 Z00 78 263 01 01
1 1 0101191700195 LUCILA ALINA BREUILLET ALCANTARA 2 1917/10/31 1 26 1 22 E01 1 Z00 0 0 01 01
1 1 0101191700196 MARIA DE LOS SANTOS MUNGUIA MARTINEZ 2 1917/10/28 1 65 1 40 H01 1 Z00 226 203 01 01
1 1 0101191700200 ENEMECIO CARCAMO VILLAFRANCA 1 1917/10/31 19 1 2 9 H01 1 Z00 354 135 01 01
1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101192300143 LILIA ESTELA ROSALES HERRERA 2 1923/05/06 1 19 1 16 E01 1 Z00 0 0 01 01
1 1 0101192300146 JOSEFINA CABRERA HERNANDEZ 2 1923/05/10 1 16 1 15 E01 1 Z00 0 0 01 01
1 1 0101191800026 ROSARIO DOROTEA SAUSA ACOSTA 2 1918/02/06 1 18 1 15 H01 1 Z00 55 241 01 01
1 1 0101191800028 MARIA DE JESUS PONCE 2 1918/02/05 1 85 1 44 H01 1 Z00 248 64 01 01
1 1 0101191800043 JULIANA VUELTO CHAMORRO 2 1918/02/20 17 1 2 8 E01 1 Z00 0 0 01 01
1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191800063 JOSE ABRAHAM URBINA GARCIA 1 1918/03/17 1 26 1 22 E01 1 Z00 0 0 01 01
1 1 0101191800078 MANUEL DE JESUS OCAMPO CRUZ 1 1918/03/29 1 46 1 33 E01 1 Z00 0 0 01 01
1 1 0101191800097 MIGUEL RUBEN UGARTE ORTEGA 1 1918/04/03 1 28 1 24 E01 1 Z00 0 0 01 01
1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191800157 CRESCENCIA LOPEZ GARCIA 2 1918/07/15 4 1 2 3 H01 1 Z00 333 126 01 01
1 1 0101192100287 RAFAELA ARJONIA MEJIA 2 1921/10/25 1 10 1 22 H01 1 Z00 91 293 01 01
1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 1 1 E01 0 0 0 01 01
1 1 0101191800179 LIDIA MERIDA CEDEÑO RIVERA 2 1918/08/10 1 24 1 20 H01 1 Z00 81 340 01 01
# TBL_CNE_M_CENSO_NACIONAL_100_final


iii. Corregimos para CODIGO_AREA.

Hay que completar con ceros los dígitos que poseen uno. Como máximo tienen dos dígitos. Para ello construímos un diccionario ad-hoc y hacemos un merge con la tabla madre.

# Corrección al codigo de AREA
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_area <- rbind(df1,df2)
dic_area  <- as.data.frame(dic_area)
names(dic_area)[1] <- "CODIGO_AREA"
names(dic_area)[2] <- "CODIGO_AREA_nuevo"
# dic_area
TBL_3  = merge( x = TBL_2, y = dic_area, by = "CODIGO_AREA", all.x = TRUE)
# TBL_CNE_M_CENSO_NACIONAL_100_final
a_3 <- head(TBL_3,100)
kbl(a_3) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_AREA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_SECTOR_ELECTORAL CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo CODIGO_AREA_nuevo
1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192600030 LEOVIGILDO SALGADO 1 1926/01/02 1 17 56 E01 1 Z00 0 0 01 01 01
1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191000079 ALINE ALFONSINA BRENILLET ALCANTARA 2 1910/08/22 1 26 22 H01 1 Z00 92 112 01 01 01
1 1 1 0101191100110 GUILLERMO GALEAS BECERRA 1 1911/08/19 1 46 33 H01 1 Z00 172 138 01 01 01
1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191200010 CARLOS FOOT BANEGAS 1 1912/12/29 1 123 16 E01 1 Z00 0 0 01 01 01
1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 1 1 H01 1 Z00 13 318 01 01 01
1 1 1 0101192200113 SOVEIDA GIRON 2 1922/04/22 1 10 22 H01 1 Z00 94 285 01 01 01
1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192000127 AUGUSTO FORGAS JUAREZ 1 1920/12/20 1 39 30 H01 1 Z00 149 1 01 01 01
1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 1 E01 1 Z00 0 0 01 01 01
1 1 1 0101191300136 MARIA ANGELA BREVILLET ALCANTARA 2 1913/08/04 1 26 22 E01 1 Z00 0 0 01 01 01
1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191300154 CANDIDA AGUIRRE 2 1913/09/04 1 7 7 H01 1 Z00 33 17 01 01 01
1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191300209 GUADALUPE PIEDAD TABLADA 2 1913/12/12 1 18 15 H01 1 Z00 55 265 01 01 01
1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191400040 ESTELA ARGENTINA MATUTE CANIZALES 2 1914/03/14 1 24 20 E01 1 Z00 0 0 01 01 01
1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191400155 ROSA EDITA MARTINEZ ROMERO 2 1914/09/16 1 5 5 E01 1 Z00 0 0 01 01 01
1 1 1 0101191400170 MARIA LUISA TABLADA 2 1914/10/14 1 6 6 E01 1 Z00 0 0 01 01 01
1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192000206 JOAQUIN RODRIGUEZ SEVILLA 1 1920/11/27 1 23 19 H01 1 Z00 79 255 01 01 01
1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192200254 PABLO EMILIO UGARTE ORTEGA 1 1922/09/28 1 7 7 H01 1 Z00 37 215 01 01 01
1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500109 MARIA ARAMINTA ROMERO POSAS 2 1915/07/05 1 14 22 H01 1 Z00 100 339 01 01 01
1 1 1 0101192100008 BLANCA ZOILA JUAREZ PONCE 2 1921/12/28 1 39 30 H01 1 Z00 149 279 01 01 01
1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500158 JOSE RUMUALDO GALEAS SOTO 1 1915/09/28 1 41 31 H01 1 Z00 156 281 01 01 01
1 1 1 0101191500164 ISABEL GRAUGNARD GARCIA 2 1915/10/08 1 5 5 H01 1 Z00 27 32 01 01 01
1 1 1 0101191500181 LASTENIA PAGOAGA 2 1915/10/28 1 16 15 E01 1 Z00 0 0 01 01 01
1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 1 H01 1 Z00 7 324 01 01 01
1 1 1 0101191500200 MARIA NATALIA VILLAFRANCA 2 1915/11/02 1 10 22 H01 1 Z00 102 219 01 01 01
1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191500783 JULIAN ANTONIO AGUILAR PEREIRA 1 1915/02/17 1 24 20 H01 1 Z00 81 17 01 01 01
1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191600058 CORONADO FIALLOS RODRIGUEZ 1 1916/09/04 1 26 22 H01 1 Z00 94 107 01 01 01
1 1 1 0101191600070 MANUEL DE JESUS CANELAS AGURCIA 1 1916/09/21 1 26 22 H01 1 Z00 92 239 01 01 01
1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192100096 SOLEDAD PALMA 2 1921/03/21 1 64 28 H01 1 Z00 136 270 01 01 01
1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 1 H01 1 Z00 23 104 01 01 01
1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191600132 ALBERTO ACOSTA 2 1916/04/07 1 34 28 H01 1 Z00 125 9 01 01 01
1 1 1 0101192300047 DAISY EMILIA ARAUZ REYES 2 1923/02/08 1 25 21 E01 1 Z00 0 0 01 01 01
1 1 1 0101191600150 MARIA TERESA ELVIR 2 1916/03/07 1 24 20 H01 1 Z00 82 127 01 01 01
1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192100129 ALFREDO URBINA 1 1921/06/14 1 98 48 H01 1 Z00 264 217 01 01 01
1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191700051 JOSE FELIX SOSA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191700052 GRACIELA MEJIA VALLADARES 2 1917/02/27 1 30 23 E01 1 Z00 0 0 01 01 01
1 1 1 0101192300071 FLORENCIO FIALLOS MARTINEZ 1 1923/02/28 1 27 23 H01 1 Z00 105 85 01 01 01
1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192100165 MARIA SATURNINA MEDINA VILLAFRANCA 2 1921/06/04 1 23 19 H01 1 Z00 77 314 01 01 01
1 1 1 0101191700094 CONCEPCION AGUSTINA HERNANDEZ PADILLA 2 1917/05/04 1 41 31 H01 1 Z00 157 256 01 01 01
1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191700150 OLIMPIA NIEVES MONCADA 2 1917/08/05 1 26 22 H01 1 Z00 98 3 01 01 01
1 1 1 0101192100191 JOSE ISABEL HERNANDEZ 1 1921/07/08 1 105 53 E01 1 Z00 0 0 01 01 01
1 1 1 0101192300110 LUZ MARINA URBIZO HERRERA 2 1923/04/02 1 26 22 H01 1 Z00 102 75 01 01 01
1 1 1 0101192100199 EMMA OSORIO ESCOBAR 2 1921/07/18 1 23 19 H01 1 Z00 78 263 01 01 01
1 1 1 0101191700195 LUCILA ALINA BREUILLET ALCANTARA 2 1917/10/31 1 26 22 E01 1 Z00 0 0 01 01 01
1 1 1 0101191700196 MARIA DE LOS SANTOS MUNGUIA MARTINEZ 2 1917/10/28 1 65 40 H01 1 Z00 226 203 01 01 01
1 1 1 0101193000021 FLABIA PEÑA GALINDO 2 1930/01/03 1 5 5 H01 1 Z00 28 41 01 01 01
1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192300143 LILIA ESTELA ROSALES HERRERA 2 1923/05/06 1 19 16 E01 1 Z00 0 0 01 01 01
1 1 1 0101192300146 JOSEFINA CABRERA HERNANDEZ 2 1923/05/10 1 16 15 E01 1 Z00 0 0 01 01 01
1 1 1 0101191800026 ROSARIO DOROTEA SAUSA ACOSTA 2 1918/02/06 1 18 15 H01 1 Z00 55 241 01 01 01
1 1 1 0101191800028 MARIA DE JESUS PONCE 2 1918/02/05 1 85 44 H01 1 Z00 248 64 01 01 01
1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191800063 JOSE ABRAHAM URBINA GARCIA 1 1918/03/17 1 26 22 E01 1 Z00 0 0 01 01 01
1 1 1 0101191800078 MANUEL DE JESUS OCAMPO CRUZ 1 1918/03/29 1 46 33 E01 1 Z00 0 0 01 01 01
1 1 1 0101191800097 MIGUEL RUBEN UGARTE ORTEGA 1 1918/04/03 1 28 24 E01 1 Z00 0 0 01 01 01
1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101192100287 RAFAELA ARJONIA MEJIA 2 1921/10/25 1 10 22 H01 1 Z00 91 293 01 01 01
1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 1 E01 0 0 0 01 01 01
1 1 1 0101191800179 LIDIA MERIDA CEDEÑO RIVERA 2 1918/08/10 1 24 20 H01 1 Z00 81 340 01 01 01


iv. Corregimos para CODIGO_SECTOR_ELECTORAL.

Hay que completar con ceros los dígitos que poseen uno y dos. Como máximo tienen tres dígitos. Para ello construímos un diccionario ad-hoc y hacemos un merge con la tabla madre.

# Corrección al codigo de sector electoral

numero1 <- seq(1, 9)
numero_1 <<- paste("00",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("0",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
numero3 <- seq(100, 1000)
numero_3 <<- paste(numero3,sep = "")
df3 <- cbind(numero3,numero_3)
dic_sect_elec <- rbind(df1,df2,df3)
dic_sect_elec <- as.data.frame(dic_sect_elec)
names(dic_sect_elec)[1] <- "CODIGO_SECTOR_ELECTORAL"
names(dic_sect_elec)[2] <- "CODIGO_SECTOR_ELECTORAL_nuevo"
# dic_sect_elec
TBL_4  = merge( x = TBL_3, y = dic_sect_elec, by = "CODIGO_SECTOR_ELECTORAL", all.x = TRUE)

a_4 <- head(TBL_4,100)
kbl(a_4) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_SECTOR_ELECTORAL CODIGO_AREA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo CODIGO_AREA_nuevo CODIGO_SECTOR_ELECTORAL_nuevo
1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 1 H01 1 Z00 13 318 01 01 01 001
1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 E01 1 Z00 0 0 01 01 01 001
1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 1 2 H01 1 Z00 25 156 01 01 01 001
1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 1 1 E01 0 0 0 01 01 01 001
1 2 5 2 0101192500118 CONCEPCION CALIX 1 1925/05/23 1 1 H01 1 Z00 1176 36 02 05 02 001
1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 H01 1 Z00 7 324 01 01 01 001
1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 H01 1 Z00 23 104 01 01 01 001
1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191700051 JOSE FELIX SOSA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 1 1 E01 1 Z00 0 0 01 01 01 001
1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 1 1 E01 0 0 0 01 01 01 001
1 2 2 1 0101192100324 MARIA CONCEPCION NUÑEZ MIDENCE 2 1921/12/06 1 1 E01 1 Z00 0 0 01 02 02 001
1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 1 1 H01 1 Z00 24 69 01 01 01 001
1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 1 1 E01 1 Z00 0 0 01 01 01 001
1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 5 0101192900264 ONEIDA CONCEPCION INTERIANO ZEPEDA 2 1929/12/08 1 1 E01 1 Z00 0 0 05 01 01 001
1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 1 2 H01 1 Z00 2 245 01 01 01 001
1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 E01 0 0 0 01 01 01 001
1 1 3 20 0101192800341 MAURICIO ALVARO ALONSO MARTINEZ 1 1928/09/22 1 1 H01 1 Z00 0 0 20 03 01 001
1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 1 1 E01 0 0 0 01 01 01 001
1 1 1 11 0101192900151 MANFORD ALPHONSO GROGAN GROGAN 1 1929/09/08 1 1 H01 1 Z00 12529 172 11 01 01 001
#colnames(a)
# TBL_CNE_M_CENSO_NACIONAL_100_final


v. Construímos la clave unificando las columnas creadas, eliminando las innecesarias, llamando clave_vot al nuevo campo:

tabla_madre <- unite(TBL_4 , clave_vot ,c(19,20,21,22),  sep = "", remove = T)
# TBL_CNE_M_CENSO_NACIONAL_100_final_con_clave_vot

a_5 <- head(tabla_madre,100)
kbl(a_5) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_SECTOR_ELECTORAL CODIGO_AREA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot
1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 1 H01 1 Z00 13 318 010101001
1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 E01 1 Z00 0 0 010101001
1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 1 2 H01 1 Z00 25 156 010101001
1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 1 1 E01 0 0 0 010101001
1 2 5 2 0101192500118 CONCEPCION CALIX 1 1925/05/23 1 1 H01 1 Z00 1176 36 020502001
1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 H01 1 Z00 7 324 010101001
1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 H01 1 Z00 23 104 010101001
1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191700051 JOSE FELIX SOSA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 1 1 E01 1 Z00 0 0 010101001
1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 1 1 E01 0 0 0 010101001
1 2 2 1 0101192100324 MARIA CONCEPCION NUÑEZ MIDENCE 2 1921/12/06 1 1 E01 1 Z00 0 0 010202001
1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 1 1 H01 1 Z00 24 69 010101001
1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 1 1 E01 1 Z00 0 0 010101001
1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 1 1 E01 0 0 0 010101001
1 1 1 5 0101192900264 ONEIDA CONCEPCION INTERIANO ZEPEDA 2 1929/12/08 1 1 E01 1 Z00 0 0 050101001
1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 1 2 H01 1 Z00 2 245 010101001
1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 E01 0 0 0 010101001
1 1 3 20 0101192800341 MAURICIO ALVARO ALONSO MARTINEZ 1 1928/09/22 1 1 H01 1 Z00 0 0 200301001
1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 1 1 E01 0 0 0 010101001
1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 1 1 E01 0 0 0 010101001
1 1 1 11 0101192900151 MANFORD ALPHONSO GROGAN GROGAN 1 1929/09/08 1 1 H01 1 Z00 12529 172 110101001


2.1.2 Construcción del código para ‘lugar poblado’ en la tabla censal

(volver al índice)

Recordemos:

El formato del código de lugar de poblado es:

\(\begin{aligned} 06 - 01 - 01 - 019 \\ \end{aligned}\)

CODIGO_DEPARTAMENTO_DOMICILIO - CODIGO_MUNICIPIO_DOMICILIO - CODIGO_ALDEA - CODIGO_LUGAR_POBLADO


i. Corregimos para CODIGO_DEPARTAMENTO_DOMICILIO

Hay que completar con ceros los dígitos que poseen uno. Como máximo tienen dos dígitos. Para ello construímos un diccionario ad-hoc y hacemos un merge con la tabla madre.

# Corrección al código de DEPARTAMENTO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_dep <- rbind(df1,df2)
dic_dep   <- as.data.frame(dic_dep)
names(dic_dep)[1] <- "CODIGO_DEPARTAMENTO_DOMICILIO"
names(dic_dep)[2] <- "CODIGO_DEPARTAMENTO_DOMICILIO_nuevo"
# dic_dep
TBL_6   = merge( x = tabla_madre, y = dic_dep, by = "CODIGO_DEPARTAMENTO_DOMICILIO", all.x = TRUE)
# tabla_madre

a_6 <- head(TBL_6,100)
kbl(a_6) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA CODIGO_MUNICIPIO_DOMICILIO NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot CODIGO_DEPARTAMENTO_DOMICILIO_nuevo
1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 1 H01 1 Z00 13 318 010101001 01
1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 E01 1 Z00 0 0 010101001 01
1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 1 2 H01 1 Z00 25 156 010101001 01
1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 H01 1 Z00 7 324 010101001 01
1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 H01 1 Z00 23 104 010101001 01
1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191700051 JOSE FELIX SOSA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 1 1 E01 1 Z00 0 0 010101001 01
1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 1 1 E01 0 0 0 010101001 01
1 1 2 2 0101192100324 MARIA CONCEPCION NUÑEZ MIDENCE 2 1921/12/06 1 1 E01 1 Z00 0 0 010202001 01
1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 1 1 H01 1 Z00 24 69 010101001 01
1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 1 1 E01 1 Z00 0 0 010101001 01
1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 1 1 E01 0 0 0 010101001 01
1 4 1 7 0101192400113 RAFAEL ZUNIGA VIVAS 1 1924/07/24 1 10 E01 1 Z00 0 0 010701004 01
1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 1 2 H01 1 Z00 2 245 010101001 01
1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 1 1 E01 0 0 0 010101001 01
1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 1 1 E01 0 0 0 010101001 01
1 5 2 2 0101192500114 ANGEL RAMON RIVERA 1 1925/05/22 10 1 H01 1 Z00 404 79 010202005 01


ii. Corrección al codigo de CODIGO_MUNICIPIO_DOMICILIO

# Corrección al codigo de MUNICIPIO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic__mun <- rbind(df1,df2)
dic__mun  <- as.data.frame(dic__mun)
names(dic__mun)[1] <- "CODIGO_MUNICIPIO_DOMICILIO"
names(dic__mun)[2] <- "CODIGO_MUNICIPIO_DOMICILIO_nuevo"
# dic__mun
TBL_7  = merge( x = TBL_6, y = dic__mun, by = "CODIGO_MUNICIPIO_DOMICILIO", all.x = TRUE)


a_7 <- head(TBL_7,100)
kbl(a_7) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_ALDEA CODIGO_LUGAR_POBLADO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo
1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 1 H01 1 Z00 13 318 010101001 01 01
1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 1 E01 1 Z00 0 0 010101001 01 01
1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 1 2 H01 1 Z00 25 156 010101001 01 01
1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 1 H01 1 Z00 7 324 010101001 01 01
1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 1 3 H01 1 Z00 23 104 010101001 01 01
1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700051 JOSE FELIX SOSA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 1 1 E01 1 Z00 0 0 010101001 01 01
1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400108 MARIA MAGDALENA VELA HERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 1 1 H01 1 Z00 24 69 010101001 01 01
1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 1 1 E01 1 Z00 0 0 010101001 01 01
1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 24 1 0101192800188 AIDA ESTELA MATUTE KIEFFER 2 1928/05/21 1 28 H01 1 Z00 114 214 010101024 01 01
1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 1 2 H01 1 Z00 2 245 010101001 01 01
1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 1 1 E01 0 0 0 010101001 01 01
1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 1 1 E01 0 0 0 010101001 01 01
1 1 8 1 0101192800250 ROBERTO CANALES RUBI 1 1928/07/04 1 15 E01 1 Z00 0 0 010101008 01 01
# tabla_madre


iii. Corrección al codigo de CODIGO_ALDEA

numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_aldea <- rbind(df1,df2)
dic_aldea <- as.data.frame(dic_aldea)
names(dic_aldea)[1] <- "CODIGO_ALDEA"
names(dic_aldea)[2] <- "CODIGO_ALDEA_nuevo"
# dic_aldea
TBL_8  = merge( x = TBL_7, y = dic_aldea, by = "CODIGO_ALDEA", all.x = TRUE)
# tabla_madre


a_8 <- head(TBL_8,100)
kbl(a_8) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_LUGAR_POBLADO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo CODIGO_ALDEA_nuevo
1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 1 H01 1 Z00 13 318 010101001 01 01 01
1 1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 1 E01 1 Z00 0 0 010101001 01 01 01
1 1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 2 H01 1 Z00 25 156 010101001 01 01 01
1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 1 H01 1 Z00 7 324 010101001 01 01 01
1 1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 3 H01 1 Z00 23 104 010101001 01 01 01
1 1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 1 E01 1 Z00 0 0 010101001 01 01 01
1 1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400108 MARIA MAGDALENA VELA HERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 1 H01 1 Z00 24 69 010101001 01 01 01
1 1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 1 E01 1 Z00 0 0 010101001 01 01 01
1 1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 24 1 0101192800188 AIDA ESTELA MATUTE KIEFFER 2 1928/05/21 28 H01 1 Z00 114 214 010101024 01 01 01
1 1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 2 H01 1 Z00 2 245 010101001 01 01 01
1 1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 1 E01 0 0 0 010101001 01 01 01
1 1 1 8 1 0101192800250 ROBERTO CANALES RUBI 1 1928/07/04 15 E01 1 Z00 0 0 010101008 01 01 01


iv. Corrección al codigo de CODIGO_LUGAR_POBLADO

numero1 <- seq(1, 9)
numero_1 <<- paste("00",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("0",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
numero3 <- seq(100, 1000)
numero_3 <<- paste(numero3,sep = "")
df3 <- cbind(numero3,numero_3)
dic_lug_pobla <- rbind(df1,df2,df3)
dic_lug_pobla <- as.data.frame(dic_lug_pobla)
names(dic_lug_pobla)[1] <- "CODIGO_LUGAR_POBLADO"
names(dic_lug_pobla)[2] <- "CODIGO_LUGAR_POBLADO_nuevo"
TBL_9 = merge( x = TBL_8, y = dic_lug_pobla, by ="CODIGO_LUGAR_POBLADO", all.x = TRUE)


a_9 <- head(TBL_9,100)
kbl(a_9) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot CODIGO_DEPARTAMENTO_DOMICILIO_nuevo CODIGO_MUNICIPIO_DOMICILIO_nuevo CODIGO_ALDEA_nuevo CODIGO_LUGAR_POBLADO_nuevo
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 H01 1 Z00 13 318 010101001 01 01 01 001
1 1 1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100316 FILENA AURELIA ROSALES LAMOT 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 H01 1 Z00 7 324 010101001 01 01 01 001
1 1 1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193000398 MARIA VIRGINIA SEGURA GARCIA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 E01 1 Z00 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400108 MARIA MAGDALENA VELA HERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 H01 1 Z00 24 69 010101001 01 01 01 001
1 1 1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 E01 1 Z00 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 E01 0 0 0 010101001 01 01 01 001
1 4 1 1 3 2 0101193100199 ISIDRO WITY MARTINEZ 1 1931/05/15 E01 1 Z00 0 0 010102003 01 01 04 001
1 1 1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192700009 EFRAIN EFRAIN CARDONA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 E01 0 0 0 010101001 01 01 01 001
1 1 1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 E01 0 0 0 010101001 01 01 01 001
1 4 1 1 3 2 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 H01 1 Z00 331 163 010102003 01 01 04 001


v. Unificación y creación de la tabla central de la base de datos corregida:

Tenemos nuestra tabla censal central corregida con 1000 registros (para probar rapido nuestra logica):

tabla_madre <- unite(TBL_9, clave_pob ,c(20,21,22,23),  sep = "", remove = T)

saveRDS(tabla_madre, "../../DataScience/rds_y_codigos_elecciones_Honduras/tabla_madre.rds")
a_10 <- head(tabla_madre,100)
kbl(a_10) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 H01 1 Z00 13 318 010101001 010101001
1 1 1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100316 FILENA AURELIA ROSALES LAMOT 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 H01 1 Z00 7 324 010101001 010101001
1 1 1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000398 MARIA VIRGINIA SEGURA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400108 MARIA MAGDALENA VELA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 H01 1 Z00 24 69 010101001 010101001
1 1 1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101193100199 ISIDRO WITY MARTINEZ 1 1931/05/15 E01 1 Z00 0 0 010102003 010104001
1 1 1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192700009 EFRAIN EFRAIN CARDONA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 H01 1 Z00 331 163 010102003 010104001
write_xlsx(tabla_madre, "tabla_censal_con_fk.xlsx")

Verifiquemos que tengamos 10000 registros:

nrow(tabla_madre)
## [1] 1000


III. Los requerimientos

3.0 La tabla central de la base de datos censal

(volver al índice)

Tenemos la tabla central lista para poder trabajar sobre ella a nivel de personas con tres campos clave: su poblado (clave_pob), su local de votacion (clave_vot) y su mesa (NUMERO_MESA). Recordemos que estamos trabajando sólo con los 10000 primeros registros.

3.1 Porcentaje de población por centro de votación

(volver al índice)


1. Un requerimiento es el generar un campo con el porcentaje de individuos que representa cada población con respecto al centro de votación al que pertenece.

Calculemos la cantidad de registros (indicador de la cantidad de personas) que hay por cada producto cruz entre población y local de votación:

Despleguemos los primeros 100 registros:

data_agregada <- aggregate(.~clave_vot+clave_pob, tabla_madre, FUN=length)
data_agregada <- data_agregada[, -c(4:24)]
data_agregada <- data_agregada[order(
data_agregada$clave_vot),] 
names(data_agregada)[3] <- "cantidad_de_registros"

nrow(data_agregada)
## [1] 347

Los 10000 registros, cuando son agrupados en todas las intersecciones posibles de las existentes de local de votacion y poblados generan 1508 clusters.

Veamos los 100 primeros grupos:

b_1 <- head(data_agregada,100)  
kbl(b_1) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob cantidad_de_registros
1 010101001 010101001 216
2 010101001 010101002 3
3 010101001 010101003 6
5 010101005 010101005 10
6 010101006 010101006 16
7 010101007 010101007 13
8 010101008 010101009 5
13 010101008 010101015 14
10 010101010 010101011 2
11 010101012 010101013 2
14 010101015 010101016 9
16 010101015 010101018 3
17 010101016 010101019 8
60 010101016 010101119 1
61 010101016 010101123 1
18 010101017 010101020 1
19 010101018 010101022 1
20 010101019 010101023 16
21 010101020 010101024 21
22 010101021 010101025 16
9 010101022 010101010 9
12 010101022 010101014 6
23 010101022 010101026 19
24 010101023 010101027 5
26 010101023 010101030 2
25 010101024 010101028 12
27 010101026 010101032 6
29 010101028 010101034 11
43 010101028 010101064 4
30 010101029 010101037 2
31 010101029 010101038 1
32 010101030 010101039 4
33 010101031 010101041 5
34 010101031 010101043 1
62 010101031 010101128 1
35 010101033 010101046 10
36 010101033 010101048 1
63 010101033 010101129 1
37 010101035 010101049 2
38 010101035 010101050 1
28 010101036 010101033 1
39 010101036 010101055 2
40 010101036 010101056 2
41 010101036 010101057 1
42 010101036 010101063 1
45 010101036 010101066 1
64 010101036 010101131 2
65 010101036 010101140 1
44 010101040 010101065 7
46 010101042 010101075 1
47 010101042 010101079 6
49 010101044 010101085 4
58 010101044 010101108 1
50 010101046 010101094 2
51 010101047 010101096 3
52 010101048 010101098 4
53 010101049 010101099 1
54 010101053 010101101 1
55 010101053 010101102 1
56 010101053 010101105 9
57 010101054 010101107 1
66 010101055 010101144 1
15 010101056 010101017 5
48 010101060 010101082 2
4 010101061 010101004 15
59 010101061 010101114 1
67 010102002 010102001 1
68 010102003 010104001 31
79 010102004 010118001 1
70 010102005 010108001 2
71 010102006 010112001 3
72 010102006 010112008 1
75 010102007 010116001 5
76 010102007 010116009 1
77 010102008 010117001 28
78 010102008 010117002 1
69 010102009 010107001 1
80 010102009 010119001 3
81 010102010 010121001 8
82 010102010 010121004 1
73 010102012 010113001 1
74 010102013 010115001 1
83 010202001 010201001 3
85 010202004 010208001 2
86 010202005 010210001 2
84 010202008 010201004 1
87 010202009 010211001 1
88 010202012 010212001 1
89 010302001 010301001 1
90 010302006 010324001 1
91 010302016 010328001 1
92 010402001 010401001 3
96 010402011 010421001 1
97 010402014 010425001 1
94 010402016 010406004 1
93 010402028 010406001 3
95 010402039 010418010 1
98 010502001 010501001 1
99 010502007 010514001 2
100 010602001 010601001 3


2 Ahora calculamos la cantidad total de registros totales por cada local de votación:

data_agregada2 <- aggregate(data_agregada$cantidad_de_registros, by=list(clave_vot=data_agregada $clave_vot), FUN=sum)
b_2 <- head(data_agregada2,100) 
kbl(b_2) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot sum.data_agregada$cantidad_de_registros
010101001 225
010101005 10
010101006 16
010101007 13
010101008 19
010101010 2
010101012 2
010101015 12
010101016 10
010101017 1
010101018 1
010101019 16
010101020 21
010101021 16
010101022 34
010101023 7
010101024 12
010101026 6
010101028 15
010101029 3
010101030 4
010101031 7
010101033 12
010101035 3
010101036 11
010101040 7
010101042 7
010101044 5
010101046 2
010101047 3
010101048 4
010101049 1
010101053 11
010101054 1
010101055 1
010101056 5
010101060 2
010101061 16
010102002 1
010102003 31
010102004 1
010102005 2
010102006 4
010102007 6
010102008 29
010102009 4
010102010 9
010102012 1
010102013 1
010202001 3
010202004 2
010202005 2
010202008 1
010202009 1
010202012 1
010302001 1
010302006 1
010302016 1
010402001 3
010402011 1
010402014 1
010402016 1
010402028 3
010402039 1
010502001 1
010502007 2
010602001 3
010602003 1
010602004 4
010701002 1
010701004 4
010701007 6
010701008 6
010701010 3
010701011 2
010701012 6
010702003 1
010702027 1
010702033 1
010802010 1
010802011 1
020101002 1
020102005 1
020102016 1
020202001 1
020202013 1
020302004 1
020402001 1
020502001 2
020502002 1
020502005 1
020502013 1
020802001 2
020802018 1
020802026 1
020802038 1
020901001 1
020901010 1
020902005 1
031801004 1


3 Cálculo del porcentaje

Haremos la unión en torno al campo comun clave_vot sobre la tabla producto cruz entre población y local de votación (data_agregada) y la que contiene la cantidad total de registros por local de votación (data_agregada_2).

Construiremos una columna que contenga los porcentajes de población por poblado que contiene cada centro de votación.

También construiremos una columna que contenga una clave que identifique inequívocamente cada uno de éstos registros.

uffff  = merge( x = data_agregada2, y = data_agregada, by = "clave_vot", all.x = TRUE)
uffff <- uffff[,c(1,3,4,2)]
names(uffff)[3] <- "numero"
names(uffff)[4] <- "total"
d <- mutate(uffff, porcentaje = numero*100/total)
d$clave <- paste(d$clave_vot,d$clave_pob, sep="")
b_3 <- head(d,100) 
kbl(b_3) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob numero total porcentaje clave
010101001 010101001 216 225 96.000000 010101001010101001
010101001 010101002 3 225 1.333333 010101001010101002
010101001 010101003 6 225 2.666667 010101001010101003
010101005 010101005 10 10 100.000000 010101005010101005
010101006 010101006 16 16 100.000000 010101006010101006
010101007 010101007 13 13 100.000000 010101007010101007
010101008 010101009 5 19 26.315790 010101008010101009
010101008 010101015 14 19 73.684211 010101008010101015
010101010 010101011 2 2 100.000000 010101010010101011
010101012 010101013 2 2 100.000000 010101012010101013
010101015 010101016 9 12 75.000000 010101015010101016
010101015 010101018 3 12 25.000000 010101015010101018
010101016 010101019 8 10 80.000000 010101016010101019
010101016 010101119 1 10 10.000000 010101016010101119
010101016 010101123 1 10 10.000000 010101016010101123
010101017 010101020 1 1 100.000000 010101017010101020
010101018 010101022 1 1 100.000000 010101018010101022
010101019 010101023 16 16 100.000000 010101019010101023
010101020 010101024 21 21 100.000000 010101020010101024
010101021 010101025 16 16 100.000000 010101021010101025
010101022 010101010 9 34 26.470588 010101022010101010
010101022 010101014 6 34 17.647059 010101022010101014
010101022 010101026 19 34 55.882353 010101022010101026
010101023 010101027 5 7 71.428571 010101023010101027
010101023 010101030 2 7 28.571429 010101023010101030
010101024 010101028 12 12 100.000000 010101024010101028
010101026 010101032 6 6 100.000000 010101026010101032
010101028 010101034 11 15 73.333333 010101028010101034
010101028 010101064 4 15 26.666667 010101028010101064
010101029 010101037 2 3 66.666667 010101029010101037
010101029 010101038 1 3 33.333333 010101029010101038
010101030 010101039 4 4 100.000000 010101030010101039
010101031 010101041 5 7 71.428571 010101031010101041
010101031 010101043 1 7 14.285714 010101031010101043
010101031 010101128 1 7 14.285714 010101031010101128
010101033 010101046 10 12 83.333333 010101033010101046
010101033 010101048 1 12 8.333333 010101033010101048
010101033 010101129 1 12 8.333333 010101033010101129
010101035 010101049 2 3 66.666667 010101035010101049
010101035 010101050 1 3 33.333333 010101035010101050
010101036 010101033 1 11 9.090909 010101036010101033
010101036 010101055 2 11 18.181818 010101036010101055
010101036 010101056 2 11 18.181818 010101036010101056
010101036 010101057 1 11 9.090909 010101036010101057
010101036 010101063 1 11 9.090909 010101036010101063
010101036 010101066 1 11 9.090909 010101036010101066
010101036 010101131 2 11 18.181818 010101036010101131
010101036 010101140 1 11 9.090909 010101036010101140
010101040 010101065 7 7 100.000000 010101040010101065
010101042 010101075 1 7 14.285714 010101042010101075
010101042 010101079 6 7 85.714286 010101042010101079
010101044 010101085 4 5 80.000000 010101044010101085
010101044 010101108 1 5 20.000000 010101044010101108
010101046 010101094 2 2 100.000000 010101046010101094
010101047 010101096 3 3 100.000000 010101047010101096
010101048 010101098 4 4 100.000000 010101048010101098
010101049 010101099 1 1 100.000000 010101049010101099
010101053 010101101 1 11 9.090909 010101053010101101
010101053 010101102 1 11 9.090909 010101053010101102
010101053 010101105 9 11 81.818182 010101053010101105
010101054 010101107 1 1 100.000000 010101054010101107
010101055 010101144 1 1 100.000000 010101055010101144
010101056 010101017 5 5 100.000000 010101056010101017
010101060 010101082 2 2 100.000000 010101060010101082
010101061 010101004 15 16 93.750000 010101061010101004
010101061 010101114 1 16 6.250000 010101061010101114
010102002 010102001 1 1 100.000000 010102002010102001
010102003 010104001 31 31 100.000000 010102003010104001
010102004 010118001 1 1 100.000000 010102004010118001
010102005 010108001 2 2 100.000000 010102005010108001
010102006 010112001 3 4 75.000000 010102006010112001
010102006 010112008 1 4 25.000000 010102006010112008
010102007 010116001 5 6 83.333333 010102007010116001
010102007 010116009 1 6 16.666667 010102007010116009
010102008 010117001 28 29 96.551724 010102008010117001
010102008 010117002 1 29 3.448276 010102008010117002
010102009 010107001 1 4 25.000000 010102009010107001
010102009 010119001 3 4 75.000000 010102009010119001
010102010 010121001 8 9 88.888889 010102010010121001
010102010 010121004 1 9 11.111111 010102010010121004
010102012 010113001 1 1 100.000000 010102012010113001
010102013 010115001 1 1 100.000000 010102013010115001
010202001 010201001 3 3 100.000000 010202001010201001
010202004 010208001 2 2 100.000000 010202004010208001
010202005 010210001 2 2 100.000000 010202005010210001
010202008 010201004 1 1 100.000000 010202008010201004
010202009 010211001 1 1 100.000000 010202009010211001
010202012 010212001 1 1 100.000000 010202012010212001
010302001 010301001 1 1 100.000000 010302001010301001
010302006 010324001 1 1 100.000000 010302006010324001
010302016 010328001 1 1 100.000000 010302016010328001
010402001 010401001 3 3 100.000000 010402001010401001
010402011 010421001 1 1 100.000000 010402011010421001
010402014 010425001 1 1 100.000000 010402014010425001
010402016 010406004 1 1 100.000000 010402016010406004
010402028 010406001 3 3 100.000000 010402028010406001
010402039 010418010 1 1 100.000000 010402039010418010
010502001 010501001 1 1 100.000000 010502001010501001
010502007 010514001 2 2 100.000000 010502007010514001
010602001 010601001 3 3 100.000000 010602001010601001


Verifiquemos que posea la cantidad correcta de registros: 1508

nrow(d)
## [1] 347


3.2.1 Cantidad de hombres

(volver al índice)

1 La codificación

0: resulta ambiguo.

1: hombre

2: mujer

2 La tabla censal central con fks para local de votación y poblado.

Retomemos nuestra tabla central corregida y observemos sus 100 primeros registros (recordemos que contiene sólo 10000):

sub_tabla_madre <- readRDS("../../bases_de_datos/elecciones_Honduras/tabla_madre.rds")
b_4 <- head(sub_tabla_madre,100)

#write_xlsx(sub_tabla_madre, "sub_tabla_madre.xlsx")

kbl(b_4) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600112 JOSE ALBERTO MANZANAREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 7 2 1 7 2 0101193200037 SEBASTIAN LUCAS ALONZO PUERTO 1 1932/01/20 H01 1 Z00 407 28 010202007 010207001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600120 REINA EMELINA PADILLA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193700475 ANA ANA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194100057 VICTOR MANUEL URBINA SALINAS 0 E01 0 0 0 010101001 010101001
1 1 5 20 1 1 0101195200541 FREDIN ALBERTO ANTUNEZ 1 1952/06/02 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200313 JOSE RUBEN PEÑA 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101194000328 MARIA SANTIAGA MARTINEZ RIVERA 2 1940/07/25 H01 1 Z00 12533 356 110101001 110101001
1 1 2 1 1 2 0101195500050 HECTOR ARMANDO VALLADAREZ 1 1955/01/08 H01 1 Z00 381 131 010202001 010201001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101194600473 MARIA SOFIA VIVAS CABRERA 2 1946/08/10 H01 1 Z00 0 0 200201001 200201001
1 1 1 1 1 1 0101193400310 GUILLERMINA GUILLERMINA HERNANDEZ LAMBUR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200313 JOSE CORNELIO ROSALES LOPEZ 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101195100108 RAMONA DEL CARMEN CACERES 2 1951/01/23 H01 1 Z00 0 0 200201001 200201001
1 1 8 2 1 2 0101195000324 ARMANDO HERNANDEZ 1 1950/04/30 H01 1 Z00 1280 239 020802001 020801001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 4 11 1 2 0101195300304 MIRNA YOLANDA PAZ MARTINEZ 2 1953/03/28 H01 1 Z00 12648 263 110402001 110401001
1 1 1 1 1 1 0101192400097 ONDINA ONDINA ZELAYA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200330 OLGA RITA BENNETT CONNELLY 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 010101001
1 1 26 8 1 2 0101194800006 ROBERTO DENNIS HERNANDEZ COOPER 1 1947/12/31 E01 1 Z00 0 0 082602001 082601001
1 1 3 20 1 1 0101194700215 OLGA SUSANA JANDRES 2 1947/03/28 H01 1 Z00 0 0 200301001 200301001
1 1 1 1 1 1 0101194800062 ROSA AMALIA CATALAN MEZA 2 1948/01/30 H01 1 Z00 5 352 010101001 010101001
1 1 1 1 1 1 0101192400114 SALVADOR SALVADOR GOMEZ POSAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 6 16 1 2 0101195300349 DOMINGO FAUSTINO MEJIA 1 1953/04/12 H01 1 Z00 15556 136 160602001 160601001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194700153 LIA MERCEDES RODRIGUEZ 2 1947/03/06 H01 1 Z00 20 312 010101001 010101001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193400366 CARLOS AUGUSTO MELARA BLANCO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200383 ZENEN MAURICIO GUTIERREZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200384 CECILIA DOLORES GUERRERO CALIX 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200385 RICARDO MEDINA MARTINEZ 1 1942/08/18 H01 1 Z00 15 190 010101001 010101001
1 1 1 1 1 1 0101195100114 JOHN HENRY FRANCIS 1 1951/01/27 E01 1 Z00 0 0 010101001 010101001
1 1 1 11 1 1 0101195200748 WILSON JOSE MILLER 1 1952/08/16 H01 1 Z00 12536 3 110101001 110101001
1 1 1 1 1 1 0101193200393 ANTONIO ALFREDO COOPER 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100117 RAUL FERNANDO PALENCIA ROSALES 1 1951/01/28 H01 1 I10 18 337 010101001 010101001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 010101001
1 1 18 15 1 2 0101194800094 OSCAR ARMANDO ROSALES 1 1948/02/09 H01 1 Z00 15103 87 151802001 151801001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 010101001
1 1 13 15 1 2 0101193500333 ARTURO MERAZ 1 1935/11/16 H01 1 Z00 14958 344 151302001 151301001
1 1 5 20 1 1 0101194800143 PEDRO CHAVEZ FERNANDEZ 1 1948/03/03 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101194200403 NATIVIDAD NATIVIDAD CHAVEZ LINO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100134 ALINA ESPERANZA MURILLO CORDOVA 2 1951/01/31 H01 1 Z00 17 141 010101001 010101001
1 1 3 11 1 2 0101195400845 ANTONIO RODOLFO JIMENEZ GALAN 1 1954/08/24 H01 1 Z00 12619 101 110302001 110301001
1 1 1 11 1 1 0101195501246 CIELET CHERRY JAMES 2 1955/11/16 H01 1 Z00 12531 115 110101001 110101001
1 1 5 20 1 1 0101195500080 MARTA SILVANIA GARCIA 2 1955/01/19 H01 1 I10 0 0 200501001 200501001
1 1 1 1 1 1 0101194600234 JUAN SANTOS REYES 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101193600092 JUANA RODRIGUEZ 2 1936/02/27 H01 1 I10 12540 350 110101001 110101001
1 1 1 1 1 1 0101194200426 HURBURT RUNDOF BROOKS 1 1942/09/19 H01 1 Z00 4 65 010101001 010101001
1 1 1 1 1 1 0101195400677 JORGE ALBERTO CANALES MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101194700325 VENANCIO CHAVEZ ORDOÑEZ 1 1947/05/18 H01 1 Z00 330 53 010102003 010104001
1 1 16 15 1 2 0101195400833 JOSE EDGARDO GALAN CASTELLON 1 1954/08/20 E01 1 Z00 0 0 151602001 151601001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 010101001
1 1 16 8 1 2 0101193700467 ARMANDO ALMENDARES REYES 1 1937/11/05 E01 1 Z00 0 0 081602001 081601001
1 1 1 20 1 1 0101194700233 MARIA LUISA ORDOÑEZ LAFFITE 2 1947/03/30 H01 1 Z00 0 0 200101001 200101001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100169 LIDIA ERNESTINA LAMBUR PONCE 2 1951/02/17 H01 1 Z00 12 249 010101001 010101001
1 1 5 2 1 2 0101194400499 LILIA REYES CHAVARRIA 2 1944/10/31 E01 1 Z00 0 0 020502001 020501001
1 1 1 1 1 1 0101194200448 JOSE ANTONIO SOSA MEMBREÑO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200488 CRISTOBAL CRISTOBAL SOLARES PAGOADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600266 JUNIOR EDISON GARDEN BOWMAN 1 1946/05/07 H01 1 Z00 10 29 010101001 010101001
1 1 20 15 1 2 0101195100908 ELENA MARIETA ZEPEDA 2 1951/09/30 H01 1 Z00 15180 337 152002001 152001001
1 4 1 1 3 2 0101195100472 FLAVIA FERNANDEZ BERNARDEZ 2 1951/05/14 H01 1 Z00 331 89 010102003 010104001
1 82 1 8 165 1 0101193700255 BERTHA ISABELA GOMEZ GOMEZ 2 1937/06/14 H01 1 Z00 9360 143 080101165 080182001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200464 LETICIA LETICIA DETARI SANCHEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200508 PEDRO EMILIO ALCANTARA ACOSTA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194800838 RAMONA MILADI ORTIZ ZAVALA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195600008 LUIS ALBERTO CASTILLO ORELLANA 0 E01 0 0 0 010101001 010101001
1 1 6 2 1 2 0101194800189 MARIA ENCARNACION GARCIA ROCHEZ 2 1948/03/19 H01 1 Z00 1244 342 020602001 020601001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200477 MARTA CARMINDA CRUZ BARAHONA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001
1 1 1 1 1 1 0101195100206 JULIAN HUMBERTO FUENTES GOMEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200490 AUGUSTO ALVAREZ BONILLA 1 1942/10/27 H01 1 Z00 1 241 010101001 010101001
1 1 5 20 1 1 0101195500624 SANDRA ADELINA LOPEZ BONILLA 2 1955/06/08 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200498 MIRNA NELSON NELSON HERNANDEZ 0 E01 0 0 0 010101001 010101001


3 Hombres por producto cruz

Vamos a determinar la cantidad de hombres por cada producto cruz:

a <- sub_tabla_madre$clave_vot
b <- sub_tabla_madre$clave_pob
c <- sub_tabla_madre$CODIGO_SEXO
ggg <- aggregate(sub_tabla_madre, list(a,b, c == 1),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad_de_hombres"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 1063
hhhom <- ggg
b_444 <- head(ggg,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado cantidad_de_hombres clave
010101001 010101001 209 010101001010101001
010101001 010101002 15 010101001010101002
010101001 010101003 23 010101001010101003
010101061 010101004 85 010101061010101004
010101005 010101005 40 010101005010101005
010101006 010101006 50 010101006010101006
010101007 010101007 59 010101007010101007
010101007 010101008 1 010101007010101008
010101008 010101009 17 010101008010101009
010101022 010101010 43 010101022010101010
010101010 010101011 7 010101010010101011
010101011 010101012 16 010101011010101012
010101012 010101013 36 010101012010101013
010101022 010101014 17 010101022010101014
010101008 010101015 46 010101008010101015
010101015 010101016 28 010101015010101016
010101056 010101017 28 010101056010101017
010101015 010101018 6 010101015010101018
010101016 010101019 64 010101016010101019
010101017 010101020 2 010101017010101020
010101018 010101021 21 010101018010101021
010101018 010101022 4 010101018010101022
010101019 010101023 86 010101019010101023
010101020 010101024 51 010101020010101024
010101021 010101025 96 010101021010101025
010101022 010101026 71 010101022010101026
010101023 010101027 37 010101023010101027
010101024 010101028 98 010101024010101028
010101024 010101029 1 010101024010101029
010101023 010101030 15 010101023010101030
010101026 010101032 21 010101026010101032
010101036 010101033 9 010101036010101033
010101028 010101034 56 010101028010101034
010101029 010101037 29 010101029010101037
010101029 010101038 7 010101029010101038
010101030 010101039 25 010101030010101039
010101030 010101040 3 010101030010101040
010101031 010101041 46 010101031010101041
010101031 010101042 5 010101031010101042
010101031 010101043 3 010101031010101043
010101034 010101044 5 010101034010101044
010101033 010101046 80 010101033010101046
010101033 010101047 1 010101033010101047
010101033 010101048 14 010101033010101048
010101035 010101049 6 010101035010101049
010101035 010101050 5 010101035010101050
010101034 010101054 1 010101034010101054
010101036 010101055 33 010101036010101055
010101036 010101056 5 010101036010101056
010101036 010101057 9 010101036010101057
010101036 010101063 24 010101036010101063
010101028 010101064 15 010101028010101064
010101040 010101065 55 010101040010101065
010101036 010101066 5 010101036010101066
010101040 010101070 7 010101040010101070
010101040 010101073 3 010101040010101073
010101042 010101074 2 010101042010101074
010101042 010101076 2 010101042010101076
010101042 010101078 1 010101042010101078
010101042 010101079 48 010101042010101079
010101042 010101081 3 010101042010101081
010101060 010101082 13 010101060010101082
010101023 010101083 2 010101023010101083
010101044 010101085 21 010101044010101085
010101062 010101088 1 010101062010101088
010101045 010101089 7 010101045010101089
010101046 010101094 5 010101046010101094
010101046 010101095 5 010101046010101095
010101047 010101096 17 010101047010101096
010101047 010101097 2 010101047010101097
010101048 010101098 13 010101048010101098
010101049 010101099 6 010101049010101099
010101053 010101101 7 010101053010101101
010101053 010101102 1 010101053010101102
010101055 010101103 1 010101055010101103
010101053 010101105 47 010101053010101105
010101054 010101107 11 010101054010101107
010101044 010101108 1 010101044010101108
010101061 010101113 5 010101061010101113
010101061 010101114 5 010101061010101114
010101012 010101117 2 010101012010101117
010101016 010101118 4 010101016010101118
010101016 010101119 4 010101016010101119
010101016 010101120 3 010101016010101120
010101016 010101122 2 010101016010101122
010101016 010101123 1 010101016010101123
010101018 010101124 1 010101018010101124
010101019 010101125 1 010101019010101125
010101026 010101126 2 010101026010101126
010101026 010101127 2 010101026010101127
010101031 010101128 5 010101031010101128
010101033 010101129 9 010101033010101129
010101033 010101130 1 010101033010101130
010101036 010101131 6 010101036010101131
010101063 010101135 3 010101063010101135
010101035 010101138 4 010101035010101138
010101036 010101140 2 010101036010101140
010101055 010101144 10 010101055010101144
010101061 010101159 1 010101061010101159
010101040 010101165 1 010101040010101165


Notemos que nuestros registros son solo 1034. Podemos afirmar que en el resto de intersecciones no existen hombres (o codificacion sexo = 2).


3.2.2 Mujeres por producto cruz

(volver al índice)

Vamos a determinar la cantidad de mujeres por cada producto cruz:

a <- sub_tabla_madre$clave_vot
b <- sub_tabla_madre$clave_pob
c <- sub_tabla_madre$CODIGO_SEXO
ggg <- aggregate(sub_tabla_madre, list(a,b, c == 2),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad_de_mujeres"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 1034
mmm <- ggg
b_444 <- head(ggg,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado cantidad_de_mujeres clave
010101001 010101001 206 010101001010101001
010101001 010101002 15 010101001010101002
010101001 010101003 27 010101001010101003
010101061 010101004 72 010101061010101004
010101005 010101005 64 010101005010101005
010101006 010101006 64 010101006010101006
010101007 010101007 54 010101007010101007
010101007 010101008 1 010101007010101008
010101008 010101009 31 010101008010101009
010101022 010101010 42 010101022010101010
010101010 010101011 12 010101010010101011
010101011 010101012 38 010101011010101012
010101012 010101013 28 010101012010101013
010101022 010101014 20 010101022010101014
010101008 010101015 52 010101008010101015
010101015 010101016 32 010101015010101016
010101056 010101017 28 010101056010101017
010101015 010101018 11 010101015010101018
010101016 010101019 68 010101016010101019
010101017 010101020 7 010101017010101020
010101018 010101021 14 010101018010101021
010101018 010101022 6 010101018010101022
010101019 010101023 102 010101019010101023
010101020 010101024 84 010101020010101024
010101021 010101025 123 010101021010101025
010101022 010101026 69 010101022010101026
010101023 010101027 42 010101023010101027
010101024 010101028 110 010101024010101028
010101024 010101029 2 010101024010101029
010101023 010101030 11 010101023010101030
010101026 010101032 33 010101026010101032
010101036 010101033 6 010101036010101033
010101028 010101034 50 010101028010101034
010101029 010101037 22 010101029010101037
010101029 010101038 6 010101029010101038
010101030 010101039 26 010101030010101039
010101030 010101040 3 010101030010101040
010101031 010101041 39 010101031010101041
010101031 010101042 7 010101031010101042
010101031 010101043 3 010101031010101043
010101034 010101044 5 010101034010101044
010101033 010101046 84 010101033010101046
010101033 010101048 3 010101033010101048
010101035 010101049 11 010101035010101049
010101035 010101050 2 010101035010101050
010101035 010101052 1 010101035010101052
010101034 010101054 1 010101034010101054
010101036 010101055 33 010101036010101055
010101036 010101056 6 010101036010101056
010101036 010101057 8 010101036010101057
010101036 010101063 20 010101036010101063
010101028 010101064 13 010101028010101064
010101040 010101065 58 010101040010101065
010101036 010101066 8 010101036010101066
010101040 010101068 1 010101040010101068
010101040 010101070 10 010101040010101070
010101012 010101071 1 010101012010101071
010101012 010101072 1 010101012010101072
010101040 010101073 4 010101040010101073
010101042 010101074 4 010101042010101074
010101042 010101075 7 010101042010101075
010101042 010101076 5 010101042010101076
010101042 010101078 2 010101042010101078
010101042 010101079 38 010101042010101079
010101062 010101080 2 010101062010101080
010101042 010101081 6 010101042010101081
010101060 010101082 15 010101060010101082
010101023 010101083 1 010101023010101083
010101044 010101085 9 010101044010101085
010101062 010101088 2 010101062010101088
010101045 010101089 6 010101045010101089
010101046 010101094 8 010101046010101094
010101046 010101095 5 010101046010101095
010101047 010101096 19 010101047010101096
010101047 010101097 2 010101047010101097
010101048 010101098 12 010101048010101098
010101049 010101099 4 010101049010101099
010101049 010101100 1 010101049010101100
010101053 010101101 7 010101053010101101
010101053 010101102 5 010101053010101102
010101055 010101103 6 010101055010101103
010101053 010101104 1 010101053010101104
010101053 010101105 49 010101053010101105
010101054 010101107 12 010101054010101107
010101044 010101108 2 010101044010101108
010101054 010101111 1 010101054010101111
010101061 010101113 6 010101061010101113
010101061 010101114 1 010101061010101114
010101012 010101117 2 010101012010101117
010101016 010101118 4 010101016010101118
010101016 010101119 3 010101016010101119
010101016 010101120 8 010101016010101120
010101016 010101121 2 010101016010101121
010101016 010101123 1 010101016010101123
010101018 010101124 7 010101018010101124
010101026 010101126 1 010101026010101126
010101026 010101127 1 010101026010101127
010101031 010101128 4 010101031010101128
010101033 010101129 11 010101033010101129
010101036 010101131 4 010101036010101131


5 Totales por producto cruz

(volver al índice)

Vamos a determinar la cantidad de hombres y mujeres por cada producto cruz:

a <- sub_tabla_madre$clave_vot
b <- sub_tabla_madre$clave_pob
c <- sub_tabla_madre$CODIGO_SEXO
ggg <- aggregate(sub_tabla_madre, list(a,b, c == 1 | c==2),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad_de_total"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 1508
ttt <- ggg
b_444 <- head(ggg,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado cantidad_de_total clave
010101001 010101001 415 010101001010101001
010101001 010101002 30 010101001010101002
010101001 010101003 50 010101001010101003
010101061 010101004 157 010101061010101004
010101005 010101005 104 010101005010101005
010101006 010101006 114 010101006010101006
010101007 010101007 113 010101007010101007
010101007 010101008 2 010101007010101008
010101008 010101009 48 010101008010101009
010101022 010101010 85 010101022010101010
010101010 010101011 19 010101010010101011
010101011 010101012 54 010101011010101012
010101012 010101013 64 010101012010101013
010101022 010101014 37 010101022010101014
010101008 010101015 98 010101008010101015
010101015 010101016 60 010101015010101016
010101056 010101017 56 010101056010101017
010101015 010101018 17 010101015010101018
010101016 010101019 132 010101016010101019
010101017 010101020 9 010101017010101020
010101018 010101021 35 010101018010101021
010101018 010101022 10 010101018010101022
010101019 010101023 188 010101019010101023
010101020 010101024 135 010101020010101024
010101021 010101025 219 010101021010101025
010101022 010101026 140 010101022010101026
010101023 010101027 79 010101023010101027
010101024 010101028 208 010101024010101028
010101024 010101029 3 010101024010101029
010101023 010101030 26 010101023010101030
010101026 010101032 54 010101026010101032
010101036 010101033 15 010101036010101033
010101028 010101034 106 010101028010101034
010101029 010101037 51 010101029010101037
010101029 010101038 13 010101029010101038
010101030 010101039 51 010101030010101039
010101030 010101040 6 010101030010101040
010101031 010101041 85 010101031010101041
010101031 010101042 12 010101031010101042
010101031 010101043 6 010101031010101043
010101034 010101044 10 010101034010101044
010101033 010101046 164 010101033010101046
010101033 010101047 1 010101033010101047
010101033 010101048 17 010101033010101048
010101035 010101049 17 010101035010101049
010101035 010101050 7 010101035010101050
010101035 010101052 1 010101035010101052
010101034 010101054 2 010101034010101054
010101036 010101055 66 010101036010101055
010101036 010101056 11 010101036010101056
010101036 010101057 17 010101036010101057
010101036 010101063 44 010101036010101063
010101028 010101064 28 010101028010101064
010101040 010101065 113 010101040010101065
010101036 010101066 13 010101036010101066
010101040 010101068 1 010101040010101068
010101040 010101070 17 010101040010101070
010101012 010101071 1 010101012010101071
010101012 010101072 1 010101012010101072
010101040 010101073 7 010101040010101073
010101042 010101074 6 010101042010101074
010101042 010101075 7 010101042010101075
010101042 010101076 7 010101042010101076
010101042 010101078 3 010101042010101078
010101042 010101079 86 010101042010101079
010101062 010101080 2 010101062010101080
010101042 010101081 9 010101042010101081
010101060 010101082 28 010101060010101082
010101023 010101083 3 010101023010101083
010101044 010101085 30 010101044010101085
010101062 010101088 3 010101062010101088
010101045 010101089 13 010101045010101089
010101046 010101094 13 010101046010101094
010101046 010101095 10 010101046010101095
010101047 010101096 36 010101047010101096
010101047 010101097 4 010101047010101097
010101048 010101098 25 010101048010101098
010101049 010101099 10 010101049010101099
010101049 010101100 1 010101049010101100
010101053 010101101 14 010101053010101101
010101053 010101102 6 010101053010101102
010101055 010101103 7 010101055010101103
010101053 010101104 1 010101053010101104
010101053 010101105 96 010101053010101105
010101054 010101107 23 010101054010101107
010101044 010101108 3 010101044010101108
010101054 010101111 1 010101054010101111
010101061 010101113 11 010101061010101113
010101061 010101114 6 010101061010101114
010101012 010101117 4 010101012010101117
010101016 010101118 8 010101016010101118
010101016 010101119 7 010101016010101119
010101016 010101120 11 010101016010101120
010101016 010101121 2 010101016010101121
010101016 010101122 2 010101016010101122
010101016 010101123 2 010101016010101123
010101018 010101124 8 010101018010101124
010101019 010101125 1 010101019010101125
010101026 010101126 3 010101026010101126
010101026 010101127 3 010101026010101127


6 Totales habilitados por producto cruz

Vamos a determinar la cantidad de habilitados por cada producto cruz:


a <- sub_tabla_madre$clave_vot
b <- sub_tabla_madre$clave_pob
c <- sub_tabla_madre$CODIGO_HABIL_INHABIL
ggg <- aggregate(sub_tabla_madre, list(a,b, c == "H01"),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad_de_hab"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 1417
hhh <- ggg
b_444 <- head(hhh,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado cantidad_de_hab clave
010101001 010101001 358 010101001010101001
010101001 010101002 26 010101001010101002
010101001 010101003 43 010101001010101003
010101061 010101004 128 010101061010101004
010101005 010101005 88 010101005010101005
010101006 010101006 105 010101006010101006
010101007 010101007 92 010101007010101007
010101007 010101008 2 010101007010101008
010101008 010101009 40 010101008010101009
010101022 010101010 79 010101022010101010
010101010 010101011 16 010101010010101011
010101011 010101012 50 010101011010101012
010101012 010101013 56 010101012010101013
010101022 010101014 32 010101022010101014
010101008 010101015 87 010101008010101015
010101015 010101016 48 010101015010101016
010101056 010101017 49 010101056010101017
010101015 010101018 16 010101015010101018
010101016 010101019 112 010101016010101019
010101017 010101020 9 010101017010101020
010101018 010101021 30 010101018010101021
010101018 010101022 10 010101018010101022
010101019 010101023 164 010101019010101023
010101020 010101024 115 010101020010101024
010101021 010101025 182 010101021010101025
010101022 010101026 126 010101022010101026
010101023 010101027 67 010101023010101027
010101024 010101028 179 010101024010101028
010101024 010101029 3 010101024010101029
010101023 010101030 23 010101023010101030
010101026 010101032 43 010101026010101032
010101036 010101033 14 010101036010101033
010101028 010101034 93 010101028010101034
010101029 010101037 50 010101029010101037
010101029 010101038 13 010101029010101038
010101030 010101039 47 010101030010101039
010101030 010101040 6 010101030010101040
010101031 010101041 80 010101031010101041
010101031 010101042 10 010101031010101042
010101031 010101043 6 010101031010101043
010101034 010101044 9 010101034010101044
010101033 010101046 146 010101033010101046
010101033 010101047 1 010101033010101047
010101033 010101048 14 010101033010101048
010101035 010101049 16 010101035010101049
010101035 010101050 7 010101035010101050
010101035 010101052 1 010101035010101052
010101034 010101054 2 010101034010101054
010101036 010101055 59 010101036010101055
010101036 010101056 8 010101036010101056
010101036 010101057 17 010101036010101057
010101036 010101063 40 010101036010101063
010101028 010101064 25 010101028010101064
010101040 010101065 96 010101040010101065
010101036 010101066 11 010101036010101066
010101040 010101068 1 010101040010101068
010101040 010101070 14 010101040010101070
010101012 010101071 1 010101012010101071
010101012 010101072 1 010101012010101072
010101040 010101073 6 010101040010101073
010101042 010101074 5 010101042010101074
010101042 010101075 6 010101042010101075
010101042 010101076 5 010101042010101076
010101042 010101078 3 010101042010101078
010101042 010101079 73 010101042010101079
010101062 010101080 2 010101062010101080
010101042 010101081 9 010101042010101081
010101060 010101082 26 010101060010101082
010101023 010101083 3 010101023010101083
010101044 010101085 26 010101044010101085
010101062 010101088 2 010101062010101088
010101045 010101089 11 010101045010101089
010101046 010101094 12 010101046010101094
010101046 010101095 10 010101046010101095
010101047 010101096 32 010101047010101096
010101047 010101097 3 010101047010101097
010101048 010101098 19 010101048010101098
010101049 010101099 9 010101049010101099
010101049 010101100 1 010101049010101100
010101053 010101101 11 010101053010101101
010101053 010101102 6 010101053010101102
010101055 010101103 6 010101055010101103
010101053 010101104 1 010101053010101104
010101053 010101105 79 010101053010101105
010101054 010101107 21 010101054010101107
010101044 010101108 2 010101044010101108
010101054 010101111 1 010101054010101111
010101061 010101113 8 010101061010101113
010101061 010101114 6 010101061010101114
010101012 010101117 4 010101012010101117
010101016 010101118 7 010101016010101118
010101016 010101119 7 010101016010101119
010101016 010101120 11 010101016010101120
010101016 010101121 1 010101016010101121
010101016 010101122 2 010101016010101122
010101016 010101123 1 010101016010101123
010101018 010101124 8 010101018010101124
010101019 010101125 1 010101019010101125
010101026 010101126 3 010101026010101126
010101026 010101127 3 010101026010101127


7 Totales inhabilitados por producto cruz

Vamos a determinar la cantidad de inhabilitados por cada producto cruz:


a <- sub_tabla_madre$clave_vot
b <- sub_tabla_madre$clave_pob
c <- sub_tabla_madre$CODIGO_HABIL_INHABIL
ggg <- aggregate(sub_tabla_madre, list(a,b, c == "E03"),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad_de_inhab"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 20
iii <- ggg
b_444 <- head(iii,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado cantidad_de_inhab clave
010101012 010101013 1 010101012010101013
010101024 010101028 1 010101024010101028
010101031 010101042 1 010101031010101042
010101036 010101055 1 010101036010101055
010101042 010101076 1 010101042010101076
010101016 010101118 1 010101016010101118
010101035 010101138 1 010101035010101138
010101061 010101159 1 010101061010101159
020101001 020101001 1 020101001020101001
030101004 030101006 1 030101004030101006
050101062 050102035 1 050101062050102035
050201026 050201088 1 050201026050201088
051201035 051201060 1 051201035051201060
051202023 051204004 1 051202023051204004
080101104 080101131 1 080101104080101131
080101235 080102107 1 080101235080102107
080101275 080103058 1 080101275080103058
080101403 080103215 1 080101403080103215
110402001 110401001 1 110402001110401001
170901003 170901004 1 170901003170901004

3.6 Porcentaje de ruralidad

Para ello accedamos a la tabla madre que tiene nuestro producto cruz con la cantidad de registros, Cosa que hicimos anteriormente.

Añadimos una nueva columna que podee la cantidad de registros rurales.

tabla_madre <- read_rds("tabla_madre.rds")
data_agregada <- aggregate(.~clave_vot+clave_pob, tabla_madre, FUN=length)
data_agregada <- data_agregada[, -c(4:24)]
data_agregada <- data_agregada[order(
data_agregada$clave_vot),] 
names(data_agregada)[3] <- "cantidad_de_registros"

data_agregada$clave <- paste(data_agregada$clave_vot,data_agregada$clave_pob, sep="")

nrow(data_agregada)
## [1] 347
b_1 <- head(data_agregada,100)  
kbl(b_1) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob cantidad_de_registros clave
1 010101001 010101001 216 010101001010101001
2 010101001 010101002 3 010101001010101002
3 010101001 010101003 6 010101001010101003
5 010101005 010101005 10 010101005010101005
6 010101006 010101006 16 010101006010101006
7 010101007 010101007 13 010101007010101007
8 010101008 010101009 5 010101008010101009
13 010101008 010101015 14 010101008010101015
10 010101010 010101011 2 010101010010101011
11 010101012 010101013 2 010101012010101013
14 010101015 010101016 9 010101015010101016
16 010101015 010101018 3 010101015010101018
17 010101016 010101019 8 010101016010101019
60 010101016 010101119 1 010101016010101119
61 010101016 010101123 1 010101016010101123
18 010101017 010101020 1 010101017010101020
19 010101018 010101022 1 010101018010101022
20 010101019 010101023 16 010101019010101023
21 010101020 010101024 21 010101020010101024
22 010101021 010101025 16 010101021010101025
9 010101022 010101010 9 010101022010101010
12 010101022 010101014 6 010101022010101014
23 010101022 010101026 19 010101022010101026
24 010101023 010101027 5 010101023010101027
26 010101023 010101030 2 010101023010101030
25 010101024 010101028 12 010101024010101028
27 010101026 010101032 6 010101026010101032
29 010101028 010101034 11 010101028010101034
43 010101028 010101064 4 010101028010101064
30 010101029 010101037 2 010101029010101037
31 010101029 010101038 1 010101029010101038
32 010101030 010101039 4 010101030010101039
33 010101031 010101041 5 010101031010101041
34 010101031 010101043 1 010101031010101043
62 010101031 010101128 1 010101031010101128
35 010101033 010101046 10 010101033010101046
36 010101033 010101048 1 010101033010101048
63 010101033 010101129 1 010101033010101129
37 010101035 010101049 2 010101035010101049
38 010101035 010101050 1 010101035010101050
28 010101036 010101033 1 010101036010101033
39 010101036 010101055 2 010101036010101055
40 010101036 010101056 2 010101036010101056
41 010101036 010101057 1 010101036010101057
42 010101036 010101063 1 010101036010101063
45 010101036 010101066 1 010101036010101066
64 010101036 010101131 2 010101036010101131
65 010101036 010101140 1 010101036010101140
44 010101040 010101065 7 010101040010101065
46 010101042 010101075 1 010101042010101075
47 010101042 010101079 6 010101042010101079
49 010101044 010101085 4 010101044010101085
58 010101044 010101108 1 010101044010101108
50 010101046 010101094 2 010101046010101094
51 010101047 010101096 3 010101047010101096
52 010101048 010101098 4 010101048010101098
53 010101049 010101099 1 010101049010101099
54 010101053 010101101 1 010101053010101101
55 010101053 010101102 1 010101053010101102
56 010101053 010101105 9 010101053010101105
57 010101054 010101107 1 010101054010101107
66 010101055 010101144 1 010101055010101144
15 010101056 010101017 5 010101056010101017
48 010101060 010101082 2 010101060010101082
4 010101061 010101004 15 010101061010101004
59 010101061 010101114 1 010101061010101114
67 010102002 010102001 1 010102002010102001
68 010102003 010104001 31 010102003010104001
79 010102004 010118001 1 010102004010118001
70 010102005 010108001 2 010102005010108001
71 010102006 010112001 3 010102006010112001
72 010102006 010112008 1 010102006010112008
75 010102007 010116001 5 010102007010116001
76 010102007 010116009 1 010102007010116009
77 010102008 010117001 28 010102008010117001
78 010102008 010117002 1 010102008010117002
69 010102009 010107001 1 010102009010107001
80 010102009 010119001 3 010102009010119001
81 010102010 010121001 8 010102010010121001
82 010102010 010121004 1 010102010010121004
73 010102012 010113001 1 010102012010113001
74 010102013 010115001 1 010102013010115001
83 010202001 010201001 3 010202001010201001
85 010202004 010208001 2 010202004010208001
86 010202005 010210001 2 010202005010210001
84 010202008 010201004 1 010202008010201004
87 010202009 010211001 1 010202009010211001
88 010202012 010212001 1 010202012010212001
89 010302001 010301001 1 010302001010301001
90 010302006 010324001 1 010302006010324001
91 010302016 010328001 1 010302016010328001
92 010402001 010401001 3 010402001010401001
96 010402011 010421001 1 010402011010421001
97 010402014 010425001 1 010402014010425001
94 010402016 010406004 1 010402016010406004
93 010402028 010406001 3 010402028010406001
95 010402039 010418010 1 010402039010418010
98 010502001 010501001 1 010502001010501001
99 010502007 010514001 2 010502007010514001
100 010602001 010601001 3 010602001010601001


1 URBANA 2 RURAL


b_2y77 <- head(tabla_madre,5)
kbl(b_2y77 ) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
a <- tabla_madre$clave_vot
b <- tabla_madre$clave_pob
c <- tabla_madre$CODIGO_AREA
ggg <- aggregate(tabla_madre, list(a,b, c == 2),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg <- ggg[,-c(3,5:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "rurales"
ggg$clave <- paste(ggg$local_votacion,ggg$poblado, sep="")
nrow(ggg)
## [1] 93
rur <- ggg

b_2 <- head(ggg,100) 
kbl(b_2) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado rurales clave
010102002 010102001 1 010102002010102001
010102003 010104001 31 010102003010104001
010102009 010107001 1 010102009010107001
010102005 010108001 2 010102005010108001
010102006 010112001 3 010102006010112001
010102006 010112008 1 010102006010112008
010102012 010113001 1 010102012010113001
010102013 010115001 1 010102013010115001
010102007 010116001 5 010102007010116001
010102007 010116009 1 010102007010116009
010102008 010117001 28 010102008010117001
010102008 010117002 1 010102008010117002
010102004 010118001 1 010102004010118001
010102009 010119001 3 010102009010119001
010102010 010121001 8 010102010010121001
010102010 010121004 1 010102010010121004
010202001 010201001 3 010202001010201001
010202008 010201004 1 010202008010201004
010202004 010208001 2 010202004010208001
010202005 010210001 2 010202005010210001
010202009 010211001 1 010202009010211001
010202012 010212001 1 010202012010212001
010302001 010301001 1 010302001010301001
010302006 010324001 1 010302006010324001
010302016 010328001 1 010302016010328001
010402001 010401001 3 010402001010401001
010402028 010406001 3 010402028010406001
010402016 010406004 1 010402016010406004
010402039 010418010 1 010402039010418010
010402011 010421001 1 010402011010421001
010402014 010425001 1 010402014010425001
010502001 010501001 1 010502001010501001
010502007 010514001 2 010502007010514001
010602001 010601001 3 010602001010601001
010602003 010609001 1 010602003010609001
010602004 010610001 4 010602004010610001
010702003 010707006 1 010702003010707006
010702027 010744001 1 010702027010744001
010702033 010757001 1 010702033010757001
010802010 010825001 1 010802010010825001
010802011 010827001 1 010802011010827001
020102005 020105001 1 020102005020105001
020102016 020108003 1 020102016020108003
020202013 020203001 1 020202013020203001
020202001 020218001 1 020202001020218001
020302004 020308001 1 020302004020308001
020402001 020401001 1 020402001020401001
020502001 020501001 2 020502001020501001
020502002 020506001 1 020502002020506001
020502005 020511001 1 020502005020511001
020502013 020513001 1 020502013020513001
020802001 020801001 2 020802001020801001
020802038 020816001 1 020802038020816001
020802026 020819001 1 020802026020819001
020802018 020831001 1 020802018020831001
020902005 020904001 1 020902005020904001
041302009 041309002 1 041302009041309002
050202019 050229001 1 050202019050229001
050902013 050902001 1 050902013050902001
050902003 050905004 1 050902003050905004
061102001 061101001 1 061102001061101001
080102004 080104001 2 080102004080104001
080102011 080112001 1 080102011080112001
080102048 080115002 1 080102048080115002
080102064 080138001 1 080102064080138001
080102044 080144001 1 080102044080144001
081702006 081706001 1 081702006081706001
082302001 082301001 1 082302001082301001
082602001 082601001 1 082602001082601001
110102006 110102001 5 110102006110102001
110102002 110105001 1 110102002110105001
110102006 110105004 1 110102006110105004
110102002 110105008 1 110102002110105008
110102006 110108005 1 110102006110108005
110102007 110109001 1 110102007110109001
110202002 110203001 1 110202002110203001
110302001 110301001 1 110302001110301001
110302009 110301002 1 110302009110301002
110402001 110401001 1 110402001110401001
110402002 110401012 1 110402002110401012
150802001 150801001 1 150802001150801001
151602001 151601001 1 151602001151601001
151802005 151806001 1 151802005151806001
152302015 152363001 1 152302015152363001
162602008 162614005 1 162602008162614005
180202001 180201001 1 180202001180201001
180402018 180429001 1 180402018180429001
180402024 180440001 1 180402024180440001
180702018 180727001 3 180702018180727001
180702020 180729001 1 180702020180729001
180702029 180750001 1 180702029180750001
180702031 180752001 1 180702031180752001
180702036 180760001 1 180702036180760001

Hacemos el merge: para que solo nos aparezcan registros existentes:

uffff  = merge( x =ggg , y = data_agregada, by = "clave", all.x = TRUE)

b_2y7 <- head(uffff,5)
kbl(b_2y7) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave local_votacion poblado rurales clave_vot clave_pob cantidad_de_registros
010102002010102001 010102002 010102001 1 010102002 010102001 1
010102003010104001 010102003 010104001 31 010102003 010104001 31
010102004010118001 010102004 010118001 1 010102004 010118001 1
010102005010108001 010102005 010108001 2 010102005 010108001 2
010102006010112001 010102006 010112001 3 010102006 010112001 3
#uffff <- uffff[,c(1,3,4,2)]
#names(uffff)[3] <- "numero"
#names(uffff)[4] <- "total"
ssss <- mutate(uffff, porcentaje_ruralidad = rurales*100/cantidad_de_registros)
ssss$clave <- paste(ssss$clave_vot,ssss$clave_pob, sep="")

rur <- ssss
b_3 <- head(d,100) 
kbl(b_3) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob numero total porcentaje clave
010101001 010101001 216 225 96.000000 010101001010101001
010101001 010101002 3 225 1.333333 010101001010101002
010101001 010101003 6 225 2.666667 010101001010101003
010101005 010101005 10 10 100.000000 010101005010101005
010101006 010101006 16 16 100.000000 010101006010101006
010101007 010101007 13 13 100.000000 010101007010101007
010101008 010101009 5 19 26.315790 010101008010101009
010101008 010101015 14 19 73.684211 010101008010101015
010101010 010101011 2 2 100.000000 010101010010101011
010101012 010101013 2 2 100.000000 010101012010101013
010101015 010101016 9 12 75.000000 010101015010101016
010101015 010101018 3 12 25.000000 010101015010101018
010101016 010101019 8 10 80.000000 010101016010101019
010101016 010101119 1 10 10.000000 010101016010101119
010101016 010101123 1 10 10.000000 010101016010101123
010101017 010101020 1 1 100.000000 010101017010101020
010101018 010101022 1 1 100.000000 010101018010101022
010101019 010101023 16 16 100.000000 010101019010101023
010101020 010101024 21 21 100.000000 010101020010101024
010101021 010101025 16 16 100.000000 010101021010101025
010101022 010101010 9 34 26.470588 010101022010101010
010101022 010101014 6 34 17.647059 010101022010101014
010101022 010101026 19 34 55.882353 010101022010101026
010101023 010101027 5 7 71.428571 010101023010101027
010101023 010101030 2 7 28.571429 010101023010101030
010101024 010101028 12 12 100.000000 010101024010101028
010101026 010101032 6 6 100.000000 010101026010101032
010101028 010101034 11 15 73.333333 010101028010101034
010101028 010101064 4 15 26.666667 010101028010101064
010101029 010101037 2 3 66.666667 010101029010101037
010101029 010101038 1 3 33.333333 010101029010101038
010101030 010101039 4 4 100.000000 010101030010101039
010101031 010101041 5 7 71.428571 010101031010101041
010101031 010101043 1 7 14.285714 010101031010101043
010101031 010101128 1 7 14.285714 010101031010101128
010101033 010101046 10 12 83.333333 010101033010101046
010101033 010101048 1 12 8.333333 010101033010101048
010101033 010101129 1 12 8.333333 010101033010101129
010101035 010101049 2 3 66.666667 010101035010101049
010101035 010101050 1 3 33.333333 010101035010101050
010101036 010101033 1 11 9.090909 010101036010101033
010101036 010101055 2 11 18.181818 010101036010101055
010101036 010101056 2 11 18.181818 010101036010101056
010101036 010101057 1 11 9.090909 010101036010101057
010101036 010101063 1 11 9.090909 010101036010101063
010101036 010101066 1 11 9.090909 010101036010101066
010101036 010101131 2 11 18.181818 010101036010101131
010101036 010101140 1 11 9.090909 010101036010101140
010101040 010101065 7 7 100.000000 010101040010101065
010101042 010101075 1 7 14.285714 010101042010101075
010101042 010101079 6 7 85.714286 010101042010101079
010101044 010101085 4 5 80.000000 010101044010101085
010101044 010101108 1 5 20.000000 010101044010101108
010101046 010101094 2 2 100.000000 010101046010101094
010101047 010101096 3 3 100.000000 010101047010101096
010101048 010101098 4 4 100.000000 010101048010101098
010101049 010101099 1 1 100.000000 010101049010101099
010101053 010101101 1 11 9.090909 010101053010101101
010101053 010101102 1 11 9.090909 010101053010101102
010101053 010101105 9 11 81.818182 010101053010101105
010101054 010101107 1 1 100.000000 010101054010101107
010101055 010101144 1 1 100.000000 010101055010101144
010101056 010101017 5 5 100.000000 010101056010101017
010101060 010101082 2 2 100.000000 010101060010101082
010101061 010101004 15 16 93.750000 010101061010101004
010101061 010101114 1 16 6.250000 010101061010101114
010102002 010102001 1 1 100.000000 010102002010102001
010102003 010104001 31 31 100.000000 010102003010104001
010102004 010118001 1 1 100.000000 010102004010118001
010102005 010108001 2 2 100.000000 010102005010108001
010102006 010112001 3 4 75.000000 010102006010112001
010102006 010112008 1 4 25.000000 010102006010112008
010102007 010116001 5 6 83.333333 010102007010116001
010102007 010116009 1 6 16.666667 010102007010116009
010102008 010117001 28 29 96.551724 010102008010117001
010102008 010117002 1 29 3.448276 010102008010117002
010102009 010107001 1 4 25.000000 010102009010107001
010102009 010119001 3 4 75.000000 010102009010119001
010102010 010121001 8 9 88.888889 010102010010121001
010102010 010121004 1 9 11.111111 010102010010121004
010102012 010113001 1 1 100.000000 010102012010113001
010102013 010115001 1 1 100.000000 010102013010115001
010202001 010201001 3 3 100.000000 010202001010201001
010202004 010208001 2 2 100.000000 010202004010208001
010202005 010210001 2 2 100.000000 010202005010210001
010202008 010201004 1 1 100.000000 010202008010201004
010202009 010211001 1 1 100.000000 010202009010211001
010202012 010212001 1 1 100.000000 010202012010212001
010302001 010301001 1 1 100.000000 010302001010301001
010302006 010324001 1 1 100.000000 010302006010324001
010302016 010328001 1 1 100.000000 010302016010328001
010402001 010401001 3 3 100.000000 010402001010401001
010402011 010421001 1 1 100.000000 010402011010421001
010402014 010425001 1 1 100.000000 010402014010425001
010402016 010406004 1 1 100.000000 010402016010406004
010402028 010406001 3 3 100.000000 010402028010406001
010402039 010418010 1 1 100.000000 010402039010418010
010502001 010501001 1 1 100.000000 010502001010501001
010502007 010514001 2 2 100.000000 010502007010514001
010602001 010601001 3 3 100.000000 010602001010601001




8 Debemos crear una tabla raíz sobre la que ejecutar consecutivamente los merges.

Hagamos un unique de la tabla central:

sub_tabla_madre <- readRDS("../../bases_de_datos/elecciones_Honduras/tabla_madre.rds")
b_4 <- head(sub_tabla_madre,100)

#write_xlsx(sub_tabla_madre, "sub_tabla_madre.xlsx")

kbl(b_4) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600112 JOSE ALBERTO MANZANAREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 7 2 1 7 2 0101193200037 SEBASTIAN LUCAS ALONZO PUERTO 1 1932/01/20 H01 1 Z00 407 28 010202007 010207001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600120 REINA EMELINA PADILLA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193700475 ANA ANA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194100057 VICTOR MANUEL URBINA SALINAS 0 E01 0 0 0 010101001 010101001
1 1 5 20 1 1 0101195200541 FREDIN ALBERTO ANTUNEZ 1 1952/06/02 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200313 JOSE RUBEN PEÑA 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101194000328 MARIA SANTIAGA MARTINEZ RIVERA 2 1940/07/25 H01 1 Z00 12533 356 110101001 110101001
1 1 2 1 1 2 0101195500050 HECTOR ARMANDO VALLADAREZ 1 1955/01/08 H01 1 Z00 381 131 010202001 010201001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101194600473 MARIA SOFIA VIVAS CABRERA 2 1946/08/10 H01 1 Z00 0 0 200201001 200201001
1 1 1 1 1 1 0101193400310 GUILLERMINA GUILLERMINA HERNANDEZ LAMBUR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200313 JOSE CORNELIO ROSALES LOPEZ 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101195100108 RAMONA DEL CARMEN CACERES 2 1951/01/23 H01 1 Z00 0 0 200201001 200201001
1 1 8 2 1 2 0101195000324 ARMANDO HERNANDEZ 1 1950/04/30 H01 1 Z00 1280 239 020802001 020801001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 4 11 1 2 0101195300304 MIRNA YOLANDA PAZ MARTINEZ 2 1953/03/28 H01 1 Z00 12648 263 110402001 110401001
1 1 1 1 1 1 0101192400097 ONDINA ONDINA ZELAYA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200330 OLGA RITA BENNETT CONNELLY 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 010101001
1 1 26 8 1 2 0101194800006 ROBERTO DENNIS HERNANDEZ COOPER 1 1947/12/31 E01 1 Z00 0 0 082602001 082601001
1 1 3 20 1 1 0101194700215 OLGA SUSANA JANDRES 2 1947/03/28 H01 1 Z00 0 0 200301001 200301001
1 1 1 1 1 1 0101194800062 ROSA AMALIA CATALAN MEZA 2 1948/01/30 H01 1 Z00 5 352 010101001 010101001
1 1 1 1 1 1 0101192400114 SALVADOR SALVADOR GOMEZ POSAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 6 16 1 2 0101195300349 DOMINGO FAUSTINO MEJIA 1 1953/04/12 H01 1 Z00 15556 136 160602001 160601001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194700153 LIA MERCEDES RODRIGUEZ 2 1947/03/06 H01 1 Z00 20 312 010101001 010101001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193400366 CARLOS AUGUSTO MELARA BLANCO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200383 ZENEN MAURICIO GUTIERREZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200384 CECILIA DOLORES GUERRERO CALIX 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200385 RICARDO MEDINA MARTINEZ 1 1942/08/18 H01 1 Z00 15 190 010101001 010101001
1 1 1 1 1 1 0101195100114 JOHN HENRY FRANCIS 1 1951/01/27 E01 1 Z00 0 0 010101001 010101001
1 1 1 11 1 1 0101195200748 WILSON JOSE MILLER 1 1952/08/16 H01 1 Z00 12536 3 110101001 110101001
1 1 1 1 1 1 0101193200393 ANTONIO ALFREDO COOPER 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100117 RAUL FERNANDO PALENCIA ROSALES 1 1951/01/28 H01 1 I10 18 337 010101001 010101001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 010101001
1 1 18 15 1 2 0101194800094 OSCAR ARMANDO ROSALES 1 1948/02/09 H01 1 Z00 15103 87 151802001 151801001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 010101001
1 1 13 15 1 2 0101193500333 ARTURO MERAZ 1 1935/11/16 H01 1 Z00 14958 344 151302001 151301001
1 1 5 20 1 1 0101194800143 PEDRO CHAVEZ FERNANDEZ 1 1948/03/03 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101194200403 NATIVIDAD NATIVIDAD CHAVEZ LINO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100134 ALINA ESPERANZA MURILLO CORDOVA 2 1951/01/31 H01 1 Z00 17 141 010101001 010101001
1 1 3 11 1 2 0101195400845 ANTONIO RODOLFO JIMENEZ GALAN 1 1954/08/24 H01 1 Z00 12619 101 110302001 110301001
1 1 1 11 1 1 0101195501246 CIELET CHERRY JAMES 2 1955/11/16 H01 1 Z00 12531 115 110101001 110101001
1 1 5 20 1 1 0101195500080 MARTA SILVANIA GARCIA 2 1955/01/19 H01 1 I10 0 0 200501001 200501001
1 1 1 1 1 1 0101194600234 JUAN SANTOS REYES 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101193600092 JUANA RODRIGUEZ 2 1936/02/27 H01 1 I10 12540 350 110101001 110101001
1 1 1 1 1 1 0101194200426 HURBURT RUNDOF BROOKS 1 1942/09/19 H01 1 Z00 4 65 010101001 010101001
1 1 1 1 1 1 0101195400677 JORGE ALBERTO CANALES MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101194700325 VENANCIO CHAVEZ ORDOÑEZ 1 1947/05/18 H01 1 Z00 330 53 010102003 010104001
1 1 16 15 1 2 0101195400833 JOSE EDGARDO GALAN CASTELLON 1 1954/08/20 E01 1 Z00 0 0 151602001 151601001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 010101001
1 1 16 8 1 2 0101193700467 ARMANDO ALMENDARES REYES 1 1937/11/05 E01 1 Z00 0 0 081602001 081601001
1 1 1 20 1 1 0101194700233 MARIA LUISA ORDOÑEZ LAFFITE 2 1947/03/30 H01 1 Z00 0 0 200101001 200101001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100169 LIDIA ERNESTINA LAMBUR PONCE 2 1951/02/17 H01 1 Z00 12 249 010101001 010101001
1 1 5 2 1 2 0101194400499 LILIA REYES CHAVARRIA 2 1944/10/31 E01 1 Z00 0 0 020502001 020501001
1 1 1 1 1 1 0101194200448 JOSE ANTONIO SOSA MEMBREÑO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200488 CRISTOBAL CRISTOBAL SOLARES PAGOADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600266 JUNIOR EDISON GARDEN BOWMAN 1 1946/05/07 H01 1 Z00 10 29 010101001 010101001
1 1 20 15 1 2 0101195100908 ELENA MARIETA ZEPEDA 2 1951/09/30 H01 1 Z00 15180 337 152002001 152001001
1 4 1 1 3 2 0101195100472 FLAVIA FERNANDEZ BERNARDEZ 2 1951/05/14 H01 1 Z00 331 89 010102003 010104001
1 82 1 8 165 1 0101193700255 BERTHA ISABELA GOMEZ GOMEZ 2 1937/06/14 H01 1 Z00 9360 143 080101165 080182001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200464 LETICIA LETICIA DETARI SANCHEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200508 PEDRO EMILIO ALCANTARA ACOSTA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194800838 RAMONA MILADI ORTIZ ZAVALA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195600008 LUIS ALBERTO CASTILLO ORELLANA 0 E01 0 0 0 010101001 010101001
1 1 6 2 1 2 0101194800189 MARIA ENCARNACION GARCIA ROCHEZ 2 1948/03/19 H01 1 Z00 1244 342 020602001 020601001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200477 MARTA CARMINDA CRUZ BARAHONA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001
1 1 1 1 1 1 0101195100206 JULIAN HUMBERTO FUENTES GOMEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200490 AUGUSTO ALVAREZ BONILLA 1 1942/10/27 H01 1 Z00 1 241 010101001 010101001
1 1 5 20 1 1 0101195500624 SANDRA ADELINA LOPEZ BONILLA 2 1955/06/08 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200498 MIRNA NELSON NELSON HERNANDEZ 0 E01 0 0 0 010101001 010101001
colnames(b_4)
##  [1] "CODIGO_LUGAR_POBLADO"          "CODIGO_ALDEA"                 
##  [3] "CODIGO_MUNICIPIO_DOMICILIO"    "CODIGO_DEPARTAMENTO_DOMICILIO"
##  [5] "CODIGO_SECTOR_ELECTORAL"       "CODIGO_AREA"                  
##  [7] "NUMERO_IDENTIDAD"              "PRIMER_NOMBRE"                
##  [9] "SEGUNDO_NOMBRE"                "PRIMER_APELLIDO"              
## [11] "SEGUNDO_APELLIDO"              "CODIGO_SEXO"                  
## [13] "FECHA_NACIMIENTO"              "CODIGO_HABIL_INHABIL"         
## [15] "CODIGO_CENTRO_VOTACION"        "CODIGO_ESTADO_TARJETA"        
## [17] "NUMERO_MESA"                   "NUMERO_LINEA"                 
## [19] "clave_vot"                     "clave_pob"
sub_tabla_2 <- sub_tabla_madre[,-c(1:18)]
names(sub_tabla_2)[1] <- "local_votacion"
names(sub_tabla_2)[2] <- "poblado"
sub_tabla_2$clave <- paste(sub_tabla_2$local_votacion,sub_tabla_2$poblado, sep="")
nrow(sub_tabla_2)
## [1] 10000
sub_tabla_2_1_pa_dibuj <- head(sub_tabla_2,100)

#write_xlsx(sub_tabla_madre, "sub_tabla_madre.xlsx")

kbl(sub_tabla_2_1_pa_dibuj ) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado clave
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010202007 010207001 010202007010207001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
200501001 200501001 200501001200501001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
110101001 110101001 110101001110101001
010202001 010201001 010202001010201001
010101001 010101001 010101001010101001
200201001 200201001 200201001200201001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
200201001 200201001 200201001200201001
020802001 020801001 020802001020801001
010101001 010101001 010101001010101001
110402001 110401001 110402001110401001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
082602001 082601001 082602001082601001
200301001 200301001 200301001200301001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
160602001 160601001 160602001160601001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
110101001 110101001 110101001110101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
151802001 151801001 151802001151801001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
151302001 151301001 151302001151301001
200501001 200501001 200501001200501001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
110302001 110301001 110302001110301001
110101001 110101001 110101001110101001
200501001 200501001 200501001200501001
010101001 010101001 010101001010101001
110101001 110101001 110101001110101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010102003 010104001 010102003010104001
151602001 151601001 151602001151601001
010101001 010101001 010101001010101001
081602001 081601001 081602001081601001
200101001 200101001 200101001200101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
020502001 020501001 020502001020501001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
152002001 152001001 152002001152001001
010102003 010104001 010102003010104001
080101165 080182001 080101165080182001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
020602001 020601001 020602001020601001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010102003 010104001 010102003010104001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
200501001 200501001 200501001200501001
010101001 010101001 010101001010101001
010101001 010101001 010101001010101001
sub_tabla_2_unique <- unique(sub_tabla_2)

sub_tabla_2_unique <- sub_tabla_2_unique[order(sub_tabla_2_unique $local_votacion),] 
sub_tabla_2_unique_pa_dibuj <- sub_tabla_2_unique[1:100,]
kbl(sub_tabla_2_unique_pa_dibuj) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado clave
1 010101001 010101001 010101001010101001
3326 010101001 010101002 010101001010101002
3456 010101001 010101003 010101001010101003
3801 010101005 010101005 010101005010101005
3939 010101006 010101006 010101006010101006
4104 010101007 010101007 010101007010101007
4273 010101007 010101008 010101007010101008
4315 010101008 010101009 010101008010101009
4998 010101008 010101015 010101008010101015
4599 010101010 010101011 010101010010101011
4656 010101011 010101012 010101011010101012
4761 010101012 010101013 010101012010101013
8749 010101012 010101071 010101012010101071
8769 010101012 010101072 010101012010101072
9517 010101012 010101117 010101012010101117
9782 010101012 010101175 010101012010101175
5153 010101015 010101016 010101015010101016
5344 010101015 010101018 010101015010101018
5388 010101016 010101019 010101016010101019
9522 010101016 010101118 010101016010101118
9531 010101016 010101119 010101016010101119
9539 010101016 010101120 010101016010101120
9553 010101016 010101121 010101016010101121
9556 010101016 010101122 010101016010101122
9561 010101016 010101123 010101016010101123
5544 010101017 010101020 010101017010101020
5600 010101018 010101021 010101018010101021
5665 010101018 010101022 010101018010101022
9564 010101018 010101124 010101018010101124
5710 010101019 010101023 010101019010101023
9573 010101019 010101125 010101019010101125
5942 010101020 010101024 010101020010101024
6110 010101021 010101025 010101021010101025
4445 010101022 010101010 010101022010101010
4893 010101022 010101014 010101022010101014
6350 010101022 010101026 010101022010101026
6517 010101023 010101027 010101023010101027
6923 010101023 010101030 010101023010101030
9019 010101023 010101083 010101023010101083
6638 010101024 010101028 010101024010101028
6883 010101024 010101029 010101024010101029
7033 010101026 010101032 010101026010101032
9576 010101026 010101126 010101026010101126
9580 010101026 010101127 010101026010101127
7161 010101028 010101034 010101028010101034
8510 010101028 010101064 010101028010101064
7334 010101029 010101037 010101029010101037
7420 010101029 010101038 010101029010101038
9926 010101029 010101211 010101029010101211
7453 010101030 010101039 010101030010101039
7527 010101030 010101040 010101030010101040
7595 010101031 010101041 010101031010101041
7731 010101031 010101042 010101031010101042
7790 010101031 010101043 010101031010101043
9584 010101031 010101128 010101031010101128
7888 010101033 010101046 010101033010101046
8080 010101033 010101047 010101033010101047
8088 010101033 010101048 010101033010101048
9594 010101033 010101129 010101033010101129
9615 010101033 010101130 010101033010101130
7808 010101034 010101044 010101034010101044
8264 010101034 010101054 010101034010101054
8124 010101035 010101049 010101035010101049
8161 010101035 010101050 010101035010101050
8202 010101035 010101052 010101035010101052
9639 010101035 010101138 010101035010101138
7120 010101036 010101033 010101036010101033
8276 010101036 010101055 010101036010101055
8350 010101036 010101056 010101036010101056
8370 010101036 010101057 010101036010101057
8461 010101036 010101063 010101036010101063
8663 010101036 010101066 010101036010101066
9616 010101036 010101131 010101036010101131
9632 010101036 010101132 010101036010101132
9654 010101036 010101140 010101036010101140
8538 010101040 010101065 010101040010101065
8702 010101040 010101068 010101040010101068
8712 010101040 010101070 010101040010101070
8770 010101040 010101073 010101040010101073
9722 010101040 010101165 010101040010101165
8784 010101042 010101074 010101042010101074
8802 010101042 010101075 010101042010101075
8828 010101042 010101076 010101042010101076
8856 010101042 010101078 010101042010101078
8863 010101042 010101079 010101042010101079
8960 010101042 010101081 010101042010101081
9030 010101044 010101085 010101044010101085
9465 010101044 010101108 010101044010101108
9113 010101045 010101089 010101045010101089
9649 010101045 010101139 010101045010101139
9154 010101046 010101094 010101046010101094
9171 010101046 010101095 010101046010101095
9993 010101046 010101224 010101046010101224
9185 010101047 010101096 010101047010101096
9225 010101047 010101097 010101047010101097
9879 010101047 010101204 010101047010101204
9994 010101047 010101226 010101047010101226
9231 010101048 010101098 010101048010101098
9260 010101049 010101099 010101049010101099
9281 010101049 010101100 010101049010101100


Ahora tenemos nuestra tabla raiz


nrow(sub_tabla_2_unique)
## [1] 1508


7 Unamos todas las cantidades de personas y el porcentaje


tabla_raiz_primi <- sub_tabla_2_unique

tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = hhhom, by = "clave", all.x = TRUE)
tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = mmm, by = "clave", all.x = TRUE)
tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = ttt, by = "clave", all.x = TRUE)

tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = hhh, by = "clave", all.x = TRUE)
tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = iii, by = "clave", all.x = TRUE)

tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = d, by = "clave", all.x = TRUE)

tabla_raiz_primi  = merge( x = tabla_raiz_primi, y = rur, by = "clave", all.x = TRUE)

colnames(tabla_raiz_primi)
##  [1] "clave"                 "local_votacion.x"      "poblado.x"            
##  [4] "local_votacion.y"      "poblado.y"             "cantidad_de_hombres"  
##  [7] "local_votacion.x"      "poblado.x"             "cantidad_de_mujeres"  
## [10] "local_votacion.y"      "poblado.y"             "cantidad_de_total"    
## [13] "local_votacion.x"      "poblado.x"             "cantidad_de_hab"      
## [16] "local_votacion.y"      "poblado.y"             "cantidad_de_inhab"    
## [19] "clave_vot.x"           "clave_pob.x"           "numero"               
## [22] "total"                 "porcentaje"            "local_votacion"       
## [25] "poblado"               "rurales"               "clave_vot.y"          
## [28] "clave_pob.y"           "cantidad_de_registros" "porcentaje_ruralidad"
tabla_raiz_primi <- tabla_raiz_primi[, -c(4,5,7,8,10,11,13,14,16,17,19,20,21,22,24,25,26,27,28,29)]

tabla_raiz_primi[is.na(tabla_raiz_primi)] <- 0

saveRDS(tabla_raiz_primi,"tabla_raiz_primi.rds")


tabla_raiz_primi_pa_dibuj <- head(tabla_raiz_primi,100)
kbl( tabla_raiz_primi_pa_dibuj ) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave local_votacion.x poblado.x cantidad_de_hombres cantidad_de_mujeres cantidad_de_total cantidad_de_hab cantidad_de_inhab porcentaje porcentaje_ruralidad
010101001010101001 010101001 010101001 209 206 415 358 0 96.000000 0
010101001010101002 010101001 010101002 15 15 30 26 0 1.333333 0
010101001010101003 010101001 010101003 23 27 50 43 0 2.666667 0
010101005010101005 010101005 010101005 40 64 104 88 0 100.000000 0
010101006010101006 010101006 010101006 50 64 114 105 0 100.000000 0
010101007010101007 010101007 010101007 59 54 113 92 0 100.000000 0
010101007010101008 010101007 010101008 1 1 2 2 0 0.000000 0
010101008010101009 010101008 010101009 17 31 48 40 0 26.315790 0
010101008010101015 010101008 010101015 46 52 98 87 0 73.684211 0
010101010010101011 010101010 010101011 7 12 19 16 0 100.000000 0
010101011010101012 010101011 010101012 16 38 54 50 0 0.000000 0
010101012010101013 010101012 010101013 36 28 64 56 1 100.000000 0
010101012010101071 010101012 010101071 0 1 1 1 0 0.000000 0
010101012010101072 010101012 010101072 0 1 1 1 0 0.000000 0
010101012010101117 010101012 010101117 2 2 4 4 0 0.000000 0
010101012010101175 010101012 010101175 0 1 1 1 0 0.000000 0
010101015010101016 010101015 010101016 28 32 60 48 0 75.000000 0
010101015010101018 010101015 010101018 6 11 17 16 0 25.000000 0
010101016010101019 010101016 010101019 64 68 132 112 0 80.000000 0
010101016010101118 010101016 010101118 4 4 8 7 1 0.000000 0
010101016010101119 010101016 010101119 4 3 7 7 0 10.000000 0
010101016010101120 010101016 010101120 3 8 11 11 0 0.000000 0
010101016010101121 010101016 010101121 0 2 2 1 0 0.000000 0
010101016010101122 010101016 010101122 2 0 2 2 0 0.000000 0
010101016010101123 010101016 010101123 1 1 2 1 0 10.000000 0
010101017010101020 010101017 010101020 2 7 9 9 0 100.000000 0
010101018010101021 010101018 010101021 21 14 35 30 0 0.000000 0
010101018010101022 010101018 010101022 4 6 10 10 0 100.000000 0
010101018010101124 010101018 010101124 1 7 8 8 0 0.000000 0
010101019010101023 010101019 010101023 86 102 188 164 0 100.000000 0
010101019010101125 010101019 010101125 1 0 1 1 0 0.000000 0
010101020010101024 010101020 010101024 51 84 135 115 0 100.000000 0
010101021010101025 010101021 010101025 96 123 219 182 0 100.000000 0
010101022010101010 010101022 010101010 43 42 85 79 0 26.470588 0
010101022010101014 010101022 010101014 17 20 37 32 0 17.647059 0
010101022010101026 010101022 010101026 71 69 140 126 0 55.882353 0
010101023010101027 010101023 010101027 37 42 79 67 0 71.428571 0
010101023010101030 010101023 010101030 15 11 26 23 0 28.571429 0
010101023010101083 010101023 010101083 2 1 3 3 0 0.000000 0
010101024010101028 010101024 010101028 98 110 208 179 1 100.000000 0
010101024010101029 010101024 010101029 1 2 3 3 0 0.000000 0
010101026010101032 010101026 010101032 21 33 54 43 0 100.000000 0
010101026010101126 010101026 010101126 2 1 3 3 0 0.000000 0
010101026010101127 010101026 010101127 2 1 3 3 0 0.000000 0
010101028010101034 010101028 010101034 56 50 106 93 0 73.333333 0
010101028010101064 010101028 010101064 15 13 28 25 0 26.666667 0
010101029010101037 010101029 010101037 29 22 51 50 0 66.666667 0
010101029010101038 010101029 010101038 7 6 13 13 0 33.333333 0
010101029010101211 010101029 010101211 3 2 5 5 0 0.000000 0
010101030010101039 010101030 010101039 25 26 51 47 0 100.000000 0
010101030010101040 010101030 010101040 3 3 6 6 0 0.000000 0
010101031010101041 010101031 010101041 46 39 85 80 0 71.428571 0
010101031010101042 010101031 010101042 5 7 12 10 1 0.000000 0
010101031010101043 010101031 010101043 3 3 6 6 0 14.285714 0
010101031010101128 010101031 010101128 5 4 9 9 0 14.285714 0
010101033010101046 010101033 010101046 80 84 164 146 0 83.333333 0
010101033010101047 010101033 010101047 1 0 1 1 0 0.000000 0
010101033010101048 010101033 010101048 14 3 17 14 0 8.333333 0
010101033010101129 010101033 010101129 9 11 20 19 0 8.333333 0
010101033010101130 010101033 010101130 1 0 1 1 0 0.000000 0
010101034010101044 010101034 010101044 5 5 10 9 0 0.000000 0
010101034010101054 010101034 010101054 1 1 2 2 0 0.000000 0
010101035010101049 010101035 010101049 6 11 17 16 0 66.666667 0
010101035010101050 010101035 010101050 5 2 7 7 0 33.333333 0
010101035010101052 010101035 010101052 0 1 1 1 0 0.000000 0
010101035010101138 010101035 010101138 4 4 8 7 1 0.000000 0
010101036010101033 010101036 010101033 9 6 15 14 0 9.090909 0
010101036010101055 010101036 010101055 33 33 66 59 1 18.181818 0
010101036010101056 010101036 010101056 5 6 11 8 0 18.181818 0
010101036010101057 010101036 010101057 9 8 17 17 0 9.090909 0
010101036010101063 010101036 010101063 24 20 44 40 0 9.090909 0
010101036010101066 010101036 010101066 5 8 13 11 0 9.090909 0
010101036010101131 010101036 010101131 6 4 10 9 0 18.181818 0
010101036010101132 010101036 010101132 0 1 1 1 0 0.000000 0
010101036010101140 010101036 010101140 2 0 2 1 0 9.090909 0
010101040010101065 010101040 010101065 55 58 113 96 0 100.000000 0
010101040010101068 010101040 010101068 0 1 1 1 0 0.000000 0
010101040010101070 010101040 010101070 7 10 17 14 0 0.000000 0
010101040010101073 010101040 010101073 3 4 7 6 0 0.000000 0
010101040010101165 010101040 010101165 1 0 1 1 0 0.000000 0
010101042010101074 010101042 010101074 2 4 6 5 0 0.000000 0
010101042010101075 010101042 010101075 0 7 7 6 0 14.285714 0
010101042010101076 010101042 010101076 2 5 7 5 1 0.000000 0
010101042010101078 010101042 010101078 1 2 3 3 0 0.000000 0
010101042010101079 010101042 010101079 48 38 86 73 0 85.714286 0
010101042010101081 010101042 010101081 3 6 9 9 0 0.000000 0
010101044010101085 010101044 010101085 21 9 30 26 0 80.000000 0
010101044010101108 010101044 010101108 1 2 3 2 0 20.000000 0
010101045010101089 010101045 010101089 7 6 13 11 0 0.000000 0
010101045010101139 010101045 010101139 0 1 1 1 0 0.000000 0
010101046010101094 010101046 010101094 5 8 13 12 0 100.000000 0
010101046010101095 010101046 010101095 5 5 10 10 0 0.000000 0
010101046010101224 010101046 010101224 1 0 1 1 0 0.000000 0
010101047010101096 010101047 010101096 17 19 36 32 0 100.000000 0
010101047010101097 010101047 010101097 2 2 4 3 0 0.000000 0
010101047010101204 010101047 010101204 0 1 1 1 0 0.000000 0
010101047010101226 010101047 010101226 1 0 1 1 0 0.000000 0
010101048010101098 010101048 010101098 13 12 25 19 0 100.000000 0
010101049010101099 010101049 010101099 6 4 10 9 0 100.000000 0
010101049010101100 010101049 010101100 0 1 1 1 0 0.000000 0



3.4 Cantidad de personas por rango etáreo

(volver al índice)

1 Lectura de la tabla madre corregida

Leamos nuestra tabla central de la base de datos censal con las claves foráneas ya corregidas y despleguemos sus primeros 100 registros (recordemos que en total tiene 10000) :

tabla_grande <- readRDS("../../bases_de_datos/elecciones_Honduras/tabla_madre.rds")
nrow(tabla_grande)
## [1] 10000
b_4 <- head(tabla_grande,100)
kbl(b_4) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600112 JOSE ALBERTO MANZANAREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 7 2 1 7 2 0101193200037 SEBASTIAN LUCAS ALONZO PUERTO 1 1932/01/20 H01 1 Z00 407 28 010202007 010207001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600120 REINA EMELINA PADILLA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193700475 ANA ANA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194100057 VICTOR MANUEL URBINA SALINAS 0 E01 0 0 0 010101001 010101001
1 1 5 20 1 1 0101195200541 FREDIN ALBERTO ANTUNEZ 1 1952/06/02 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200313 JOSE RUBEN PEÑA 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101194000328 MARIA SANTIAGA MARTINEZ RIVERA 2 1940/07/25 H01 1 Z00 12533 356 110101001 110101001
1 1 2 1 1 2 0101195500050 HECTOR ARMANDO VALLADAREZ 1 1955/01/08 H01 1 Z00 381 131 010202001 010201001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101194600473 MARIA SOFIA VIVAS CABRERA 2 1946/08/10 H01 1 Z00 0 0 200201001 200201001
1 1 1 1 1 1 0101193400310 GUILLERMINA GUILLERMINA HERNANDEZ LAMBUR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200313 JOSE CORNELIO ROSALES LOPEZ 0 E01 0 0 0 010101001 010101001
1 1 2 20 1 1 0101195100108 RAMONA DEL CARMEN CACERES 2 1951/01/23 H01 1 Z00 0 0 200201001 200201001
1 1 8 2 1 2 0101195000324 ARMANDO HERNANDEZ 1 1950/04/30 H01 1 Z00 1280 239 020802001 020801001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 4 11 1 2 0101195300304 MIRNA YOLANDA PAZ MARTINEZ 2 1953/03/28 H01 1 Z00 12648 263 110402001 110401001
1 1 1 1 1 1 0101192400097 ONDINA ONDINA ZELAYA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200330 OLGA RITA BENNETT CONNELLY 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 010101001
1 1 26 8 1 2 0101194800006 ROBERTO DENNIS HERNANDEZ COOPER 1 1947/12/31 E01 1 Z00 0 0 082602001 082601001
1 1 3 20 1 1 0101194700215 OLGA SUSANA JANDRES 2 1947/03/28 H01 1 Z00 0 0 200301001 200301001
1 1 1 1 1 1 0101194800062 ROSA AMALIA CATALAN MEZA 2 1948/01/30 H01 1 Z00 5 352 010101001 010101001
1 1 1 1 1 1 0101192400114 SALVADOR SALVADOR GOMEZ POSAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 6 16 1 2 0101195300349 DOMINGO FAUSTINO MEJIA 1 1953/04/12 H01 1 Z00 15556 136 160602001 160601001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194700153 LIA MERCEDES RODRIGUEZ 2 1947/03/06 H01 1 Z00 20 312 010101001 010101001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193400366 CARLOS AUGUSTO MELARA BLANCO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200383 ZENEN MAURICIO GUTIERREZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200384 CECILIA DOLORES GUERRERO CALIX 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200385 RICARDO MEDINA MARTINEZ 1 1942/08/18 H01 1 Z00 15 190 010101001 010101001
1 1 1 1 1 1 0101195100114 JOHN HENRY FRANCIS 1 1951/01/27 E01 1 Z00 0 0 010101001 010101001
1 1 1 11 1 1 0101195200748 WILSON JOSE MILLER 1 1952/08/16 H01 1 Z00 12536 3 110101001 110101001
1 1 1 1 1 1 0101193200393 ANTONIO ALFREDO COOPER 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100117 RAUL FERNANDO PALENCIA ROSALES 1 1951/01/28 H01 1 I10 18 337 010101001 010101001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 010101001
1 1 18 15 1 2 0101194800094 OSCAR ARMANDO ROSALES 1 1948/02/09 H01 1 Z00 15103 87 151802001 151801001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 010101001
1 1 13 15 1 2 0101193500333 ARTURO MERAZ 1 1935/11/16 H01 1 Z00 14958 344 151302001 151301001
1 1 5 20 1 1 0101194800143 PEDRO CHAVEZ FERNANDEZ 1 1948/03/03 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101194200403 NATIVIDAD NATIVIDAD CHAVEZ LINO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100134 ALINA ESPERANZA MURILLO CORDOVA 2 1951/01/31 H01 1 Z00 17 141 010101001 010101001
1 1 3 11 1 2 0101195400845 ANTONIO RODOLFO JIMENEZ GALAN 1 1954/08/24 H01 1 Z00 12619 101 110302001 110301001
1 1 1 11 1 1 0101195501246 CIELET CHERRY JAMES 2 1955/11/16 H01 1 Z00 12531 115 110101001 110101001
1 1 5 20 1 1 0101195500080 MARTA SILVANIA GARCIA 2 1955/01/19 H01 1 I10 0 0 200501001 200501001
1 1 1 1 1 1 0101194600234 JUAN SANTOS REYES 0 E01 0 0 0 010101001 010101001
1 1 1 11 1 1 0101193600092 JUANA RODRIGUEZ 2 1936/02/27 H01 1 I10 12540 350 110101001 110101001
1 1 1 1 1 1 0101194200426 HURBURT RUNDOF BROOKS 1 1942/09/19 H01 1 Z00 4 65 010101001 010101001
1 1 1 1 1 1 0101195400677 JORGE ALBERTO CANALES MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101194700325 VENANCIO CHAVEZ ORDOÑEZ 1 1947/05/18 H01 1 Z00 330 53 010102003 010104001
1 1 16 15 1 2 0101195400833 JOSE EDGARDO GALAN CASTELLON 1 1954/08/20 E01 1 Z00 0 0 151602001 151601001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 010101001
1 1 16 8 1 2 0101193700467 ARMANDO ALMENDARES REYES 1 1937/11/05 E01 1 Z00 0 0 081602001 081601001
1 1 1 20 1 1 0101194700233 MARIA LUISA ORDOÑEZ LAFFITE 2 1947/03/30 H01 1 Z00 0 0 200101001 200101001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195100169 LIDIA ERNESTINA LAMBUR PONCE 2 1951/02/17 H01 1 Z00 12 249 010101001 010101001
1 1 5 2 1 2 0101194400499 LILIA REYES CHAVARRIA 2 1944/10/31 E01 1 Z00 0 0 020502001 020501001
1 1 1 1 1 1 0101194200448 JOSE ANTONIO SOSA MEMBREÑO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200488 CRISTOBAL CRISTOBAL SOLARES PAGOADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194600266 JUNIOR EDISON GARDEN BOWMAN 1 1946/05/07 H01 1 Z00 10 29 010101001 010101001
1 1 20 15 1 2 0101195100908 ELENA MARIETA ZEPEDA 2 1951/09/30 H01 1 Z00 15180 337 152002001 152001001
1 4 1 1 3 2 0101195100472 FLAVIA FERNANDEZ BERNARDEZ 2 1951/05/14 H01 1 Z00 331 89 010102003 010104001
1 82 1 8 165 1 0101193700255 BERTHA ISABELA GOMEZ GOMEZ 2 1937/06/14 H01 1 Z00 9360 143 080101165 080182001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200464 LETICIA LETICIA DETARI SANCHEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193200508 PEDRO EMILIO ALCANTARA ACOSTA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194800838 RAMONA MILADI ORTIZ ZAVALA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101195600008 LUIS ALBERTO CASTILLO ORELLANA 0 E01 0 0 0 010101001 010101001
1 1 6 2 1 2 0101194800189 MARIA ENCARNACION GARCIA ROCHEZ 2 1948/03/19 H01 1 Z00 1244 342 020602001 020601001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200477 MARTA CARMINDA CRUZ BARAHONA 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001
1 1 1 1 1 1 0101195100206 JULIAN HUMBERTO FUENTES GOMEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200490 AUGUSTO ALVAREZ BONILLA 1 1942/10/27 H01 1 Z00 1 241 010101001 010101001
1 1 5 20 1 1 0101195500624 SANDRA ADELINA LOPEZ BONILLA 2 1955/06/08 H01 1 Z00 0 0 200501001 200501001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101194200498 MIRNA NELSON NELSON HERNANDEZ 0 E01 0 0 0 010101001 010101001


2 Eliminamos todos los registros que no posean de fecha de nacimiento:

# tabla_grande <- readRDS("../../bases_de_datos/elecciones_Honduras/tabla_madre.rds")
tabla_grande <- tabla_grande[!(tabla_grande$FECHA_NACIMIENTO == ""),]
#tabla_grande <- tabla_grande[!(tabla_grande$NUMERO_MESA == "0"),]
nrow(tabla_grande)
## [1] 9303

Notemos que quedan solamente 9303 registros. Despleguemos los primeros 100.

a1300 <- head(tabla_grande,100)
kbl(a1300) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10, full_width = F) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
4 1 7 2 1 7 2 0101193200037 SEBASTIAN LUCAS ALONZO PUERTO 1 1932/01/20 H01 1 Z00 407 28 010202007 010207001
11 1 1 5 20 1 1 0101195200541 FREDIN ALBERTO ANTUNEZ 1 1952/06/02 H01 1 Z00 0 0 200501001 200501001
16 1 1 1 11 1 1 0101194000328 MARIA SANTIAGA MARTINEZ RIVERA 2 1940/07/25 H01 1 Z00 12533 356 110101001 110101001
17 1 1 2 1 1 2 0101195500050 HECTOR ARMANDO VALLADAREZ 1 1955/01/08 H01 1 Z00 381 131 010202001 010201001
19 1 1 2 20 1 1 0101194600473 MARIA SOFIA VIVAS CABRERA 2 1946/08/10 H01 1 Z00 0 0 200201001 200201001
22 1 1 2 20 1 1 0101195100108 RAMONA DEL CARMEN CACERES 2 1951/01/23 H01 1 Z00 0 0 200201001 200201001
23 1 1 8 2 1 2 0101195000324 ARMANDO HERNANDEZ 1 1950/04/30 H01 1 Z00 1280 239 020802001 020801001
25 1 1 4 11 1 2 0101195300304 MIRNA YOLANDA PAZ MARTINEZ 2 1953/03/28 H01 1 Z00 12648 263 110402001 110401001
31 1 1 26 8 1 2 0101194800006 ROBERTO DENNIS HERNANDEZ COOPER 1 1947/12/31 E01 1 Z00 0 0 082602001 082601001
32 1 1 3 20 1 1 0101194700215 OLGA SUSANA JANDRES 2 1947/03/28 H01 1 Z00 0 0 200301001 200301001
33 1 1 1 1 1 1 0101194800062 ROSA AMALIA CATALAN MEZA 2 1948/01/30 H01 1 Z00 5 352 010101001 010101001
38 1 1 6 16 1 2 0101195300349 DOMINGO FAUSTINO MEJIA 1 1953/04/12 H01 1 Z00 15556 136 160602001 160601001
40 1 1 1 1 1 1 0101194700153 LIA MERCEDES RODRIGUEZ 2 1947/03/06 H01 1 Z00 20 312 010101001 010101001
46 1 1 1 1 1 1 0101194200385 RICARDO MEDINA MARTINEZ 1 1942/08/18 H01 1 Z00 15 190 010101001 010101001
47 1 1 1 1 1 1 0101195100114 JOHN HENRY FRANCIS 1 1951/01/27 E01 1 Z00 0 0 010101001 010101001
48 1 1 1 11 1 1 0101195200748 WILSON JOSE MILLER 1 1952/08/16 H01 1 Z00 12536 3 110101001 110101001
50 1 1 1 1 1 1 0101195100117 RAUL FERNANDO PALENCIA ROSALES 1 1951/01/28 H01 1 I10 18 337 010101001 010101001
52 1 1 18 15 1 2 0101194800094 OSCAR ARMANDO ROSALES 1 1948/02/09 H01 1 Z00 15103 87 151802001 151801001
55 1 1 13 15 1 2 0101193500333 ARTURO MERAZ 1 1935/11/16 H01 1 Z00 14958 344 151302001 151301001
56 1 1 5 20 1 1 0101194800143 PEDRO CHAVEZ FERNANDEZ 1 1948/03/03 H01 1 Z00 0 0 200501001 200501001
59 1 1 1 1 1 1 0101195100134 ALINA ESPERANZA MURILLO CORDOVA 2 1951/01/31 H01 1 Z00 17 141 010101001 010101001
60 1 1 3 11 1 2 0101195400845 ANTONIO RODOLFO JIMENEZ GALAN 1 1954/08/24 H01 1 Z00 12619 101 110302001 110301001
61 1 1 1 11 1 1 0101195501246 CIELET CHERRY JAMES 2 1955/11/16 H01 1 Z00 12531 115 110101001 110101001
62 1 1 5 20 1 1 0101195500080 MARTA SILVANIA GARCIA 2 1955/01/19 H01 1 I10 0 0 200501001 200501001
64 1 1 1 11 1 1 0101193600092 JUANA RODRIGUEZ 2 1936/02/27 H01 1 I10 12540 350 110101001 110101001
65 1 1 1 1 1 1 0101194200426 HURBURT RUNDOF BROOKS 1 1942/09/19 H01 1 Z00 4 65 010101001 010101001
69 1 4 1 1 3 2 0101194700325 VENANCIO CHAVEZ ORDOÑEZ 1 1947/05/18 H01 1 Z00 330 53 010102003 010104001
70 1 1 16 15 1 2 0101195400833 JOSE EDGARDO GALAN CASTELLON 1 1954/08/20 E01 1 Z00 0 0 151602001 151601001
72 1 1 16 8 1 2 0101193700467 ARMANDO ALMENDARES REYES 1 1937/11/05 E01 1 Z00 0 0 081602001 081601001
73 1 1 1 20 1 1 0101194700233 MARIA LUISA ORDOÑEZ LAFFITE 2 1947/03/30 H01 1 Z00 0 0 200101001 200101001
75 1 1 1 1 1 1 0101195100169 LIDIA ERNESTINA LAMBUR PONCE 2 1951/02/17 H01 1 Z00 12 249 010101001 010101001
76 1 1 5 2 1 2 0101194400499 LILIA REYES CHAVARRIA 2 1944/10/31 E01 1 Z00 0 0 020502001 020501001
79 1 1 1 1 1 1 0101194600266 JUNIOR EDISON GARDEN BOWMAN 1 1946/05/07 H01 1 Z00 10 29 010101001 010101001
80 1 1 20 15 1 2 0101195100908 ELENA MARIETA ZEPEDA 2 1951/09/30 H01 1 Z00 15180 337 152002001 152001001
81 1 4 1 1 3 2 0101195100472 FLAVIA FERNANDEZ BERNARDEZ 2 1951/05/14 H01 1 Z00 331 89 010102003 010104001
82 1 82 1 8 165 1 0101193700255 BERTHA ISABELA GOMEZ GOMEZ 2 1937/06/14 H01 1 Z00 9360 143 080101165 080182001
89 1 1 6 2 1 2 0101194800189 MARIA ENCARNACION GARCIA ROCHEZ 2 1948/03/19 H01 1 Z00 1244 342 020602001 020601001
92 1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001
97 1 1 1 1 1 1 0101194200490 AUGUSTO ALVAREZ BONILLA 1 1942/10/27 H01 1 Z00 1 241 010101001 010101001
98 1 1 5 20 1 1 0101195500624 SANDRA ADELINA LOPEZ BONILLA 2 1955/06/08 H01 1 Z00 0 0 200501001 200501001
101 1 1 4 11 1 2 0101194100034 CLEMSON BODDEN COOPER 1 1941/01/21 H01 1 Z00 12643 282 110402001 110401001
103 1 1 3 20 1 1 0101194500556 CARLOS ANTONIO MOYA CASTRO 1 1945/11/24 H01 1 Z00 0 0 200301001 200301001
106 1 1 1 1 1 1 0101194000046 GLORIA BERNARDEZ WATLER 2 1940/01/21 H01 1 Z00 3 237 010101001 010101001
107 1 1 3 11 1 2 0101194700046 ROLIEN AMERICA RIVERA TENYSON 2 1947/01/11 H01 1 Z00 12622 112 110302001 110301001
108 1 1 1 1 1 1 0101195400756 CIRA ESPINOZA URQUIA 2 1954/08/03 H01 1 Z00 8 101 010101001 010101001
109 1 1 3 20 1 1 0101192200157 NORBERTA MARTINEZ 2 1922/06/13 E01 1 Z00 0 0 200301001 200301001
110 1 1 19 3 1 2 0101195400599 ANDREA CLEMENTINA TORRES CENTENO 2 1954/06/24 H01 1 Z00 2537 213 031902001 031901001
111 1 1 5 1 1 2 0101194900776 OMAR ANTONIO AVILEZ 1 1949/10/28 H01 1 Z00 547 96 010502001 010501001
112 1 1 8 2 1 2 0101194200458 ADRIANA ALVARADO FEREZ 2 1942/10/06 H01 1 Z00 1272 270 020802001 020801001
113 1 1 20 15 1 2 0101195100369 LUIS ALFREDO ISAULA 1 1951/04/12 H01 1 Z00 15173 21 152002001 152001001
115 1 1 1 1 1 1 0101194700053 OCTAVIO CLEMENTE LACAYO GARCIA 1 1947/01/13 H01 1 Z00 12 212 010101001 010101001
116 1 1 1 1 1 1 0101191900063 DARWIN GEOVANNY URVINA RODRIGUEZ 2 1984/12/31 H01 1 I10 24 68 010101001 010101001
118 1 4 1 1 3 2 0101195200004 PABLO DAVID CAYETANO 1 1951/12/28 H01 1 Z00 330 232 010102003 010104001
121 1 1 1 5 1 1 0101195501147 ADILIA EMELINA SARMIENTO 2 1955/10/18 H01 1 Z00 3522 186 050101001 050101001
125 1 1 8 2 1 2 0101193800340 IRMA ISABEL CONTRERAS BALICO 2 1938/08/03 H01 1 Z00 1276 99 020802001 020801001
127 1 1 1 11 1 1 0101194200284 ROGELIO FERNANDEZ 1 1942/06/20 E01 1 Z00 0 0 110101001 110101001
128 1 1 2 2 1 2 0101195300484 FRANCISCO ERNESTO VEGA CALIX 1 1953/05/19 H01 1 Z00 1080 262 020202001 020201001
129 1 1 5 20 1 1 0101195100706 LIDIA LINO SAMBULA 2 1951/08/03 H01 1 Z00 0 0 200501001 200501001
130 1 1 1 1 1 1 0101194900062 ANA MARIA ZUNIGA QUIÑONEZ 2 1949/01/14 H01 1 Z00 25 337 010101001 010101001
131 1 1 8 2 1 2 0101194600235 NORMA GLADIS ESPINAL FINO 2 1946/04/19 H01 1 Z00 1278 48 020802001 020801001
138 1 1 4 20 1 1 0101193900398 OSCAR EDGARDO FOOT HERNANDEZ 1 1939/08/29 H01 1 Z00 0 0 200401001 200401001
140 1 1 1 1 1 1 0101194200580 LUIS ARMANDO ALVAREZ MARTINEZ 1 1942/12/24 H01 1 Z00 1 278 010101001 010101001
141 1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 010101001
145 1 1 1 1 1 1 0101192000155 ROBERTO ORELLANA 1 1920/09/28 H01 1 Z00 18 58 010101001 010101001
147 1 1 1 1 1 1 0101193300190 BLANCA ESTELA RUBIO 2 1933/08/31 E01 1 Z00 0 0 010101001 010101001
152 1 84 1 8 476 1 0101194900335 LESY GUIFARRO MENA 2 1949/05/03 H01 1 Z00 10508 304 080101476 080184001
155 1 1 1 1 1 1 0101195300013 REYNALDO RAFAEL ORTEGA BANEGAS 1 1953/01/03 E01 1 Z00 0 0 010101001 010101001
158 1 85 1 8 406 1 0101194300516 ROSA MARGARITA ARIAS 2 1943/10/15 H01 1 Z00 10250 119 080101406 080185001
159 1 85 1 5 187 1 0101195400787 ANGELA CLAUDINA ARIAS SUAREZ 2 1954/08/07 H01 1 Z00 4233 198 050101187 050185001
160 1 1 1 1 1 1 0101195300025 CARLOS ROBERTO ZELAYA MERLO 1 1953/12/31 H01 1 Z00 25 260 010101001 010101001
163 1 1 1 1 1 1 0101195100343 ADOLFO GUSTAVO MEDINA SOTO 1 1951/04/09 H01 1 Z00 15 208 010101001 010101001
164 1 1 8 15 1 2 0101192900314 PAULA MENCIAS HERNANDEZ 2 1929/06/03 H01 1 Z00 14826 364 150802001 150801001
165 1 1 1 1 1 1 0101195501106 JENE GRANT 2 1955/10/06 H01 1 Z00 10 221 010101001 010101001
167 1 1 5 2 1 2 0101194100170 FELIPE ANTONIO CORTES FAJARDO 1 1941/04/02 E01 1 Z00 0 0 020502001 020501001
170 1 1 1 1 1 1 0101195300045 SONIA MARINA COLON 2 1953/01/08 H01 1 Z00 6 188 010101001 010101001
175 1 1 1 1 1 1 0101195500894 ABELINA VALLESTERO 2 1955/08/15 H01 1 Z00 24 163 010101001 010101001
176 1 1 5 2 1 2 0101194800245 RAQUEL MIRTALIA PALENCIA ROSALEZ 2 1948/04/09 H01 1 Z00 1195 39 020502001 020501001
177 1 1 5 20 1 1 0101194100381 ABELARDO ESCOTO ACOSTA 1 1941/08/08 E01 1 Z00 0 0 200501001 200501001
180 1 1 1 1 1 1 0101195100368 AMALIA MARTINEZ 2 1951/04/12 H01 1 Z00 14 23 010101001 010101001
184 1 1 1 1 1 1 0101193300297 PEDRO DEL CARMEN MATUTE 1 1933/04/27 H01 1 Z00 15 46 010101001 010101001
186 1 1 1 3 1 1 0101194900249 HECTOR RENE FONCECA MARTINEZ 1 1949/03/29 H01 1 Z00 1641 154 030101001 030101001
188 1 1 1 1 1 1 0101192100132 RAUL PAGOADA OCAMPO 1 1921/04/27 E01 1 Z00 0 0 010101001 010101001
192 1 10 6 1 4 2 0101194000163 REINALDO ALONSO SALINAS 1 1940/03/30 E01 1 Z00 0 0 010602004 010610001
197 1 1 1 1 1 1 0101194300133 VINTON BENNETT HUNTER 1 1943/03/06 E01 1 Z00 0 0 010101001 010101001
198 1 1 1 1 1 1 0101194300135 LEONOLFO GARCIA 1 1943/03/22 H01 1 Z00 9 232 010101001 010101001
200 1 1 5 1 1 2 0101195300532 JORGE ALBERTO MARTINEZ BERNARDEZ 1 1953/05/27 H01 1 Z00 553 156 010502001 010501001
204 1 1 1 1 1 1 0101194600523 MARIA ROSALINA FUENTES MATUTE 2 1946/09/02 H01 1 Z00 9 62 010101001 010101001
206 1 1 8 2 1 2 0101195300103 CONCEPCION BRIZUELA 2 1953/01/21 H01 1 Z00 1274 194 020802001 020801001
214 1 1 4 20 1 1 0101195300686 DIANA MARGARITA VIDEA RAMIREZ 2 1953/07/15 H01 1 Z00 0 0 200401001 200401001
215 1 1 17 15 1 2 0101195000676 JAIME OMAR FERNANDEZ PADILLA 1 1950/09/21 H01 1 Z00 15047 2 151702001 151701001
217 1 1 2 1 1 2 0101195400235 TOMASA CARMINDA SANTOS ROSALES 2 1954/02/27 H01 1 Z00 380 257 010202001 010201001
218 1 1 1 1 1 1 0101195000044 GONZALO ANTONIO RIVERA 1 1950/01/09 H01 1 Z00 20 205 010101001 010101001
219 1 1 1 1 1 1 0101195100456 MIGUEL ANTONIO MACEDO NICKOLS 1 1951/05/10 H01 1 Z00 13 222 010101001 010101001
221 1 1 1 1 1 1 0101195300829 ROSA MARIA MATUTE ANDINO 2 1953/08/20 H01 1 Z00 15 48 010101001 010101001
225 1 1 1 1 1 1 0101195400978 MONALI BODEN 2 1954/09/26 H01 1 Z00 3 338 010101001 010101001
226 1 1 1 1 1 1 0101195400800 IDA MARINA DE LA CRUZ DURON ELVIR 2 1954/08/11 H01 1 Z00 7 239 010101001 010101001
227 1 1 1 1 1 1 0101194400377 TELMA ELIZABETH FLORES CERRATO 2 1944/08/18 H01 1 Z00 8 294 010101001 010101001
229 1 1 1 1 1 1 0101195300156 OLGA SABINA GARCIA REYES 2 1953/02/02 H01 1 Z00 9 352 010101001 010101001
230 1 1 16 8 1 2 0101193900061 ARMANDO CARDONA VALDEZ 1 1939/02/08 E01 1 Z00 0 0 081602001 081601001
231 1 1 1 1 1 1 0101195100482 HUMBERTO RUBEN SANCHEZ MEJIA 1 1951/05/15 H01 1 Z00 22 117 010101001 010101001


# tabla_grande <- readRDS("../../bases_de_datos/elecciones_Honduras/tabla_madre.rds")
# tabla_grande <- tabla_grande[!(tabla_grande$FECHA_NACIMIENTO == ""),]
# tabla_grande$FECHA_NACIMIENTO <- as.Date(tabla_grande$FECHA_NACIMIENTO)
# tabla_grande <- tabla_grande[!(tabla_grande$FECHA_NACIMIENTO <  "1924-05-04"),]
# 
# nrow(tabla_grande)
# 
# a1320 <- head(tabla_grande,100)
# kbl(a1320) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10, full_width = F) %>% scroll_box(width = "100%", height = "200px")


3 Construiremos una nueva columna con el cálculo de las edades para las personas para el día de hoy. Despleguemos los primeros 100 registros:

#options(digits = 0)
diadehoy <- Sys.Date()
tabla_grande$edades <- age_calc(dob = as.Date(tabla_grande$FECHA_NACIMIENTO), enddate = diadehoy, units = "years")
tabla_grande$edades <- trunc(tabla_grande$edades)
nrow(tabla_grande)
## [1] 9303
a107 <- head(tabla_grande,100)
kbl(a107) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10, full_width = F)  %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob edades
4 1 7 2 1 7 2 0101193200037 SEBASTIAN LUCAS ALONZO PUERTO 1 1932/01/20 H01 1 Z00 407 28 010202007 010207001 89
11 1 1 5 20 1 1 0101195200541 FREDIN ALBERTO ANTUNEZ 1 1952/06/02 H01 1 Z00 0 0 200501001 200501001 68
16 1 1 1 11 1 1 0101194000328 MARIA SANTIAGA MARTINEZ RIVERA 2 1940/07/25 H01 1 Z00 12533 356 110101001 110101001 80
17 1 1 2 1 1 2 0101195500050 HECTOR ARMANDO VALLADAREZ 1 1955/01/08 H01 1 Z00 381 131 010202001 010201001 66
19 1 1 2 20 1 1 0101194600473 MARIA SOFIA VIVAS CABRERA 2 1946/08/10 H01 1 Z00 0 0 200201001 200201001 74
22 1 1 2 20 1 1 0101195100108 RAMONA DEL CARMEN CACERES 2 1951/01/23 H01 1 Z00 0 0 200201001 200201001 70
23 1 1 8 2 1 2 0101195000324 ARMANDO HERNANDEZ 1 1950/04/30 H01 1 Z00 1280 239 020802001 020801001 70
25 1 1 4 11 1 2 0101195300304 MIRNA YOLANDA PAZ MARTINEZ 2 1953/03/28 H01 1 Z00 12648 263 110402001 110401001 67
31 1 1 26 8 1 2 0101194800006 ROBERTO DENNIS HERNANDEZ COOPER 1 1947/12/31 E01 1 Z00 0 0 082602001 082601001 73
32 1 1 3 20 1 1 0101194700215 OLGA SUSANA JANDRES 2 1947/03/28 H01 1 Z00 0 0 200301001 200301001 73
33 1 1 1 1 1 1 0101194800062 ROSA AMALIA CATALAN MEZA 2 1948/01/30 H01 1 Z00 5 352 010101001 010101001 73
38 1 1 6 16 1 2 0101195300349 DOMINGO FAUSTINO MEJIA 1 1953/04/12 H01 1 Z00 15556 136 160602001 160601001 67
40 1 1 1 1 1 1 0101194700153 LIA MERCEDES RODRIGUEZ 2 1947/03/06 H01 1 Z00 20 312 010101001 010101001 74
46 1 1 1 1 1 1 0101194200385 RICARDO MEDINA MARTINEZ 1 1942/08/18 H01 1 Z00 15 190 010101001 010101001 78
47 1 1 1 1 1 1 0101195100114 JOHN HENRY FRANCIS 1 1951/01/27 E01 1 Z00 0 0 010101001 010101001 70
48 1 1 1 11 1 1 0101195200748 WILSON JOSE MILLER 1 1952/08/16 H01 1 Z00 12536 3 110101001 110101001 68
50 1 1 1 1 1 1 0101195100117 RAUL FERNANDO PALENCIA ROSALES 1 1951/01/28 H01 1 I10 18 337 010101001 010101001 70
52 1 1 18 15 1 2 0101194800094 OSCAR ARMANDO ROSALES 1 1948/02/09 H01 1 Z00 15103 87 151802001 151801001 73
55 1 1 13 15 1 2 0101193500333 ARTURO MERAZ 1 1935/11/16 H01 1 Z00 14958 344 151302001 151301001 85
56 1 1 5 20 1 1 0101194800143 PEDRO CHAVEZ FERNANDEZ 1 1948/03/03 H01 1 Z00 0 0 200501001 200501001 73
59 1 1 1 1 1 1 0101195100134 ALINA ESPERANZA MURILLO CORDOVA 2 1951/01/31 H01 1 Z00 17 141 010101001 010101001 70
60 1 1 3 11 1 2 0101195400845 ANTONIO RODOLFO JIMENEZ GALAN 1 1954/08/24 H01 1 Z00 12619 101 110302001 110301001 66
61 1 1 1 11 1 1 0101195501246 CIELET CHERRY JAMES 2 1955/11/16 H01 1 Z00 12531 115 110101001 110101001 65
62 1 1 5 20 1 1 0101195500080 MARTA SILVANIA GARCIA 2 1955/01/19 H01 1 I10 0 0 200501001 200501001 66
64 1 1 1 11 1 1 0101193600092 JUANA RODRIGUEZ 2 1936/02/27 H01 1 I10 12540 350 110101001 110101001 85
65 1 1 1 1 1 1 0101194200426 HURBURT RUNDOF BROOKS 1 1942/09/19 H01 1 Z00 4 65 010101001 010101001 78
69 1 4 1 1 3 2 0101194700325 VENANCIO CHAVEZ ORDOÑEZ 1 1947/05/18 H01 1 Z00 330 53 010102003 010104001 73
70 1 1 16 15 1 2 0101195400833 JOSE EDGARDO GALAN CASTELLON 1 1954/08/20 E01 1 Z00 0 0 151602001 151601001 66
72 1 1 16 8 1 2 0101193700467 ARMANDO ALMENDARES REYES 1 1937/11/05 E01 1 Z00 0 0 081602001 081601001 83
73 1 1 1 20 1 1 0101194700233 MARIA LUISA ORDOÑEZ LAFFITE 2 1947/03/30 H01 1 Z00 0 0 200101001 200101001 73
75 1 1 1 1 1 1 0101195100169 LIDIA ERNESTINA LAMBUR PONCE 2 1951/02/17 H01 1 Z00 12 249 010101001 010101001 70
76 1 1 5 2 1 2 0101194400499 LILIA REYES CHAVARRIA 2 1944/10/31 E01 1 Z00 0 0 020502001 020501001 76
79 1 1 1 1 1 1 0101194600266 JUNIOR EDISON GARDEN BOWMAN 1 1946/05/07 H01 1 Z00 10 29 010101001 010101001 74
80 1 1 20 15 1 2 0101195100908 ELENA MARIETA ZEPEDA 2 1951/09/30 H01 1 Z00 15180 337 152002001 152001001 69
81 1 4 1 1 3 2 0101195100472 FLAVIA FERNANDEZ BERNARDEZ 2 1951/05/14 H01 1 Z00 331 89 010102003 010104001 69
82 1 82 1 8 165 1 0101193700255 BERTHA ISABELA GOMEZ GOMEZ 2 1937/06/14 H01 1 Z00 9360 143 080101165 080182001 83
89 1 1 6 2 1 2 0101194800189 MARIA ENCARNACION GARCIA ROCHEZ 2 1948/03/19 H01 1 Z00 1244 342 020602001 020601001 72
92 1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001 92
97 1 1 1 1 1 1 0101194200490 AUGUSTO ALVAREZ BONILLA 1 1942/10/27 H01 1 Z00 1 241 010101001 010101001 78
98 1 1 5 20 1 1 0101195500624 SANDRA ADELINA LOPEZ BONILLA 2 1955/06/08 H01 1 Z00 0 0 200501001 200501001 65
101 1 1 4 11 1 2 0101194100034 CLEMSON BODDEN COOPER 1 1941/01/21 H01 1 Z00 12643 282 110402001 110401001 80
103 1 1 3 20 1 1 0101194500556 CARLOS ANTONIO MOYA CASTRO 1 1945/11/24 H01 1 Z00 0 0 200301001 200301001 75
106 1 1 1 1 1 1 0101194000046 GLORIA BERNARDEZ WATLER 2 1940/01/21 H01 1 Z00 3 237 010101001 010101001 81
107 1 1 3 11 1 2 0101194700046 ROLIEN AMERICA RIVERA TENYSON 2 1947/01/11 H01 1 Z00 12622 112 110302001 110301001 74
108 1 1 1 1 1 1 0101195400756 CIRA ESPINOZA URQUIA 2 1954/08/03 H01 1 Z00 8 101 010101001 010101001 66
109 1 1 3 20 1 1 0101192200157 NORBERTA MARTINEZ 2 1922/06/13 E01 1 Z00 0 0 200301001 200301001 98
110 1 1 19 3 1 2 0101195400599 ANDREA CLEMENTINA TORRES CENTENO 2 1954/06/24 H01 1 Z00 2537 213 031902001 031901001 66
111 1 1 5 1 1 2 0101194900776 OMAR ANTONIO AVILEZ 1 1949/10/28 H01 1 Z00 547 96 010502001 010501001 71
112 1 1 8 2 1 2 0101194200458 ADRIANA ALVARADO FEREZ 2 1942/10/06 H01 1 Z00 1272 270 020802001 020801001 78
113 1 1 20 15 1 2 0101195100369 LUIS ALFREDO ISAULA 1 1951/04/12 H01 1 Z00 15173 21 152002001 152001001 69
115 1 1 1 1 1 1 0101194700053 OCTAVIO CLEMENTE LACAYO GARCIA 1 1947/01/13 H01 1 Z00 12 212 010101001 010101001 74
116 1 1 1 1 1 1 0101191900063 DARWIN GEOVANNY URVINA RODRIGUEZ 2 1984/12/31 H01 1 I10 24 68 010101001 010101001 36
118 1 4 1 1 3 2 0101195200004 PABLO DAVID CAYETANO 1 1951/12/28 H01 1 Z00 330 232 010102003 010104001 69
121 1 1 1 5 1 1 0101195501147 ADILIA EMELINA SARMIENTO 2 1955/10/18 H01 1 Z00 3522 186 050101001 050101001 65
125 1 1 8 2 1 2 0101193800340 IRMA ISABEL CONTRERAS BALICO 2 1938/08/03 H01 1 Z00 1276 99 020802001 020801001 82
127 1 1 1 11 1 1 0101194200284 ROGELIO FERNANDEZ 1 1942/06/20 E01 1 Z00 0 0 110101001 110101001 78
128 1 1 2 2 1 2 0101195300484 FRANCISCO ERNESTO VEGA CALIX 1 1953/05/19 H01 1 Z00 1080 262 020202001 020201001 67
129 1 1 5 20 1 1 0101195100706 LIDIA LINO SAMBULA 2 1951/08/03 H01 1 Z00 0 0 200501001 200501001 69
130 1 1 1 1 1 1 0101194900062 ANA MARIA ZUNIGA QUIÑONEZ 2 1949/01/14 H01 1 Z00 25 337 010101001 010101001 72
131 1 1 8 2 1 2 0101194600235 NORMA GLADIS ESPINAL FINO 2 1946/04/19 H01 1 Z00 1278 48 020802001 020801001 74
138 1 1 4 20 1 1 0101193900398 OSCAR EDGARDO FOOT HERNANDEZ 1 1939/08/29 H01 1 Z00 0 0 200401001 200401001 81
140 1 1 1 1 1 1 0101194200580 LUIS ARMANDO ALVAREZ MARTINEZ 1 1942/12/24 H01 1 Z00 1 278 010101001 010101001 78
141 1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 010101001 100
145 1 1 1 1 1 1 0101192000155 ROBERTO ORELLANA 1 1920/09/28 H01 1 Z00 18 58 010101001 010101001 100
147 1 1 1 1 1 1 0101193300190 BLANCA ESTELA RUBIO 2 1933/08/31 E01 1 Z00 0 0 010101001 010101001 87
152 1 84 1 8 476 1 0101194900335 LESY GUIFARRO MENA 2 1949/05/03 H01 1 Z00 10508 304 080101476 080184001 71
155 1 1 1 1 1 1 0101195300013 REYNALDO RAFAEL ORTEGA BANEGAS 1 1953/01/03 E01 1 Z00 0 0 010101001 010101001 68
158 1 85 1 8 406 1 0101194300516 ROSA MARGARITA ARIAS 2 1943/10/15 H01 1 Z00 10250 119 080101406 080185001 77
159 1 85 1 5 187 1 0101195400787 ANGELA CLAUDINA ARIAS SUAREZ 2 1954/08/07 H01 1 Z00 4233 198 050101187 050185001 66
160 1 1 1 1 1 1 0101195300025 CARLOS ROBERTO ZELAYA MERLO 1 1953/12/31 H01 1 Z00 25 260 010101001 010101001 67
163 1 1 1 1 1 1 0101195100343 ADOLFO GUSTAVO MEDINA SOTO 1 1951/04/09 H01 1 Z00 15 208 010101001 010101001 69
164 1 1 8 15 1 2 0101192900314 PAULA MENCIAS HERNANDEZ 2 1929/06/03 H01 1 Z00 14826 364 150802001 150801001 91
165 1 1 1 1 1 1 0101195501106 JENE GRANT 2 1955/10/06 H01 1 Z00 10 221 010101001 010101001 65
167 1 1 5 2 1 2 0101194100170 FELIPE ANTONIO CORTES FAJARDO 1 1941/04/02 E01 1 Z00 0 0 020502001 020501001 79
170 1 1 1 1 1 1 0101195300045 SONIA MARINA COLON 2 1953/01/08 H01 1 Z00 6 188 010101001 010101001 68
175 1 1 1 1 1 1 0101195500894 ABELINA VALLESTERO 2 1955/08/15 H01 1 Z00 24 163 010101001 010101001 65
176 1 1 5 2 1 2 0101194800245 RAQUEL MIRTALIA PALENCIA ROSALEZ 2 1948/04/09 H01 1 Z00 1195 39 020502001 020501001 72
177 1 1 5 20 1 1 0101194100381 ABELARDO ESCOTO ACOSTA 1 1941/08/08 E01 1 Z00 0 0 200501001 200501001 79
180 1 1 1 1 1 1 0101195100368 AMALIA MARTINEZ 2 1951/04/12 H01 1 Z00 14 23 010101001 010101001 69
184 1 1 1 1 1 1 0101193300297 PEDRO DEL CARMEN MATUTE 1 1933/04/27 H01 1 Z00 15 46 010101001 010101001 87
186 1 1 1 3 1 1 0101194900249 HECTOR RENE FONCECA MARTINEZ 1 1949/03/29 H01 1 Z00 1641 154 030101001 030101001 71
188 1 1 1 1 1 1 0101192100132 RAUL PAGOADA OCAMPO 1 1921/04/27 E01 1 Z00 0 0 010101001 010101001 99
192 1 10 6 1 4 2 0101194000163 REINALDO ALONSO SALINAS 1 1940/03/30 E01 1 Z00 0 0 010602004 010610001 80
197 1 1 1 1 1 1 0101194300133 VINTON BENNETT HUNTER 1 1943/03/06 E01 1 Z00 0 0 010101001 010101001 78
198 1 1 1 1 1 1 0101194300135 LEONOLFO GARCIA 1 1943/03/22 H01 1 Z00 9 232 010101001 010101001 77
200 1 1 5 1 1 2 0101195300532 JORGE ALBERTO MARTINEZ BERNARDEZ 1 1953/05/27 H01 1 Z00 553 156 010502001 010501001 67
204 1 1 1 1 1 1 0101194600523 MARIA ROSALINA FUENTES MATUTE 2 1946/09/02 H01 1 Z00 9 62 010101001 010101001 74
206 1 1 8 2 1 2 0101195300103 CONCEPCION BRIZUELA 2 1953/01/21 H01 1 Z00 1274 194 020802001 020801001 68
214 1 1 4 20 1 1 0101195300686 DIANA MARGARITA VIDEA RAMIREZ 2 1953/07/15 H01 1 Z00 0 0 200401001 200401001 67
215 1 1 17 15 1 2 0101195000676 JAIME OMAR FERNANDEZ PADILLA 1 1950/09/21 H01 1 Z00 15047 2 151702001 151701001 70
217 1 1 2 1 1 2 0101195400235 TOMASA CARMINDA SANTOS ROSALES 2 1954/02/27 H01 1 Z00 380 257 010202001 010201001 67
218 1 1 1 1 1 1 0101195000044 GONZALO ANTONIO RIVERA 1 1950/01/09 H01 1 Z00 20 205 010101001 010101001 71
219 1 1 1 1 1 1 0101195100456 MIGUEL ANTONIO MACEDO NICKOLS 1 1951/05/10 H01 1 Z00 13 222 010101001 010101001 69
221 1 1 1 1 1 1 0101195300829 ROSA MARIA MATUTE ANDINO 2 1953/08/20 H01 1 Z00 15 48 010101001 010101001 67
225 1 1 1 1 1 1 0101195400978 MONALI BODEN 2 1954/09/26 H01 1 Z00 3 338 010101001 010101001 66
226 1 1 1 1 1 1 0101195400800 IDA MARINA DE LA CRUZ DURON ELVIR 2 1954/08/11 H01 1 Z00 7 239 010101001 010101001 66
227 1 1 1 1 1 1 0101194400377 TELMA ELIZABETH FLORES CERRATO 2 1944/08/18 H01 1 Z00 8 294 010101001 010101001 76
229 1 1 1 1 1 1 0101195300156 OLGA SABINA GARCIA REYES 2 1953/02/02 H01 1 Z00 9 352 010101001 010101001 68
230 1 1 16 8 1 2 0101193900061 ARMANDO CARDONA VALDEZ 1 1939/02/08 E01 1 Z00 0 0 081602001 081601001 82
231 1 1 1 1 1 1 0101195100482 HUMBERTO RUBEN SANCHEZ MEJIA 1 1951/05/15 H01 1 Z00 22 117 010101001 010101001 69


4 Ahora calculamos la cantidad de personas que tengan 90 años por producto cruz:

a <- tabla_grande$clave_vot
b <- tabla_grande$clave_pob
c <- tabla_grande$edades
ggg <- aggregate(tabla_grande, list(a,b, c == 90),length)
ggg <- filter(ggg, ggg$Group.3 == TRUE)
ggg$clave <- paste(ggg$Group.1,ggg$Group.2, sep="")
ggg <- ggg[,-c(3:23)]
names(ggg)[1] <- "local_votacion"
names(ggg)[2] <- "poblado"
names(ggg)[3] <- "cantidad por edad"
names(ggg)[4] <- "clave"
ggg <- ggg[,c(1,2,4,3)]
nrow(ggg)
## [1] 95

Vemos que solamente 95 registros del producto cruz contienen personas de 90 años.

b_444 <- head(ggg,100)
kbl(b_444) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
local_votacion poblado clave cantidad por edad
010101001 010101001 010101001010101001 5
010101001 010101002 010101001010101002 1
010101001 010101003 010101001010101003 2
010101061 010101004 010101061010101004 3
010101006 010101006 010101006010101006 3
010101007 010101007 010101007010101007 2
010101022 010101010 010101022010101010 2
010101022 010101014 010101022010101014 1
010101008 010101015 010101008010101015 4
010101015 010101016 010101015010101016 2
010101056 010101017 010101056010101017 1
010101016 010101019 010101016010101019 1
010101019 010101023 010101019010101023 4
010101020 010101024 010101020010101024 2
010101021 010101025 010101021010101025 3
010101022 010101026 010101022010101026 2
010101023 010101027 010101023010101027 1
010101024 010101028 010101024010101028 1
010101026 010101032 010101026010101032 2
010101036 010101033 010101036010101033 1
010101028 010101034 010101028010101034 1
010101029 010101037 010101029010101037 1
010101033 010101046 010101033010101046 3
010101036 010101056 010101036010101056 1
010101040 010101065 010101040010101065 1
010101042 010101079 010101042010101079 1
010101060 010101082 010101060010101082 1
010101033 010101129 010101033010101129 1
010102003 010104001 010102003010104001 4
010102009 010107001 010102009010107001 1
010102005 010108001 010102005010108001 1
010102007 010116001 010102007010116001 2
010102008 010117001 010102008010117001 4
010102010 010121001 010102010010121001 1
010202005 010210001 010202005010210001 1
010202009 010211001 010202009010211001 1
010202012 010212001 010202012010212001 1
010402001 010401001 010402001010401001 1
010502007 010514001 010502007010514001 1
010602001 010601001 010602001010601001 1
010602004 010610001 010602004010610001 1
010701007 010701016 010701007010701016 1
010701007 010701017 010701007010701017 1
010701012 010701038 010701012010701038 1
010802010 010825001 010802010010825001 1
020101002 020101002 020101002020101002 1
020202001 020218001 020202001020218001 1
020502005 020511001 020502005020511001 1
050101010 050101014 050101010050101014 1
050101013 050101027 050101013050101027 1
050101016 050101040 050101016050101040 1
050101067 050102037 050101067050102037 1
050101067 050102040 050101067050102040 1
050101083 050102065 050101083050102065 1
050101089 050103010 050101089050103010 1
050101095 050103013 050101095050103013 1
050101109 050103037 050101109050103037 1
050101119 050104004 050101119050104004 1
050101130 050104020 050101130050104020 1
050101130 050104033 050101130050104033 1
050101180 050104084 050101180050104084 1
050201032 050201092 050201032050201092 1
050601012 050601026 050601012050601026 1
050601029 050601040 050601029050601040 1
050601022 050601041 050601022050601041 1
051101013 051113029 051101013051113029 1
060101032 060101078 060101032060101078 1
080101014 080101030 080101014080101030 1
080101079 080101100 080101079080101100 1
080101195 080102029 080101195080102029 1
080101193 080102045 080101193080102045 1
080101202 080102059 080101202080102059 1
080101251 080103013 080101251080103013 1
080101253 080103016 080101253080103016 1
080101319 080103116 080101319080103116 1
080101379 080103184 080101379080103184 1
080101383 080103190 080101383080103190 1
080101392 080103203 080101392080103203 1
080101394 080103204 080101394080103204 1
080101490 080104021 080101490080104021 1
080101421 080105009 080101421080105009 1
080101421 080105026 080101421080105026 1
080101452 080105067 080101452080105067 1
080102048 080115002 080102048080115002 1
080102064 080138001 080102064080138001 1
080101008 080181009 080101008080181009 1
080101061 080181010 080101061080181010 1
080101012 080181011 080101012080181011 2
081702006 081706001 081702006081706001 1
110102002 110105008 110102002110105008 1
110102006 110108005 110102006110108005 1
151802005 151806001 151802005151806001 1
180402024 180440001 180402024180440001 1
180702018 180727001 180702018180727001 2
180702031 180752001 180702031180752001 1


Generalización de la carga de cantidad de personas por edad en cada producto cruz.

Hagamos la prueba para 90, 91 y 92 anios:

Leamos nuestra tabla central censal con fk, Son 10000 registros; despleguemos los primeros 100:

tabla_grande <- readRDS("../../DataScience/rds_y_codigos_elecciones_Honduras/tabla_madre.rds")
tabla_grandeb_100 <- tabla_grande[1:100,]
kbl(tabla_grandeb_100) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob
1 1 1 1 1 1 0101190600010 MARIA URBANA GOMEZ URBINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100326 ANGEL GUIDO MONTES DE OCA MEDINA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190800106 LUCILA LUCILA FLORES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300346 OLGA ESPERANZA LOPEZ CERRANO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101190900050 MARIA VICTORIANA ARZU AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200073 GRACIELA GRACIELA RIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192700005 VICTOR ROBERTO TURCIOS NOLASCO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100126 FAUSTINO FAUSTINO CRUZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191100128 EDUARDO EDUARDO FUNES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200092 ERNESTO ERNESTO CRESPO MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000019 BENJAMIN BENJAMIN BLANCO PANIAGUA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200127 RAFAEL RAFAEL GALINDO REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200170 GRISELDA GRISELDA RUBI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191200174 DOLORES DOLORES ARMIJO ESCOBAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000069 HECTOR EDMUNDO ALONZO RIVERA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 H01 1 Z00 13 318 010101001 010101001
1 1 1 1 1 1 0101192100084 AMINDA AMINDA MARTINEZ SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191300055 JOSEFINA JOSEFINA VALDES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400041 NORMA DAGMA VIJIL HAYNS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101192000143 EUSTAQUIA EUSTAQUIA CAYETANO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000144 ANGEL VERO MATUTE CANIZALES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000149 JUSTINO JUSTINO VARELA VARELA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191300161 CORNELIO CORNELIO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000158 SIMEON SIMEON BETANCOURT MATUTE 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100426 ADELMO ADELMO ANARIBA SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400038 MARIA ISABEL PEREIRA CORDOVA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000175 JOSE MARIA ILIAS TURCIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400067 VICTORIA VICTORIA CASTILLO SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400090 FELIO MARIO CASTILLO ANTUNEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700086 MANUEL MANUEL MEJIA FLORES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000202 PATROCINIO PATROCINIO DIEGO FERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192000205 RUFUS SINFORD FRASER GREY 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900068 ETNA AMALIA MONCADA MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400207 NICOLASA NICOLASA REYES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191400210 NEMESIA NEMESIA CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500022 CANUTO CANUTO CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200248 RODOLFO AUGUSTO CASTAÑEDA HOWELL 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500086 DELIA DEL CARMEN ZELAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100316 FILENA AURELIA ROSALES LAMOT 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500100 ESTER ESTER ALFONSO RUIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500107 GRACIELA RAMONA PERALTA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100040 JOSE FERNANDO GONZALEZ SIERRA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400168 ENRIQUE JULIAN PIZZATI FIALLOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100009 ELVIA LEONILA OCAMPO BORJAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200304 CELEDON CELEDON MORALES SOTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900113 CESAR AUGUSTO PIZZATTI MONCADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400177 ONDINA ONDINA ROMERO SANTAMARIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 H01 1 Z00 7 324 010101001 010101001
1 1 1 1 1 1 0101192100031 FRANCISCO FRANCISCO FIGUEROA SALGADO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191500215 HECTOR RAUL PIZZATI GUTIERREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000045 VIRGILIO VIRGILIO GAITAN MENDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600025 FEDERICO FEDERICO HAYES CONNOR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600033 LIDIA LIDIA DECUIR ALCANTARA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193100428 NEGIL NEGIL KAWAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300012 TOMASA TOMASA MOLINA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500247 SERGIA SERGIA EUCEDA FUNEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191600093 ALBERTO RAMON PANAYOTE MAOMAR 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800166 SANTIAGO SANTIAGO CAYETANO ZAPATA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000398 MARIA VIRGINIA SEGURA GARCIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100100 EADISON EADISON STEWART STEWART 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100110 VICENTA VICENTA DAVID BONILLA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500032 DELMA AURORA BANEGAS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800160 FAUSTINO FAUSTINO GUITY LALI 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500037 CARLOS FELIX FERRERA DIAZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300059 JUAN RAMON LOBO LOBO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700017 OLIVIA OLIVIA HERNANDEZ CALDERON 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700051 JOSE FELIX SOSA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100149 TRINIDAD TRINIDAD BUELTO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800183 OSCAR ARTURO COLINDRES ACOSTA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101192900197 JOSE MANUEL REYES MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400108 MARIA MAGDALENA VELA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700119 JUANA JUANA CHAVEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192100179 ZOILA DE JESUS HERNANDEZ LOPEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300097 ENCARNACION ENCARNACION FERNANDEZ AMAYA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 H01 1 Z00 24 69 010101001 010101001
1 1 1 1 1 1 0101192300315 RAUL RAUL CALIX DAVILA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192200043 JUAN BLAS DIAS SOLIZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800363 ANA LUCILA MEDINA ROSALES 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192600027 PEDRO ARTURO PEREA CARCAMO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800377 CARLOS CARLOS LOZANO MELENDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700209 ABELINA ABELINA MATUTE HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191700221 FRANCISCO FRANCISCO PAZ MEJIA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192900231 FLORENTINO FLORENTINO NUÑEZ MARTINEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 E01 1 Z00 0 0 010101001 010101001
1 1 1 1 1 1 0101193100336 ALBERTO ALBERTO PAGOAGA DIAZ 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101193100199 ISIDRO WITY MARTINEZ 1 1931/05/15 E01 1 Z00 0 0 010102003 010104001
1 1 1 1 1 1 0101192100247 FRANCISCO BELIZARIO RIOS 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800045 IGNACIO IGNACIO MEJIA EUSEDA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192700009 EFRAIN EFRAIN CARDONA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300185 RAFAEL ANTONIO PINTO DIAZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101193000310 RAUL RAUL SANCHEZ RECARTE 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800112 EDUARDO FRANCISCO BOBES TEJADA 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800132 SALOME SALOME SUAZO CHAVEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101191800136 JUAN JUAN CHAVEZ RAMIREZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192500244 OTILIA OTILIA HERNANDEZ 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192300251 DANIEL ISIDRO RAMIREZ VILLALOBO 0 E01 0 0 0 010101001 010101001
1 1 1 1 1 1 0101192400036 QUADE MUSPHEY NELSON STEVENSON 0 E01 0 0 0 010101001 010101001
1 4 1 1 3 2 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 H01 1 Z00 331 163 010102003 010104001

Eliminemos los registros que no poseen edad y generemos una nueva columna llamada edad por registro. Veamos la cantidad de registros:

tabla_grande <- tabla_grande[!(tabla_grande$FECHA_NACIMIENTO == ""),]
diadehoy <- Sys.Date()
tabla_grande$edad <- age_calc(dob = as.Date(tabla_grande$FECHA_NACIMIENTO), enddate = diadehoy, units = "years")
tabla_grande$edad <- trunc(tabla_grande$edad)
nrow(tabla_grande)
## [1] 800


Recordemos que esta tabla es la general, la que despliega informacion individuo a individuo:

kbl(tabla_grande) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO_DOMICILIO CODIGO_DEPARTAMENTO_DOMICILIO CODIGO_SECTOR_ELECTORAL CODIGO_AREA NUMERO_IDENTIDAD PRIMER_NOMBRE SEGUNDO_NOMBRE PRIMER_APELLIDO SEGUNDO_APELLIDO CODIGO_SEXO FECHA_NACIMIENTO CODIGO_HABIL_INHABIL CODIGO_CENTRO_VOTACION CODIGO_ESTADO_TARJETA NUMERO_MESA NUMERO_LINEA clave_vot clave_pob edad
16 1 1 1 1 1 1 0101192200104 MARIA ANTONIA MARADIAGA MATUTE 2 1922/04/22 H01 1 Z00 13 318 010101001 010101001 98
20 1 1 1 1 1 1 0101192000131 WILLEL JHONSON CONOR 2 1920/10/11 E01 1 Z00 0 0 010101001 010101001 100
49 1 1 1 1 1 1 0101192400181 IRMA EXCILVIA ELVIR ROBERTSON 2 1924/05/04 H01 1 Z00 7 324 010101001 010101001 96
71 1 1 1 1 1 1 0101192100352 ANGEL DARIO CARDONA ESCOBAR 1 1921/12/28 E01 1 Z00 0 0 010101001 010101001 99
77 1 1 1 1 1 1 0101193000375 ROY LLEWELLYN GILBERT USHER CARTER 1 1930/04/26 H01 1 Z00 24 69 010101001 010101001 90
86 1 1 1 1 1 1 0101192800255 JUAN DE LA CRUZ REYES ELIAS 1 1928/07/09 E01 1 Z00 0 0 010101001 010101001 92
88 1 4 1 1 3 2 0101193100199 ISIDRO WITY MARTINEZ 1 1931/05/15 E01 1 Z00 0 0 010102003 010104001 89
100 1 4 1 1 3 2 0101191600134 PATRICIA FERNANDEZ LOPEZ 2 1916/03/17 H01 1 Z00 331 163 010102003 010104001 104
107 1 1 1 1 1 1 0101193000087 RICARDO ARDON 1 1930/02/04 H01 1 Z00 2 114 010101001 010101001 91
112 1 1 1 1 1 1 0101192500144 MARIA DEL CARMEN AGUILAR MEJIA 2 1925/06/10 H01 1 Z00 1 72 010101001 010101001 95
114 1 2 1 11 6 2 0101192900108 LUVIA AMINTA BODDEN ALLEN 2 1929/08/10 H01 1 Z00 12590 303 110102006 110102001 91
115 1 1 1 1 1 1 0101193000545 ANGELA DIAZ 2 1930/08/01 H01 1 Z00 7 77 010101001 010101001 90
116 1 1 1 1 1 1 0101191900063 DARWIN GEOVANNY URVINA RODRIGUEZ 2 1984/12/31 H01 1 I10 24 68 010101001 010101001 36
123 1 1 1 1 1 1 0101193000167 LUIS AURELIO PAZ SALGADO 1 1930/09/25 E01 1 Z00 0 0 010101001 010101001 90
125 1 1 1 1 1 1 0101192600035 JOYCE HELLEN STEVENSON BOMAN 2 1926/04/03 H01 1 Z00 23 109 010101001 010101001 94
128 1 3 2 11 2 2 0101193100230 ROSA LINDA JUAREZ MUNGUIA 2 1931/06/16 H01 1 Z00 12608 270 110202002 110203001 89
137 1 1 1 1 1 1 0101193100033 LIDIA ESPINAL TURCIOS 2 1931/01/18 E01 1 Z00 0 0 010101001 010101001 90
143 1 1 1 1 1 1 0101193100253 CONCEPCION JIMENEZ COOPER 2 1931/07/06 H01 1 Z00 12 121 010101001 010101001 89
144 1 1 1 1 1 1 0101192300262 JULIO CESAR SALINAS 1 1923/08/25 H01 1 Z00 22 34 010101001 010101001 97
145 1 1 1 1 1 1 0101192000155 ROBERTO ORELLANA 1 1920/09/28 H01 1 Z00 18 58 010101001 010101001 100
159 1 1 1 1 1 1 0101193100013 ANGEL EDUARDO MEZA MATUTE 1 1931/01/05 E01 1 Z00 0 0 010101001 010101001 90
160 1 1 4 11 1 2 0101192500124 ZOILA ESPERANZA OLIN 2 1925/05/27 E01 1 Z00 0 0 110402001 110401001 95
161 1 1 11 6 1 2 0101192200154 HAYDA MEJIA MUÑOZ 2 1922/06/14 H01 1 Z00 7431 298 061102001 061101001 98
162 1 1 5 2 1 2 0101192500118 CONCEPCION CALIX 1 1925/05/23 H01 1 Z00 1176 36 020502001 020501001 95
168 1 10 6 1 4 2 0101193000174 ANGELA ZUNIGA LANZA 2 1930/10/02 E01 1 Z00 0 0 010602004 010610001 90
175 1 12 1 1 6 2 0101192800215 ANTONIA CARDOZA PERALTA 2 1928/06/12 H01 1 Z00 342 77 010102006 010112001 92
176 1 1 6 1 1 2 0101192100316 TIMOTEA MARTINEZ MELENDEZ 2 1921/11/20 H01 1 Z00 622 285 010602001 010601001 99
181 1 4 1 1 3 2 0101191300101 BASILIO VELASQUEZ 1 1913/06/14 E01 1 Z00 0 0 010102003 010104001 107
182 1 1 6 1 1 2 0101192500181 ANA LAURA GAVARRETE 2 1925/07/26 H01 1 Z00 621 115 010602001 010601001 95
184 1 1 6 1 1 2 0101193000156 AMPARO MATUTE DEL ARCA 2 1930/09/13 H01 1 Z00 622 336 010602001 010601001 90
188 1 1 1 1 1 1 0101192100132 RAUL PAGOADA OCAMPO 1 1921/04/27 E01 1 Z00 0 0 010101001 010101001 99
190 1 1 1 1 1 1 0101192300069 MANUEL ARTURO TROCHEZ GUTIERREZ 1 1923/02/25 H01 1 Z00 23 328 010101001 010101001 98
191 1 1 1 1 1 1 0101192800021 JOSE EUGENIO PAVON 1 1928/01/01 H01 1 Z00 19 13 010101001 010101001 93
192 1 1 2 1 1 2 0101192100324 MARIA CONCEPCION NUÑEZ MIDENCE 2 1921/12/06 E01 1 Z00 0 0 010202001 010201001 99
193 1 1 1 1 1 1 0101192900230 NICOLASA GIRAUD RIVERA 2 1929/11/09 E01 1 Z00 0 0 010101001 010101001 91
194 1 1 2 18 1 2 0101192200247 JOAQUIN MARTINEZ CACERES 1 1922/09/21 E01 1 Z00 0 0 180202001 180201001 98
199 1 1 3 11 1 2 0101191500096 IRENE REBEKAH HEATH 2 1915/05/21 H01 1 Z00 12618 234 110302001 110301001 105
200 1 1 8 2 1 2 0101192200067 WOODROW WILSON PATTERSON CONNOR 1 1922/05/15 H01 1 Z00 1288 193 020802001 020801001 98
201 1 25 4 1 14 2 0101192200102 SANTOS LICONA 1 1922/04/13 H01 1 Z00 502 51 010402014 010425001 98
202 1 4 1 1 3 2 0101191300141 DOMINGA SOLORZANO 2 1913/08/04 H01 1 Z00 336 45 010102003 010104001 107
208 1 1 1 1 1 1 0101192900112 EMILIA AVILA ESCOTO 2 1929/08/12 H01 1 Z00 2 247 010101001 010101001 91
209 1 17 1 1 8 2 0101191900217 MAXIMA LALIN VELASQUEZ 2 1919/11/19 H01 1 Z00 350 49 010102008 010117001 101
210 1 1 1 1 1 1 0101193000320 ARGENTINA RUIZ MAIRENA 2 1930/03/01 E01 1 Z00 0 0 010101001 010101001 91
212 1 4 1 1 3 2 0101193100114 MARINA SANCHEZ RODRIGUEZ 2 1931/05/03 H01 1 Z00 336 4 010102003 010104001 89
213 1 4 1 1 3 2 0101191800218 CANDIDO AMAYA 1 1918/10/03 E01 1 Z00 0 0 010102003 010104001 102
214 1 4 1 1 3 2 0101192800235 PAULINA FERNANDEZ LOPEZ 2 1928/06/22 E01 1 Z00 0 0 010102003 010104001 92
215 1 17 1 1 8 2 0101192600007 FRANCISCA LOPEZ GUITY 2 1926/03/09 E01 1 Z00 0 0 010102008 010117001 95
218 1 2 1 11 6 2 0101192900320 ESMERALDA LUELLA PRICE PRINCE 2 1929/02/24 H01 1 Z00 12595 333 110102006 110102001 92
219 1 17 1 1 8 2 0101191800279 JUSTA REYES ZELAYA 2 1918/07/19 H01 1 Z00 352 162 010102008 010117001 102
220 1 1 1 5 1 1 0101192300007 DANIEL ADELELMO CHISA ZAPATA 1 1923/01/03 E01 1 Z00 0 0 050101001 050101001 98
221 1 17 1 1 8 2 0101192800067 JULIO CHAMORRO 1 1928/02/06 H01 1 Z00 348 134 010102008 010117001 93
222 1 1 1 11 1 1 0101191800161 JUAN ANTONIO CACERES CALIX 1 1918/07/19 H01 1 Z00 12523 36 110101001 110101001 102
223 1 18 2 2 1 2 0101193000290 CONCEPCION VAQUEDANO GOMEZ 2 1930/12/09 H01 1 Z00 1080 237 020202001 020218001 90
225 1 1 1 11 1 1 0101192900151 MANFORD ALPHONSO GROGAN GROGAN 1 1929/09/08 H01 1 Z00 12529 172 110101001 110101001 91
233 1 2 1 11 6 2 0101192500117 INDALECIO CALIX 1 1925/05/23 H01 1 Z00 12591 116 110102006 110102001 95
235 1 21 1 1 10 2 0101192400201 MARIA DEL PILAR FIALLOS MARTINEZ 2 1924/12/06 E01 1 Z00 0 0 010102010 010121001 96
236 1 2 1 11 6 2 0101191500142 MAZEY INORA BELCARRIS BODDEN 2 1915/09/10 H01 1 Z00 12590 256 110102006 110102001 105
238 1 21 4 1 11 2 0101192300132 ALEJANDRA ARANDA GUITY 2 1923/04/24 H01 1 Z00 491 30 010402011 010421001 97
240 1 25 8 1 10 2 0101193000215 VIRGINIA ESPINOZA 2 1930/10/29 H01 1 Z00 927 67 010802010 010825001 90
241 1 17 1 1 8 2 0101193000383 BENITA GARCIA JAIME 1 1930/05/08 H01 1 Z00 349 90 010102008 010117001 90
244 1 1 1 5 1 1 0101192900264 ONEIDA CONCEPCION INTERIANO ZEPEDA 2 1929/12/08 E01 1 Z00 0 0 050101001 050101001 91
245 1 27 8 1 11 2 0101193100250 ESTELA MEJIA ALDANA 2 1931/07/02 E01 1 Z00 0 0 010802011 010827001 89
246 1 2 9 5 13 2 0101192800117 OSCAR ORDOÐEZ 1 1928/03/17 E01 1 Z00 0 0 050902013 050902001 92
248 1 29 7 18 20 2 0101192800340 ALBINA CARIAS RUBI 2 1928/09/28 H01 1 Z00 17789 313 180702020 180729001 92
249 1 29 2 5 19 2 0101193000008 ADELA CARRANZA VARGAS 2 1930/01/01 E01 1 Z00 0 0 050202019 050229001 91
252 1 40 4 18 24 2 0101193000147 OLGA MARINA RUIZ 2 1930/08/10 H01 1 Z00 17497 251 180402024 180440001 90
253 1 44 1 8 44 2 0101192100228 LUIS RIVERA 1 1921/08/18 H01 1 Z00 10932 247 080102044 080144001 99
254 1 44 7 1 27 2 0101193100415 ISABEL PEREZ 2 1931/10/11 H01 1 Z00 796 145 010702027 010744001 89
255 1 50 7 18 29 2 0101191300177 ELOISA MC COY 2 1913/10/12 E01 1 Z00 0 0 180702029 180750001 107
258 1 60 7 18 36 2 0101193100274 CONSTANTINO FERNANDEZ 1 1931/07/16 E01 1 Z00 0 0 180702036 180760001 89
259 1 63 23 15 15 2 0101192600024 JOSE RAUL AGUILAR SARMIENTO 1 1926/03/30 E01 1 Z00 0 0 152302015 152363001 94
260 1 1 3 20 1 1 0101192800341 MAURICIO ALVARO ALONSO MARTINEZ 1 1928/09/22 H01 1 Z00 0 0 200301001 200301001 92
261 1 1 1 1 1 1 0101192500006 SADAT ENRIQUETA VISQUERRA 2 1925/02/20 H01 1 Z00 25 63 010101001 010101001 96
262 1 1 1 1 1 1 0101193100241 AGUSTO MEJIA 1 1931/06/20 H01 1 Z00 15 235 010101001 010101001 89
267 1 1 8 15 1 2 0101192900314 PAULA MENCIAS HERNANDEZ 2 1929/06/03 H01 1 Z00 14826 364 150802001 150801001 91
268 1 1 1 15 1 1 0101193100159 ELVIA FERRERA RODRIGUEZ 2 1931/04/17 H01 1 Z00 14163 238 150101001 150101001 89
273 1 7 1 1 9 2 0101193100023 FERMINA MARTINEZ CABALLERO 2 1931/01/04 H01 1 Z00 355 158 010102009 010107001 90
274 1 1 3 20 1 1 0101192400188 ADELMO V AVILES CHAVEZ 1 1924/11/06 H01 1 Z00 0 0 200301001 200301001 96
275 1 8 2 1 4 2 0101192100111 MARIA FRANCISCA HERNANDEZ 2 1921/04/02 E01 1 Z00 0 0 010202004 010208001 99
277 1 1 4 1 1 2 0101192100260 MARIA BRIJIDA RIVERA NAVARRO 2 1921/09/18 H01 1 Z00 468 223 010402001 010401001 99
278 1 8 3 2 4 2 0101192900206 MARCOS ROMERO CARCAMO 1 1929/10/25 H01 1 Z00 1114 227 020302004 020308001 91
279 1 8 2 1 4 2 0101193100338 MARIA ARGENTINA PIZZATTI MONCADA 2 1931/08/21 H01 1 Z00 394 307 010202004 010208001 89
280 1 17 1 1 8 2 0101193100425 MARIANA OSORIO RAMOS 2 1931/10/18 E01 1 Z00 0 0 010102008 010117001 89
281 1 24 3 1 6 2 0101192200235 SANTA ROSALIA GARCIA 2 1922/09/04 H01 1 Z00 427 45 010302006 010324001 98
282 1 17 1 1 8 2 0101192200099 JUSTINA LALIN CABALLERO 2 1922/04/13 H01 1 Z00 350 23 010102008 010117001 98
283 1 9 1 11 7 2 0101192500098 JEORGE MAC COY 1 1925/05/12 H01 1 Z00 12599 25 110102007 110109001 95
284 1 9 6 1 3 2 0101193100422 JOSE DE JESUS OBANDO RUIZ 1 1931/10/16 H01 1 Z00 629 263 010602003 010609001 89
285 1 10 6 1 4 2 0101191300102 ERASMO RAMOS 1 1913/06/14 H01 1 Z00 641 300 010602004 010610001 107
286 1 10 6 1 4 2 0101192900136 ROQUE DE JESUS GARCIA SANTOS 1 1929/08/31 H01 1 Z00 635 56 010602004 010610001 91
287 1 1 5 2 1 2 0101193100163 AURA LIDIA CABRERA MATUTE 2 1931/04/24 H01 1 Z00 1175 317 020502001 020501001 89
288 1 10 2 1 5 2 0101192500114 ANGEL RAMON RIVERA 1 1925/05/22 H01 1 Z00 404 79 010202005 010210001 95
289 1 17 1 1 8 2 0101192300313 EVARISTA OCAMPO 2 1923/10/26 H01 1 Z00 351 182 010102008 010117001 97
290 1 1 26 8 1 2 0101192300050 LUCILA CASTRO 2 1923/02/09 H01 1 Z00 11794 183 082602001 082601001 98
291 1 11 5 2 5 2 0101193100089 JULIA ALICIA RIVERA 2 1931/02/19 H01 1 Z00 1224 275 020502005 020511001 90
292 1 11 2 1 9 2 0101193000409 ELENA MAYEN 2 1930/05/24 E01 1 Z00 0 0 010202009 010211001 90
293 1 1 3 20 1 1 0101193000084 GLORIA FRANCISCA FUNES 2 1930/02/01 H01 1 Z00 0 0 200301001 200301001 91
294 1 1 5 1 1 2 0101191900022 GUSTAVO ZELAYA CANELAS 1 1919/01/31 H01 1 Z00 559 284 010502001 010501001 102
295 1 3 1 8 242 1 0101192200101 CARLOS ALBERTO UCLES MATUTE 1 1922/04/17 H01 1 Z00 9591 241 080101242 080103001 98
296 1 19 1 1 9 2 0101191700200 ENEMECIO CARCAMO VILLAFRANCA 1 1917/10/31 H01 1 Z00 354 135 010102009 010119001 103
297 1 12 1 1 6 2 0101191300041 VICTOR SOLIS 1 1913/02/18 E01 1 Z00 0 0 010102006 010112001 108
298 1 1 3 20 1 1 0101192200157 NORBERTA MARTINEZ 2 1922/06/13 E01 1 Z00 0 0 200301001 200301001 98
299 1 1 3 1 1 2 0101192000104 MARIA DEL CARMEN RAMIREZ VILLALOBO 2 1920/08/15 H01 1 Z00 419 79 010302001 010301001 100
300 1 1 4 1 1 2 0101191200097 MARIA CALDERINI GALINDO 2 1912/03/03 E01 1 Z00 0 0 010402001 010401001 109
301 1 13 5 2 13 2 0101193100306 JUSTA PASTORA RODRIGUEZ DUARTE 2 1931/08/09 H01 1 Z00 1241 171 020502013 020513001 89
302 1 14 5 1 7 2 0101192500119 GABRIEL FINO 1 1925/05/24 E01 1 Z00 0 0 010502007 010514001 95
304 1 1 1 11 1 1 0101191700164 JUANA CALIX QUEZADA 2 1917/08/23 H01 1 Z00 12523 81 110101001 110101001 103
305 1 4 1 1 3 2 0101193100371 DOMINGO GUITY CHAVEZ 1 1931/09/15 H01 1 Z00 332 165 010102003 010104001 89
306 1 4 1 8 4 2 0101192600003 ESTER HERMINIA BRICEÑO PEREIRA 2 1926/03/12 H01 1 Z00 10766 80 080102004 080104001 95
307 1 19 1 1 9 2 0101192000164 DIONISIA ORFILIA PERALTA ZUNIGA 2 1920/10/09 H01 1 Z00 356 68 010102009 010119001 100
308 1 1 16 15 1 2 0101192100221 MARIA ANTONIA SANTOS 2 1921/08/11 H01 1 Z00 15030 165 151602001 151601001 99
309 1 17 1 1 8 2 0101192300170 FULGENCIO ZELAYA 1 1923/05/28 H01 1 Z00 353 306 010102008 010117001 97
310 1 4 1 1 3 2 0101192700010 MACARIA GIL ARZU 2 1927/02/28 E01 1 Z00 0 0 010102003 010104001 94
311 1 4 1 1 3 2 0101191800157 CRESCENCIA LOPEZ GARCIA 2 1918/07/15 H01 1 Z00 333 126 010102003 010104001 102
312 1 16 1 1 7 2 0101193000017 SANTOS SABINO PAVON MARTINEZ 1 1930/12/30 H01 1 Z00 345 327 010102007 010116001 90
313 1 16 1 1 7 2 0101193100062 PEDRO GARCIA GOMEZ 1 1931/01/31 E01 1 Z00 0 0 010102007 010116001 90
314 1 21 1 1 10 2 0101193000238 RAMON MARTINEZ HERNANDEZ 1 1930/11/08 H01 1 Z00 358 242 010102010 010121001 90
315 1 4 1 1 3 2 0101192800258 ALBERTA CHAVEZ LALIN 2 1928/07/12 E01 1 Z00 0 0 010102003 010104001 92
316 1 17 1 1 8 2 0101193000175 MAURICIO MARTINEZ HERRERA 1 1930/09/22 H01 1 Z00 350 222 010102008 010117001 90
317 1 1 2 1 1 2 0101191500062 NELVIN MC KENLY SANTINE SANTINE 1 1915/04/12 H01 1 Z00 380 250 010202001 010201001 105
318 1 17 1 1 8 2 0101192900155 ROSALIA ZAPATA 2 1929/09/14 H01 1 Z00 353 285 010102008 010117001 91
319 1 1 8 2 1 2 0101192900209 ESMERALDA GALINDO BORJAS 2 1929/09/11 H01 1 Z00 1279 41 020802001 020801001 91
320 1 4 1 8 4 2 0101192900099 DELIA BRICEÑO PEREIRA 2 1929/07/28 H01 1 Z00 10766 78 080102004 080104001 91
321 1 17 1 1 8 2 0101192300338 ERNESTA VUELTO CHAMORRO 2 1923/11/07 H01 1 Z00 353 264 010102008 010117001 97
322 1 19 1 1 9 2 0101193000009 MARIA ESTELA DIAZ GARRIDO 2 1929/12/28 H01 1 Z00 354 185 010102009 010119001 91
323 1 17 1 1 8 2 0101193100202 JUAN FERNANDEZ LALI 1 1931/05/06 E01 1 Z00 0 0 010102008 010117001 89
324 1 4 1 1 3 2 0101191900019 PABLO BARRIOS CABALLERO 1 1919/01/27 E01 1 Z00 0 0 010102003 010104001 102
325 1 4 1 1 3 2 0101193100210 GERMAN ZAPATA 1 1931/05/28 H01 1 Z00 336 290 010102003 010104001 89
326 1 17 1 1 8 2 0101192700011 TOMAS ALONZO JAIME 1 1927/09/18 E01 1 Z00 0 0 010102008 010117001 93
327 1 4 1 1 3 2 0101192300079 EMERITA CAYETANO MARTINEZ 2 1923/03/03 H01 1 Z00 329 301 010102003 010104001 98
328 1 1 2 1 1 2 0101193100189 MARGARITA MINERVA MURILLO 2 1931/05/08 E01 1 Z00 0 0 010202001 010201001 89
329 1 17 1 1 8 2 0101192900225 ERNESTINA BLANDIN REYES 2 1929/11/08 H01 1 Z00 347 329 010102008 010117001 91
330 1 2 1 1 2 2 0101193000013 SANTOS EVANGELISTA MARTINEZ 1 1929/12/29 E01 1 Z00 0 0 010102002 010102001 91
331 1 1 7 18 1 1 0101191600092 MIRNA CORDELIA AVILA 2 1916/10/19 E01 1 Z00 0 0 180701001 180701001 104
332 1 4 1 1 3 2 0101191900190 LUCAS EVANGELISTO LOPEZ LOPEZ 1 1919/10/10 H01 1 Z00 333 132 010102003 010104001 101
333 1 17 1 1 8 2 0101191800043 JULIANA VUELTO CHAMORRO 2 1918/02/20 E01 1 Z00 0 0 010102008 010117001 103
334 1 17 1 1 8 2 0101193000386 BERNARDO SUAZO SOLORZANO 1 1930/05/09 H01 1 Z00 353 155 010102008 010117001 90
335 1 12 1 8 11 2 0101192800339 LEONARDO GALINDO CASTELLANOS 1 1928/09/24 H01 1 Z00 10787 308 080102011 080112001 92
336 1 6 4 1 28 2 0101192700056 JOSE FAUSTO VILLAFRANCA ALONZO 1 1927/10/02 H01 1 Z00 525 348 010402028 010406001 93
337 1 4 1 1 3 2 0101192600009 GREGORIA MENA CHAVEZ 2 1926/03/12 H01 1 Z00 334 46 010102003 010104001 95
338 1 1 1 11 1 1 0101192000092 LEONARDO HYLTON BODDEN 1 1920/08/14 E01 1 Z00 0 0 110101001 110101001 100
339 1 4 1 1 3 2 0101192100123 CRESENCIA ZAPATA MARTINEZ 2 1921/04/19 E01 1 Z00 0 0 010102003 010104001 99
340 1 13 1 1 12 2 0101192200070 PATRICIO GARCIA ELVIR 1 1922/03/17 H01 1 Z00 365 73 010102012 010113001 98
341 1 2 1 11 6 2 0101191800223 CARMEN ROSARIO PUERTO MAZIER 2 1918/10/03 E01 1 Z00 0 0 110102006 110102001 102
342 1 6 17 8 6 2 0101193000176 VICTOR MANUEL NARVAEZ BONILLA 1 1930/09/29 H01 1 Z00 11539 44 081702006 081706001 90
343 1 17 1 1 8 2 0101192400203 DAMACIA LALIN 2 1924/12/11 H01 1 Z00 350 10 010102008 010117001 96
344 1 18 1 1 4 2 0101193100413 ANGELA ROSALES HERNANDEZ 2 1931/10/12 H01 1 Z00 339 173 010102004 010118001 89
345 1 1 7 18 1 1 0101191800233 TOBIAS CRUZ PALMA 1 1918/10/21 E01 1 Z00 0 0 180701001 180701001 102
346 1 4 1 1 3 2 0101191900114 GREGORIA LOPEZ 2 1919/05/29 H01 1 Z00 333 86 010102003 010104001 101
347 1 6 18 15 5 2 0101193100060 ELIA IRMA BANEGAS FIGUEROA 2 1931/01/31 H01 1 Z00 15114 103 151802005 151806001 90
348 1 19 8 2 26 2 0101191900086 ARTURO BETANCURT MONCADA 1 1919/03/19 H01 1 Z00 1356 278 020802026 020819001 101
349 1 12 2 1 12 2 0101193000470 JOSE MANUEL GALINDO CASTRO 1 1930/07/06 E01 1 Z00 0 0 010202012 010212001 90
350 1 21 1 1 10 2 0101192500090 ROGELIO PERALTA ZUNIGA 1 1925/05/06 H01 1 Z00 359 78 010102010 010121001 95
351 1 21 1 1 10 2 0101192200057 FELIPA CESARINA PUERTO 2 1922/02/28 H01 1 Z00 359 133 010102010 010121001 99
352 1 1 23 8 1 2 0101192900154 IRMA OFELIA GIRON ROMERO 2 1929/09/14 H01 1 Z00 11666 267 082302001 082301001 91
354 1 85 1 5 187 1 0101192100185 LEONOR SAYBE MEJIA 2 1921/07/01 E01 1 Z00 0 0 050101187 050185001 99
355 1 4 9 2 5 2 0101192100039 LASTENIA CERON CRUZ 2 1921/01/30 E01 1 Z00 0 0 020902005 020904001 100
356 1 29 4 18 18 2 0101192300133 JACINTO MATUTE PERDOMO 1 1923/04/29 H01 1 Z00 17453 117 180402018 180429001 97
357 1 4 1 1 3 2 0101192200103 CRECENCIA MARTINEZ GUITY 2 1922/04/19 H01 1 Z00 333 302 010102003 010104001 98
358 1 4 1 1 3 2 0101193000248 SIDNCY VALENTINE GENTLE BODDEN 1 1930/11/16 H01 1 Z00 331 370 010102003 010104001 90
359 1 21 1 1 10 2 0101192500277 MARCOS AURELIO CARCAMO 1 1925/10/13 H01 1 Z00 357 164 010102010 010121001 95
360 1 4 1 1 3 2 0101193000462 ISABEL CAYETANO CUBAS 2 1930/07/02 H01 1 Z00 329 292 010102003 010104001 90
361 1 17 1 1 8 2 0101192800303 LAURA CASTILLO CAYETANO 2 1928/08/17 H01 1 Z00 348 69 010102008 010117001 92
362 1 4 1 1 3 2 0101192200089 BALBINA CHAVEZ 2 1922/03/21 E01 1 Z00 0 0 010102003 010104001 98
364 1 27 7 18 18 2 0101193000235 MAVYS JEFFRIES BROOKS 2 1930/11/10 H01 1 Z00 17784 210 180702018 180727001 90
365 1 27 7 18 18 2 0101192800076 ANGELA MARTIN ZUNIGA 2 1928/02/06 E01 1 Z00 0 0 180702018 180727001 93
366 1 12 1 1 6 2 0101191800221 DIONISIO RODRIGUEZ VAQUEDANO 1 1918/10/10 H01 1 Z00 343 174 010102006 010112001 102
367 1 5 1 2 5 2 0101192800213 GLORIA MALSEDA REYES REYES 2 1928/06/28 E01 1 Z00 0 0 020102005 020105001 92
368 1 5 1 11 2 2 0101192200238 CONSUELO ARJONIA MEJIA 2 1922/09/14 H01 1 Z00 12547 35 110102002 110105001 98
369 1 4 1 1 3 2 0101193100112 MARTIN SAN MARTIN CHAVEZ LALIN 1 1931/02/23 E01 1 Z00 0 0 010102003 010104001 90
370 1 1 4 1 1 2 0101191700057 VICTORIA OFELIA MARTINEZ ALONZO 2 1917/03/05 E01 1 Z00 0 0 010402001 010401001 104
371 1 31 8 2 18 2 0101192800372 AMELIA DE LA ARCA GIRON 2 1928/10/30 H01 1 Z00 1333 55 020802018 020831001 92
372 1 38 1 8 64 2 0101193000327 LUZ STELLA PIZZATI FIALLOS 2 1930/03/20 H01 1 Z00 10969 15 080102064 080138001 90
373 1 17 1 1 8 2 0101192800290 ROMAN MIRANDA 1 1928/08/14 H01 1 Z00 351 41 010102008 010117001 92
374 1 15 1 1 13 2 0101192300341 SANTOS ABEL BANEGAS CASTRO 1 1923/11/05 H01 1 Z00 366 39 010102013 010115001 97
375 1 6 4 1 28 2 0101192500194 JUSTO ROSALES ALONZO 1 1925/08/08 H01 1 Z00 525 171 010402028 010406001 95
376 1 4 1 1 3 2 0101192900010 CATARINO MARTINEZ GUITY 1 1929/04/23 H01 1 Z00 333 300 010102003 010104001 91
377 1 52 7 18 31 2 0101193000269 ANDRES ANTONIO GOMEZ GONZALES 1 1930/11/30 E01 1 Z00 0 0 180702031 180752001 90
378 1 57 7 1 33 2 0101192800098 CICLE ROBINSON BHADAIC ZAPSY 1 1928/03/09 H01 1 Z00 821 156 010702033 010757001 93
379 1 1 4 2 1 2 0101192900218 RAFAEL ANTONIO ORELLANA CASTRO 1 1929/11/07 H01 1 Z00 1140 187 020402001 020401001 91
380 1 17 1 1 8 2 0101193000399 CATALINO RAMIREZ CHAMORO 1 1930/05/18 H01 1 Z00 352 114 010102008 010117001 90
381 1 4 1 1 3 2 0101193000509 NASARIA FERNANDEZ LOPEZ 2 1930/07/28 H01 1 Z00 331 162 010102003 010104001 90
382 1 4 1 1 3 2 0101191400200 AURELIA FERNANDEZ 2 1914/12/02 E01 1 Z00 0 0 010102003 010104001 106
383 1 21 1 1 10 2 0101192200181 FABRICIO ANACLETO PERALTA ZUNIGA 1 1922/07/07 H01 1 Z00 359 77 010102010 010121001 98
384 1 6 4 1 28 2 0101192300245 ALFONSO VELASQUEZ MARTINEZ 1 1923/08/10 H01 1 Z00 525 335 010402028 010406001 97
385 1 6 5 2 2 2 0101192800097 ISABEL RODRIGUEZ ZUNIGA 2 1928/03/08 E01 1 Z00 0 0 020502002 020506001 93
386 1 1 4 20 1 1 0101192900210 ROSA CUBAS MILLA 2 1929/10/29 H01 1 Z00 0 0 200401001 200401001 91
387 1 21 1 1 10 2 0101192900224 SARA LUCILA MATUTE ALONSO 2 1929/11/10 H01 1 Z00 358 272 010102010 010121001 91
388 1 4 1 1 3 2 0101192300271 MARIA NATIVIDAD BARRIOS CABALLERO 2 1923/09/07 H01 1 Z00 328 363 010102003 010104001 97
389 1 14 5 1 7 2 0101193000223 SANTOS ROGELIO RODRIGUEZ ZERON 1 1930/11/01 H01 1 Z00 589 162 010502007 010514001 90
390 1 4 1 5 116 1 0101192800421 CONCEPCION SOLIS 1 1928/12/08 H01 1 Z00 3914 298 050101116 050104001 92
391 1 16 1 1 7 2 0101192100267 JERONIMA REYES 2 1921/09/30 H01 1 Z00 346 64 010102007 010116001 99
392 1 17 1 1 8 2 0101192000237 VICTORIA FERNANDEZ LALIN 2 1920/12/23 H01 1 Z00 348 332 010102008 010117001 100
393 1 4 1 1 3 2 0101192800360 LUCAS CHAVEZ CAYETANO 1 1928/10/18 H01 1 Z00 329 358 010102003 010104001 92
394 1 4 1 1 3 2 0101192100154 JUSTA GIL LOPEZ 2 1921/05/28 H01 1 Z00 332 6 010102003 010104001 99
395 1 3 2 2 13 2 0101192100122 MARIA DE LOS SANTOS OBANDO SANTOS 2 1921/04/14 H01 1 Z00 1102 45 020202013 020203001 99
396 1 10 2 1 5 2 0101193000260 JUAN DE LA CRUZ MENDOZA MARTINEZ 1 1930/11/24 H01 1 Z00 402 260 010202005 010210001 90
397 1 8 1 1 5 2 0101193100408 CLEOTILDE MARTINEZ NAJERA 2 1931/10/05 E01 1 Z00 0 0 010102005 010108001 89
398 1 8 1 1 5 2 0101193000406 JUAN FRANCISCO ROSTRAND CALIX 1 1930/05/24 E01 1 Z00 0 0 010102005 010108001 90
399 1 4 1 1 3 2 0101192900280 LAZARO RAMIREZ FERNANDEZ 1 1929/12/17 H01 1 Z00 335 25 010102003 010104001 91
400 1 27 7 18 18 2 0101193000502 ALFREDO MEDINA ROSALES 1 1930/07/23 H01 1 Z00 17785 34 180702018 180727001 90
401 1 17 1 1 8 2 0101193000189 DOLORES VUELTO GUITY 2 1970/10/05 H01 1 Z00 353 266 010102008 010117001 50
402 1 17 1 1 8 2 0101192100153 RITA MARTINEZ 2 1921/05/22 H01 1 I10 350 186 010102008 010117001 99
403 1 16 8 2 38 2 0101192800352 OSCAR OCAMPO MAYEN 1 1928/10/15 H01 1 Z00 1375 194 020802038 020816001 92
404 1 4 1 1 3 2 0101191900100 DOMINGA SOLORZANO 2 1919/05/13 H01 1 Z00 336 44 010102003 010104001 101
405 1 21 1 1 10 2 0101192400196 JOSE SANTOS CARCAMO 1 1924/11/21 H01 1 Z00 357 162 010102010 010121001 96
406 1 17 1 1 8 2 0101191700138 BASILIA RODRIGUEZ CASTRO 2 1917/07/04 H01 1 Z00 352 212 010102008 010117001 103
407 1 10 6 1 4 2 0101192800015 ISIDRA BARRIOS NIETO 2 1928/01/02 H01 1 Z00 631 156 010602004 010610001 93
408 1 28 3 1 16 2 0101192900260 GRACIELA DE JESUS ROSALES VALLADARES 2 1929/12/06 H01 1 Z00 448 162 010302016 010328001 91
409 1 16 1 1 7 2 0101192300096 SUSANA DE JESUS HERNANDEZ 2 1923/03/18 H01 1 Z00 344 342 010102007 010116001 97
410 1 16 1 1 7 2 0101192400199 JUAN DE LA CRUZ REYES 1 1924/12/08 H01 1 Z00 346 65 010102007 010116001 96
411 1 17 1 1 8 2 0101192000325 CATALINO GALVEZ MARTINEZ 1 1920/04/30 H01 1 Z00 349 34 010102008 010117001 100
412 1 17 1 1 8 2 0101192200252 HIPOLITA BUELTO MELENDEZ 2 1922/09/23 H01 1 Z00 347 344 010102008 010117001 98
413 1 17 1 1 8 2 0101193000041 LORENZO LALI GUITY 1 1930/01/08 H01 1 Z00 350 6 010102008 010117001 91
414 2 9 13 4 9 2 0101192900008 CORDELIA CLAROS 2 1929/03/14 H01 1 Z00 3265 280 041302009 041309002 91
415 2 83 1 5 86 1 0101191700171 RAQUEL REVECA ALFONSO RUIZ 2 1917/09/09 E01 1 Z00 0 0 050101086 050183002 103
416 2 5 1 8 406 1 0101193000028 ALBA AGUILAR MURILLO 2 1930/01/04 E01 1 Z00 0 0 080101406 080105002 91
417 2 1 1 1 1 1 0101193000459 POLICARPA AVILA CHAVEZ 2 1930/06/28 H01 1 Z00 2 245 010101001 010101002 90
418 2 15 1 8 48 2 0101193100081 GUILLERMO GUTIERRES 1 1931/02/10 H01 1 Z00 10940 134 080102048 080115002 90
419 2 1 3 11 9 2 0101192900070 JOSE MARCOS SANCHEZ 1 1929/06/18 E01 1 Z00 0 0 110302009 110301002 91
420 2 1 1 2 2 1 0101193000328 MATILDE SANTOS BLANCO 2 1930/03/15 H01 1 Z00 957 229 020101002 020101002 90
421 2 1 1 1 1 1 0101192800224 JOYCE URIANA YOUNG JONHSON 2 1928/06/11 H01 1 Z00 25 156 010101001 010101002 92
422 2 83 1 5 86 1 0101192900233 ROBERTO CASTILLO VELASQUEZ 1 1929/11/14 H01 1 Z00 3827 210 050101086 050183002 91
423 2 17 1 1 8 2 0101192900245 ARTURO RAMON CABRERA ZELAYA 1 1929/11/18 E01 1 Z00 0 0 010102008 010117002 91
424 2 1 1 1 1 1 0101192900127 LUIS ALBERTO MC BRIDE 1 1929/08/27 H01 1 Z00 15 136 010101001 010101002 91
425 2 85 1 5 187 1 0101192700027 JOSE ROBERTO GUILLEN BUCH 1 1927/11/22 H01 1 Z00 4235 373 050101187 050185002 93
426 3 8 1 2 16 2 0101192200031 FELIX TEODORO TURNER PAZ 1 1922/02/04 H01 1 Z00 1023 298 020102016 020108003 99
427 3 1 1 1 1 1 0101192800324 JOSE DOLORES CASTRO TROCHEZ 1 1928/09/06 E01 1 Z00 0 0 010101001 010101003 92
428 3 1 1 1 1 1 0101193000491 ANA ROSA JUAREZ VARELA 2 1930/07/25 H01 1 Z00 12 185 010101001 010101003 90
429 3 1 1 1 1 1 0101193000363 GROVER ATKINSON DALE BROOKS 1 1930/04/22 H01 1 Z00 7 9 010101001 010101003 90
430 3 1 1 1 1 1 0101192900064 SANTIAGO HERRERA 1 1929/06/10 E01 1 Z00 0 0 010101001 010101003 91
431 3 1 1 1 1 1 0101192100293 ENRIQUE GRAUGNARD GARCIA 1 1921/10/28 H01 1 Z00 10 233 010101001 010101003 99
432 3 1 1 1 1 1 0101191600115 HENRY STANLEY NEWMAN 1 1916/12/12 H01 1 Z00 23 104 010101001 010101003 104
433 3 7 1 5 260 1 0101192900253 RAMON ERASMO NAVARRO 1 1929/11/25 H01 1 Z00 4594 8 050101260 050107003 91
434 4 1 1 1 61 1 0101192500045 MELIDA ANTONIA CANACA 2 1925/04/06 H01 1 Z00 305 52 010101061 010101004 95
435 4 6 4 1 16 2 0101192300384 ADELA CALIX URBINA 2 1923/12/21 H01 1 Z00 505 77 010402016 010406004 97
436 4 5 9 5 3 2 0101192100212 SEOCADIA JULIANA CARDONA 2 1921/07/31 H01 1 Z00 5947 168 050902003 050905004 99
437 4 1 7 1 2 1 0101192800197 MARIA MAGDALENA TROCHEZ MATUTE 2 1928/05/28 H01 1 Z00 656 267 010701002 010701004 92
438 4 1 1 1 61 1 0101192500160 ENRIQUE ANTONIO TROCHES 1 1925/06/26 E01 1 Z00 0 0 010101061 010101004 95
439 4 1 1 1 61 1 0101192900287 FELIX MATUTE TURCIOS 1 1929/11/18 E01 1 Z00 0 0 010101061 010101004 91
440 4 1 1 1 61 1 0101193100433 RAFAEL MARADIAGA 1 1931/10/24 H01 1 Z00 309 150 010101061 010101004 89
441 4 1 1 1 61 1 0101192300280 ROGELIO MARQUINA MATUTE 1 1923/09/15 H01 1 Z00 309 187 010101061 010101004 97
442 4 1 1 1 61 1 0101193100354 HILDA CARCAMO CARVAJAL 2 1931/03/12 H01 1 Z00 305 100 010101061 010101004 90
443 4 5 1 11 6 2 0101192900102 FRANKLIN TUCKER EBANKS 1 1929/08/04 H01 1 Z00 12597 101 110102006 110105004 91
444 4 1 1 1 61 1 0101192300363 JASINTO ARISTIDES JIMENEZ COOPER 1 1923/11/30 H01 1 Z00 308 211 010101061 010101004 97
445 4 1 1 1 61 1 0101193100083 ANTONIO MEDINA 1 1931/02/14 E01 1 Z00 0 0 010101061 010101004 90
446 4 4 1 5 119 1 0101193000301 NELY ARGENTINA CORDOVA GUZMAN 2 1930/12/15 H01 1 Z00 3920 80 050101119 050104004 90
447 4 1 1 1 61 1 0101193000120 WELLEFIDO BENNETT HUNTER 1 1930/02/14 E01 1 Z00 0 0 010101061 010101004 91
448 4 1 2 1 8 2 0101193100331 ESTELA RIOS VELASQUEZ 2 1931/07/28 H01 1 Z00 410 86 010202008 010201004 89
449 4 1 1 1 61 1 0101192500025 ROSA MARGARITA JIMENEZ 2 1925/03/15 H01 1 Z00 308 207 010101061 010101004 95
450 4 1 1 1 61 1 0101193000512 JOSE EMILIO ROMERO MARTINEZ 1 1930/08/05 H01 1 Z00 313 259 010101061 010101004 90
451 4 1 1 1 61 1 0101193100293 REYNALDA DEL CARMEN AGUILAR MEJIA 2 1931/07/29 H01 1 Z00 303 46 010101061 010101004 89
452 4 1 1 1 61 1 0101192400084 CESAR REYES UCLES 1 1924/06/23 H01 1 Z00 313 15 010101061 010101004 96
453 4 1 1 1 61 1 0101192400070 ERNESTO DE JESUS MARTINEZ NAJERA 1 1924/02/06 E01 1 Z00 0 0 010101061 010101004 97
454 4 21 1 1 10 2 0101192900241 SALVADOR MARTIN PERALTA ZUNIGA 1 1929/11/17 H01 1 Z00 359 79 010102010 010121004 91
455 4 1 1 1 61 1 0101192400074 ANTONIA YOLANDA BRISEÑO PEREIRA 2 1924/06/13 E01 1 Z00 0 0 010101061 010101004 96
456 5 1 1 1 5 1 0101193100263 EVA DEL CARMEN BERTOT ESCOBAR 2 1931/06/28 H01 1 Z00 26 101 010101005 010101005 89
457 5 1 1 1 5 1 0101192100021 MARIA CONSUELO CHIESA ZAPATA 2 1921/01/11 E01 1 Z00 0 0 010101005 010101005 100
458 5 1 1 1 5 1 0101192900199 FRANCISCO ALBERTO MARTINEZ NAJERA 1 1929/10/21 H01 1 Z00 27 175 010101005 010101005 91
459 5 1 1 1 5 1 0101192300305 GILBERTO GONZALES GUIFARRO 1 1923/10/22 H01 1 Z00 27 19 010101005 010101005 97
460 5 1 1 1 5 1 0101193000021 FLABIA PEÑA GALINDO 2 1930/01/03 H01 1 Z00 28 41 010101005 010101005 91
461 5 1 1 1 5 1 0101191500164 ISABEL GRAUGNARD GARCIA 2 1915/10/08 H01 1 Z00 27 32 010101005 010101005 105
462 5 14 26 16 8 2 0101191900160 MARIA PINEDA AGUILAR 2 1919/08/16 H01 1 Z00 16253 156 162602008 162614005 101
463 5 1 1 1 5 1 0101191400155 ROSA EDITA MARTINEZ ROMERO 2 1914/09/16 E01 1 Z00 0 0 010101005 010101005 106
464 5 1 1 1 5 1 0101192900103 JULIA REINA CASTELLON 2 1929/08/06 H01 1 Z00 26 178 010101005 010101005 91
465 5 8 1 11 6 2 0101193100068 SILVIA VENOLA BODDEN ALLEN 2 1931/02/05 H01 1 Z00 12590 305 110102006 110108005 90
466 5 1 1 1 5 1 0101192300263 JULIETA MARIA ESTER CANELAS AGURCIA 2 1923/08/31 E01 1 Z00 0 0 010101005 010101005 97
467 5 1 1 1 5 1 0101192900128 OLGA CONSUELO CLOTER GONZALES 2 1929/08/22 H01 1 Z00 26 203 010101005 010101005 91
468 6 1 1 1 6 1 0101193000257 FELIX ANTONIO REYES CERRATO 1 1930/11/22 H01 1 Z00 32 18 010101006 010101006 90
469 6 1 1 1 6 1 0101192200038 MERCEDES BETANCOURT MONCADA 2 1921/06/23 H01 1 Z00 29 125 010101006 010101006 99
470 6 1 1 1 6 1 0101191400170 MARIA LUISA TABLADA 2 1914/10/14 E01 1 Z00 0 0 010101006 010101006 106
471 6 1 1 1 6 1 0101193100058 DOLORES SUSANA VALLE ZELAYA 2 1931/01/31 H01 1 Z00 32 245 010101006 010101006 90
472 6 1 1 1 6 1 0101192400103 ADOLFO MIRALDA NAVAS 1 1924/07/18 H01 1 Z00 31 125 010101006 010101006 96
473 6 7 7 1 3 2 0101191700233 GUADALUPE FIALLOS MARTINEZ 1 1917/12/02 E01 1 Z00 0 0 010702003 010707006 103
474 6 1 1 1 6 1 0101193000295 JUSTA LASTENIA PIZZATY MENCIA 2 1930/12/16 H01 1 Z00 31 285 010101006 010101006 90
475 6 1 1 1 6 1 0101192300024 MARIA DE JESUS RUIZ ZELAYA 2 1923/01/16 H01 1 Z00 32 94 010101006 010101006 98
476 6 1 1 1 6 1 0101192500301 LUCILA AMPARO BERNARDEZ GARCIA 2 1925/10/30 H01 1 Z00 29 122 010101006 010101006 95
477 6 1 1 1 6 1 0101192800415 MARTA ROSA PAVON LEIVA 2 1928/11/14 E01 1 Z00 0 0 010101006 010101006 92
478 6 1 1 1 6 1 0101193100391 RAMON ANTONIO LORENZANA 1 1931/09/21 H01 1 Z00 30 315 010101006 010101006 89
479 6 3 1 5 89 1 0101192800295 JOSE DAVID MATUTE COLINDRES 1 1928/08/11 E01 1 Z00 0 0 050101089 050103006 92
480 6 3 1 5 89 1 0101192800062 MELBA MARINA OSEGUERA 2 1928/02/04 H01 1 Z00 3841 216 050101089 050103006 93
481 6 1 1 1 6 1 0101193100377 MARIA CRUZ ARIAS SALINAS 2 1931/09/15 H01 1 Z00 29 72 010101006 010101006 89
482 6 1 1 1 6 1 0101192900078 MARIA DEL ROSARIO AZCONA DEL HOYO 2 1929/07/01 E01 1 Z00 0 0 010101006 010101006 91
483 6 1 1 1 6 1 0101192300218 RUTH ESTEL BURKE AGUILAR 2 1923/07/08 H01 1 Z00 29 148 010101006 010101006 97
484 6 1 1 1 6 1 0101192700074 ENMA JOSEFINA GODOY CASTILLO 2 1927/12/02 H01 1 Z00 30 159 010101006 010101006 93
485 6 3 1 5 89 1 0101193100051 ODET J. SAYBE CASSIS 2 1931/12/29 E01 1 Z00 0 0 050101089 050103006 89
486 6 1 1 1 6 1 0101192400174 LIDIA ISABEL GUERRERO ZELAYA 2 1924/09/26 H01 1 Z00 30 185 010101006 010101006 96
487 6 1 1 1 6 1 0101192900181 RICARDO IRIAS MADRID 1 1929/10/02 H01 1 Z00 30 259 010101006 010101006 91
488 7 1 1 1 7 1 0101192200254 PABLO EMILIO UGARTE ORTEGA 1 1922/09/28 H01 1 Z00 37 215 010101007 010101007 98
489 7 1 1 1 7 1 0101193100242 RUFORD JANFMRY BENETT GENTLE 1 1931/06/26 E01 1 Z00 0 0 010101007 010101007 89
490 7 1 1 1 7 1 0101193000059 LUIS VICENTE GUERRERO ALEGRIA 1 1930/01/13 H01 1 Z00 34 274 010101007 010101007 91
491 7 1 1 1 7 1 0101193100299 PAULA RODRIGUEZ ANDINO 2 1931/08/07 H01 1 Z00 36 321 010101007 010101007 89
492 7 1 1 1 7 1 0101192700007 FLAVIA CRISTINA ALCANTARA ACOSTA 2 1927/10/05 H01 1 Z00 33 18 010101007 010101007 93
493 7 1 1 1 7 1 0101192800163 ALFREDO RODRIGUEZ ESPINAL 1 1928/04/12 E01 1 Z00 0 0 010101007 010101007 92
494 7 1 1 1 7 1 0101192300355 RAUL PADILLA AQUINO 1 1923/11/27 H01 1 Z00 36 127 010101007 010101007 97
495 7 1 1 1 7 1 0101192100066 FELICITA PINEDA 2 1921/02/21 E01 1 Z00 0 0 010101007 010101007 100
496 7 1 1 1 7 1 0101191300154 CANDIDA AGUIRRE 2 1913/09/04 H01 1 Z00 33 17 010101007 010101007 107
497 7 1 1 1 7 1 0101192900051 PEDRO ENRIQUE GUZMAN VALLECILLO 1 1929/04/29 E01 1 Z00 0 0 010101007 010101007 91
498 7 1 1 1 7 1 0101192800120 LEANDRA MALTA PALMA 2 1928/03/18 H01 1 Z00 35 165 010101007 010101007 92
499 7 1 1 1 7 1 0101193000515 CAYETANA MALTA PALMA 2 1930/08/07 H01 1 Z00 35 164 010101007 010101007 90
500 7 1 1 1 7 1 0101193000068 VICENTE OCAMPO CRUZ 1 1930/11/22 E01 1 Z00 0 0 010101007 010101007 90
501 8 5 1 11 2 2 0101193100082 ROBERT ISIATI RIVERS BROOKS 1 1931/02/11 E01 1 Z00 0 0 110102002 110105008 90
502 8 3 1 8 248 1 0101191700224 MILENE FEREZ GALINDO 2 1917/12/06 E01 1 Z00 0 0 080101248 080103008 103
503 8 12 1 1 6 2 0101192400147 BARTOLOME LOBO ZUNIGA 1 1924/08/28 E01 1 Z00 0 0 010102006 010112008 96
504 8 81 24 8 2 1 0101192300053 FELIPE DE JESUS LANZA 1 1923/02/05 E01 1 Z00 0 0 082401002 082481008 98
505 8 2 1 5 43 1 0101191800277 FRANCISCO SIMON VALLEJO CHIRINOS 1 1918/10/08 E01 1 Z00 0 0 050101043 050102008 102
506 8 1 18 3 4 1 0101192900297 ZONIA MONCADA ROMERO 2 1929/12/03 E01 1 Z00 0 0 031801004 031801008 91
507 8 81 1 8 7 1 0101192600011 VIRGINIA CASTILLO MATUTE 2 1926/03/12 H01 1 Z00 8658 104 080101007 080181008 95
508 9 16 1 1 7 2 0101192000252 TROADIO FIALLOS MARTINEZ 1 1920/01/03 H01 1 Z00 344 243 010102007 010116009 101
509 9 1 1 1 8 1 0101193000104 EDNA FLORES SANTAMARIA 2 1930/02/04 H01 1 Z00 39 84 010101008 010101009 91
510 9 1 1 1 8 1 0101193100217 JOSE ARTURO CARDONA ANDRADE 1 1931/05/25 H01 1 Z00 38 190 010101008 010101009 89
511 9 1 1 1 8 1 0101191900118 JOAQUINA PINETT 2 1919/06/01 H01 1 Z00 40 352 010101008 010101009 101
512 9 1 1 1 8 1 0101192800142 SOFIA MENCIA DORGAN 2 1928/03/28 H01 1 Z00 40 151 010101008 010101009 92
513 9 1 1 1 8 1 0101193100207 IRMA NELA WHEELOCK FERIA 2 1931/05/24 H01 1 Z00 41 323 010101008 010101009 89
514 9 2 1 5 43 1 0101191600232 BERNARDA CARIBAY LINARES 2 1916/01/26 E01 1 Z00 0 0 050101043 050102009 105
515 9 5 1 8 421 1 0101193000219 JOSE AROLDO ARMIJO FERNANDEZ 1 1930/10/26 E01 1 Z00 0 0 080101421 080105009 90
516 9 81 1 8 8 1 0101193100007 ALICIA LOBO GARCIA 2 1931/01/03 H01 1 Z00 8664 89 080101008 080181009 90
517 9 1 5 5 5 1 0101192900221 ALCIDES RAMOS CARRASCO 1 1929/11/04 E01 1 Z00 0 0 050501005 050501009 91
518 10 1 7 1 4 1 0101192400113 RAFAEL ZUNIGA VIVAS 1 1924/07/24 E01 1 Z00 0 0 010701004 010701010 96
519 10 1 1 1 22 1 0101192100287 RAFAELA ARJONIA MEJIA 2 1921/10/25 H01 1 Z00 91 293 010101022 010101010 99
520 10 81 1 8 61 1 0101193000221 EMERITA SALAZAR UMAÑA 2 1930/10/30 E01 1 Z00 0 0 080101061 080181010 90
521 10 1 1 1 22 1 0101193000193 KELLRIB LAWRENCE JOHNSON GREEN 1 1930/10/12 H01 1 Z00 95 300 010101022 010101010 90
522 10 1 1 1 22 1 0101192100097 MARIA DE JESUS MARTINEZ SOLIZ 2 1921/03/24 H01 1 Z00 96 356 010101022 010101010 99
523 10 18 4 1 39 2 0101192800351 FRANCISCO BAQUEDANO GOMEZ 1 1928/10/07 H01 1 Z00 542 25 010402039 010418010 92
524 10 4 1 8 482 1 0101192000337 ROSAURA CRISTINA POSAS CRUZ 2 1920/06/14 H01 1 Z00 10527 160 080101482 080104010 100
525 10 1 1 1 22 1 0101192800052 NICOLAS AUGUSTO JUAREZ 1 1928/02/03 E01 1 Z00 0 0 010101022 010101010 93
526 10 1 1 1 22 1 0101192200113 SOVEIDA GIRON 2 1922/04/22 H01 1 Z00 94 285 010101022 010101010 98
527 10 3 1 5 89 1 0101193000230 JULIA SIERRA CASTELLANOS 2 1930/11/09 H01 1 Z00 3843 306 050101089 050103010 90
528 10 1 7 1 4 1 0101193000311 ENRIQUE D. LAINEZ ALFARO 1 1930/03/03 H01 1 Z00 660 45 010701004 010701010 91
529 10 1 1 1 22 1 0101193100389 ROBERTO CUBAS 1 1931/09/26 H01 1 Z00 93 226 010101022 010101010 89
530 10 1 1 1 22 1 0101193000424 SIMON EFRAIN ROSALES AVILA 1 1930/06/02 H01 1 Z00 100 362 010101022 010101010 90
531 10 1 7 1 4 1 0101192500265 MANUEL DE JESUS SOLIS ROQUE 1 1925/10/09 H01 1 Z00 663 82 010701004 010701010 95
532 10 1 1 1 22 1 0101191500200 MARIA NATALIA VILLAFRANCA 2 1915/11/02 H01 1 Z00 102 219 010101022 010101010 105
533 10 81 1 8 61 1 0101193100451 ELIBERTO ZUNIGA ROSALES 1 1931/11/07 H01 1 Z00 8931 336 080101061 080181010 89
534 10 1 1 1 22 1 0101192300275 BLANA ORDOÑEZ 2 1923/09/15 H01 1 Z00 98 302 010101022 010101010 97
535 10 1 7 1 4 1 0101192200318 JOSEFA CELSA BUSTILLO 2 1922/11/30 H01 1 Z00 657 338 010701004 010701010 98
536 11 1 4 18 8 1 0101192300303 FRANCISCA HERMINIA NOLASCO 2 1923/10/10 H01 1 Z00 17160 350 180401008 180401011 97
537 11 1 1 1 10 1 0101193000033 IRMA EMERITA SANCHEZ MEJIA 2 1930/01/12 E01 1 Z00 0 0 010101010 010101011 91
538 11 81 1 8 12 1 0101193000507 MARIPOSA SEM GARCIA 2 1930/07/30 H01 1 Z00 8692 64 080101012 080181011 90
539 11 81 1 8 12 1 0101193000296 JOSE NAPOLEON MARINERO 1 1930/12/17 E01 1 Z00 0 0 080101012 080181011 90
540 11 1 1 1 10 1 0101192000324 PETRONA PAUGUADA ORTIZ 2 1997/04/26 H01 1 I10 43 103 010101010 010101011 23
541 11 1 4 18 8 1 0101192800436 TOMASA VELA DUEÑAS 2 1928/12/22 H01 1 Z00 17167 337 180401008 180401011 92
542 12 1 4 11 2 2 0101192300392 RICARDO HOWELL HOWELL 1 1923/07/31 H01 1 Z00 12652 25 110402002 110401012 97
543 12 7 1 5 275 1 0101192800242 LUISA LADISLAO GUERRERO ALEGRIA 2 1928/06/27 H01 1 Z00 4649 310 050101275 050107012 92
544 12 5 1 5 190 1 0101193000080 CARLOS GUSTAVO BARRIENTOS CERNA 1 1930/02/01 E01 1 Z00 0 0 050101190 050105012 91
545 13 1 12 5 9 1 0101192100068 MATILDE MACHADO SANCHEZ 2 1921/02/24 H01 1 Z00 6450 276 051201009 051201013 100
546 13 5 1 5 195 1 0101192800095 BLANCA ROSA AVILA GOMEZ 2 1928/03/05 H01 1 Z00 4281 6 050101195 050105013 93
547 13 3 1 5 95 1 0101193000206 CARLOS JESUS SOSA RAMIREZ 1 1930/10/17 E01 1 Z00 0 0 050101095 050103013 90
548 13 1 12 5 9 1 0101192800043 AMALIA ZELAYA HERNANDEZ 2 1928/01/29 E01 1 Z00 0 0 051201009 051201013 93
549 13 1 6 5 7 1 0101193100375 EMELDA RODRIGUEZ ROMERO 2 1931/09/14 E01 1 Z00 0 0 050601007 050601013 89
550 13 3 1 5 95 1 0101192500284 JUAN SAYBE CARCAMO 1 1925/10/18 H01 1 Z00 3859 333 050101095 050103013 95
551 13 1 1 1 12 1 0101192900040 JOSE GASTANO JUAREZ MUNGUIA 1 1929/04/20 E01 1 Z00 0 0 010101012 010101013 91
552 13 3 1 8 251 1 0101192800283 ZOILA RUTH GOLCHER RUBI 2 1928/07/31 H01 1 Z00 9602 249 080101251 080103013 92
553 13 1 12 5 9 1 0101192800428 SOFIA CACERES BORJAS 2 1928/12/16 H01 1 Z00 6441 73 051201009 051201013 92
554 13 1 1 1 12 1 0101191800180 JACINTA CASTRO MOYA 2 1918/08/19 H01 1 Z00 48 344 010101012 010101013 102
555 14 1 1 5 10 1 0101193000194 RODOLFO MEJIA OLIVA 1 1930/10/10 H01 1 Z00 3551 114 050101010 050101014 90
556 14 1 1 1 22 1 0101193100282 DOMINGO LOBO RODRIGUEZ 1 1931/07/26 E01 1 Z00 0 0 010101022 010101014 89
557 14 1 1 1 22 1 0101193100161 MARCOS HORACIO TABLAS BANEGAS 1 1931/04/25 E01 1 Z00 0 0 010101022 010101014 89
558 14 1 1 1 22 1 0101192200277 MARIA TOMASA MATUTE ORDOÑEZ 2 1922/10/21 H01 1 Z00 97 39 010101022 010101014 98
559 14 1 1 1 22 1 0101193100162 CARLOS MOLINA 1 1931/04/24 H01 1 Z00 97 343 010101022 010101014 89
560 14 1 1 1 22 1 0101193000259 CLEMENTINA MIRALDA 2 1930/11/23 H01 1 Z00 97 312 010101022 010101014 90
561 14 1 1 1 22 1 0101191500109 MARIA ARAMINTA ROMERO POSAS 2 1915/07/05 H01 1 Z00 100 339 010101022 010101014 105
562 14 81 1 8 12 1 0101192200259 ESTELA DE LOS ANGELES ANDINO ASTRON 2 1922/10/02 H01 1 Z00 8680 315 080101012 080181014 98
563 14 1 7 18 3 1 0101192500103 LUIS ALONSO MARTINEZ BLANCO 1 1925/05/17 E01 1 Z00 0 0 180701003 180701014 95
564 14 1 1 5 10 1 0101193000024 EMILIA MATUTE COLINDRES 2 1930/01/03 H01 1 Z00 3551 53 050101010 050101014 91
565 14 1 7 18 3 1 0101192800263 GLORIA BERNA PUERTO 2 1928/07/12 E01 1 Z00 0 0 180701003 180701014 92
566 15 1 1 1 8 1 0101192800196 BLANCA ALICIA CUEVA CASTILLO 2 1928/05/17 H01 1 Z00 38 312 010101008 010101015 92
567 15 1 1 1 8 1 0101192500093 HECTOR ROLANDO MARTINEZ FRANCISCO 1 1925/05/08 H01 1 Z00 40 80 010101008 010101015 95
568 15 1 1 1 8 1 0101193000368 ROBERTO PADILLA AQUINO 1 1930/04/27 E01 1 Z00 0 0 010101008 010101015 90
569 15 1 1 1 8 1 0101192900291 LIDIA MARINA FERNANDEZ JIRON 2 1929/12/27 H01 1 Z00 39 54 010101008 010101015 91
570 15 1 1 1 8 1 0101192400106 BLANCA MARINA BECERRA SOTO 2 1924/07/20 E01 1 Z00 0 0 010101008 010101015 96
571 15 1 1 1 8 1 0101193000121 EDNA BESSIE SAN MARTIN GARCIA 2 1930/02/21 H01 1 Z00 41 154 010101008 010101015 91
572 15 1 1 1 8 1 0101193000404 JORGE SALVADOR PANAYOTTY NUSTAS 1 1930/05/27 H01 1 Z00 40 316 010101008 010101015 90
573 15 1 1 1 8 1 0101192200029 ADOLFO MIGUEL KAWAS ACRA 1 1922/01/21 E01 1 Z00 0 0 010101008 010101015 99
574 15 1 1 1 8 1 0101193000350 CARLOS ARNALDO FRANCISCO ORDOÑEZ 1 1930/04/05 H01 1 Z00 39 90 010101008 010101015 90
575 15 1 1 1 8 1 0101193100048 NORMA LLOLANDA SOSA RIOS 2 1931/01/26 H01 1 Z00 41 219 010101008 010101015 90
576 15 1 1 1 8 1 0101192800180 JULIAN FIALLOS LASVIGNOTTES 1 1928/05/14 H01 1 Z00 39 63 010101008 010101015 92
577 15 1 1 1 8 1 0101192300331 RAFAEL MARADIAGA MONICO 1 1923/10/24 H01 1 Z00 40 63 010101008 010101015 97
578 15 1 1 1 8 1 0101192800250 ROBERTO CANALES RUBI 1 1928/07/04 E01 1 Z00 0 0 010101008 010101015 92
579 15 2 1 5 46 1 0101192400009 ROSA ONDINA CASTRO LEIVA 2 1924/01/03 E01 1 Z00 0 0 050101046 050102015 97
580 15 1 7 1 7 1 0101193100269 OLGA BUSMAIL CHAVEZ 2 1931/07/11 H01 1 Z00 670 180 010701007 010701015 89
581 15 1 1 1 8 1 0101192500267 EMILIO SIMON KAWAS KAWAS 1 1925/10/10 E01 1 Z00 0 0 010101008 010101015 95
582 15 2 1 5 46 1 0101192400016 GUMERCINDA PERALTA 2 1924/01/12 E01 1 Z00 0 0 050101046 050102015 97
583 16 3 1 8 253 1 0101192300169 SOAD J. KAWAS 2 1923/05/20 H01 1 Z00 9606 107 080101253 080103016 97
584 16 1 1 1 15 1 0101193100289 IRMA HERNANDEZ MONCADA 2 1931/07/29 H01 1 Z00 54 110 010101015 010101016 89
585 16 1 1 1 15 1 0101193100128 JULIO ANDINO GALINDO 1 1931/03/07 H01 1 Z00 53 42 010101015 010101016 90
586 16 1 1 1 15 1 0101192100246 BLANCA HONDINA CALIX DAVILA 2 1921/09/06 E01 1 Z00 0 0 010101015 010101016 99
587 16 3 1 8 253 1 0101192700055 EDGARDO SALGADO CALIX 1 1927/12/15 H01 1 Z00 9607 158 080101253 080103016 93
588 16 1 1 1 15 1 0101193100079 JULIA MARIA DE LA LUZ IZQUIERDO HERNANDEZ 2 1931/02/07 E01 1 Z00 0 0 010101015 010101016 90
589 16 1 1 1 15 1 0101193100204 OSCAR HUMBERTO AYALA 1 1931/05/21 H01 1 Z00 53 78 010101015 010101016 89
590 16 3 1 8 253 1 0101192300113 ESMERALDA ZELAYA RUBI 2 1923/04/02 E01 1 Z00 0 0 080101253 080103016 97
591 16 1 1 1 15 1 0101192100337 GREGORIO LOZANO MELENDEZ 1 1921/12/08 H01 1 Z00 54 185 010101015 010101016 99
592 16 1 9 2 1 1 0101192200224 MARIA CARMELA FINO GONZALEZ 2 1922/08/25 H01 1 Z00 1384 172 020901001 020901016 98
593 16 3 1 8 253 1 0101193000331 JOSE LEONARDO GODOY CASTILLO 1 1930/03/24 H01 1 Z00 9606 11 080101253 080103016 90
594 16 3 1 8 253 1 0101191300017 MARIA EVA CASTILLO ANTUNEZ 2 1913/01/12 H01 1 Z00 9605 196 080101253 080103016 108
595 16 1 1 1 15 1 0101192300146 JOSEFINA CABRERA HERNANDEZ 2 1923/05/10 E01 1 Z00 0 0 010101015 010101016 97
596 16 1 1 1 15 1 0101192200177 ANGELA MARIA PAGOADA 2 1922/07/08 E01 1 Z00 0 0 010101015 010101016 98
597 16 1 7 1 7 1 0101193000186 NELDA ONDINA MOLINA ROSALES 2 1930/10/05 H01 1 Z00 672 163 010701007 010701016 90
598 16 1 1 1 15 1 0101191500181 LASTENIA PAGOAGA 2 1915/10/28 E01 1 Z00 0 0 010101015 010101016 105
599 16 3 1 8 253 1 0101192100192 MARIO MONCADA CANTILLANO 1 1921/07/07 E01 1 Z00 0 0 080101253 080103016 99
600 16 3 1 8 253 1 0101192000039 JUSTA MARINA ZELAYA RUBI 2 1920/05/28 E01 1 Z00 0 0 080101253 080103016 100
601 17 1 1 15 4 1 0101192400132 JAMES HENRY THOMPSON 1 1924/08/12 H01 1 Z00 14196 169 150101004 150101017 96
602 17 83 1 8 254 1 0101192900071 ADALBERTO MARTINEZ SOTO 1 1929/06/18 E01 1 Z00 0 0 080101254 080183017 91
603 17 1 1 1 56 1 0101192900220 DORILA MEDINA CANIZALES 2 1929/11/05 E01 1 Z00 0 0 010101056 010101017 91
604 17 1 1 1 56 1 0101193100388 MELVA VICTORIA MC KEWINISS HAYNDS 2 1931/09/22 H01 1 Z00 296 214 010101056 010101017 89
605 17 1 1 1 56 1 0101193000397 IRMA ELIZABETH NAVARRO SUAREZ 2 1930/05/20 H01 1 Z00 296 319 010101056 010101017 90
606 17 5 1 5 199 1 0101192700061 PANAYULIA CHAMBASIS MEDINA 2 1919/07/22 H01 1 Z00 4310 41 050101199 050105017 101
607 17 1 1 1 56 1 0101192900165 ZOILA LUZ DURON 2 1929/09/12 E01 1 Z00 0 0 010101056 010101017 91
608 17 1 7 18 3 1 0101192200100 ANASTACIO ACOSTA 1 1922/04/15 E01 1 Z00 0 0 180701003 180701017 98
609 17 1 7 1 7 1 0101193000389 NATALIA MATUTE ROSALES 2 1930/05/13 H01 1 Z00 672 65 010701007 010701017 90
610 17 1 1 1 56 1 0101192600030 LEOVIGILDO SALGADO 1 1926/01/02 E01 1 Z00 0 0 010101056 010101017 95
611 17 83 1 8 254 1 0101192900156 MATILDE ELISABETTEA DELLA NOCE VELARDI 2 1929/09/15 H01 1 Z00 9609 5 080101254 080183017 91
612 18 1 7 1 7 1 0101191800281 EVA MARIA BERTOT ACOSTA 2 1918/08/16 E01 1 Z00 0 0 010701007 010701018 102
613 18 1 7 1 7 1 0101193000039 OSCAR HUMBERTO MARADIAGA ROBERT 1 1930/01/12 H01 1 Z00 672 21 010701007 010701018 91
614 18 1 1 1 15 1 0101191800026 ROSARIO DOROTEA SAUSA ACOSTA 2 1918/02/06 H01 1 Z00 55 241 010101015 010101018 103
615 18 1 7 18 4 1 0101192900202 LORENZO DOBLADO LLIRU 1 1929/10/27 E01 1 Z00 0 0 180701004 180701018 91
616 18 1 1 1 15 1 0101192800068 GLORIA MARINA SALAZAR CUVA 2 1928/02/12 H01 1 Z00 55 220 010101015 010101018 93
617 18 1 7 1 7 1 0101193100119 ANTONIO VIRGILIO REDONDO GARCIA 1 1931/03/14 H01 1 Z00 673 41 010701007 010701018 89
618 18 1 1 1 15 1 0101191300209 GUADALUPE PIEDAD TABLADA 2 1913/12/12 H01 1 Z00 55 265 010101015 010101018 107
619 18 1 9 17 10 1 0101191900121 AZUCENA LIDIA CARBAJAL GONZALEZ 2 1919/06/03 H01 1 Z00 16783 313 170901010 170901018 101
620 19 1 1 1 16 1 0101192900148 NORMA BETULIA FLORES DURON 2 1929/09/08 H01 1 Z00 60 160 010101016 010101019 91
621 19 1 1 1 16 1 0101192300143 LILIA ESTELA ROSALES HERRERA 2 1923/05/06 E01 1 Z00 0 0 010101016 010101019 97
622 19 1 9 17 11 1 0101192000253 JUAN FLORES GUITY 1 1920/12/27 H01 1 Z00 16789 312 170901011 170901019 100
623 19 1 1 1 16 1 0101192500009 RAMON ROSA PAGOADA 1 1925/02/23 H01 1 Z00 65 256 010101016 010101019 96
624 19 1 1 1 16 1 0101193100431 AMANDA JULIA FERNANDEZ ROMERO 2 1931/10/24 H01 1 Z00 60 70 010101016 010101019 89
625 19 1 1 1 16 1 0101192400131 ALFONSO FLORES ANDINO 1 1924/08/11 E01 1 Z00 0 0 010101016 010101019 96
626 19 1 1 1 16 1 0101192500051 ROSARIO MEN 2 1925/04/06 H01 1 Z00 64 70 010101016 010101019 95
627 19 1 1 1 16 1 0101192100234 TERESA CRUZ GONZALEZ 2 1921/08/27 E01 1 Z00 0 0 010101016 010101019 99
628 19 1 1 1 16 1 0101193000391 DOMITILA VILLALTA SOLORZANO 2 1930/05/13 H01 1 Z00 69 187 010101016 010101019 90
629 20 4 1 5 130 1 0101192900034 ANASTACIA ROSALES LOPEZ 2 1929/04/15 H01 1 Z00 3970 190 050101130 050104020 91
630 20 4 1 5 130 1 0101191500131 FILADELFO LOBO RODRIGUEZ 1 1915/08/23 H01 1 Z00 3963 324 050101130 050104020 105
631 20 4 1 5 130 1 0101192900308 RAMONA FIDELINA BATRES ARDON 2 1929/05/29 H01 1 Z00 3957 197 050101130 050104020 91
632 20 4 1 5 130 1 0101193000392 LIDIA ONDINA OSORIO RIVERA 2 1930/05/16 H01 1 Z00 3967 189 050101130 050104020 90
633 20 1 1 8 16 1 0101192900257 JOSE ARNOLDO ARGUETA CERNA 1 1929/11/30 H01 1 Z00 8717 165 080101016 080101020 91
634 20 1 1 1 17 1 0101192300041 MARIA CANDELARIA HERRERA CANELAS 2 1923/02/02 H01 1 Z00 70 83 010101017 010101020 98
635 21 4 1 8 490 1 0101193000329 SONIA MARGARITA HERRERA BERTRAND 2 1930/03/15 E01 1 Z00 0 0 080101490 080104021 90
636 22 1 7 1 8 1 0101192300101 AURELIO ALONZO 1 1923/03/26 E01 1 Z00 0 0 010701008 010701022 97
637 22 3 1 8 256 1 0101192800268 ERNESTO RAMON ARGUETA ARIZA 1 1928/07/22 H01 1 Z00 9615 56 080101256 080103022 92
638 22 1 1 1 18 1 0101192200114 GEORGINA FLORES GARCIA 2 1922/08/31 H01 1 Z00 71 354 010101018 010101022 98
639 22 4 1 5 133 1 0101192900027 ROBERTO MARCIAL CARCAMO FILIGRAMA 1 1929/04/16 E01 1 Z00 0 0 050101133 050104022 91
640 22 1 7 1 8 1 0101192800300 GILBERTO EFRAIN SUAREZ 1 1928/08/14 H01 1 Z00 682 43 010701008 010701022 92
641 23 1 1 1 19 1 0101192900019 MANUEL EXEQUIEL CASTRO CASTAÑEDA 1 1929/04/10 E01 1 Z00 0 0 010101019 010101023 91
642 23 1 1 1 19 1 0101192200199 ELIA MARIA CORDOVA WILDT 2 1922/08/02 H01 1 Z00 75 203 010101019 010101023 98
643 23 1 1 1 19 1 0101191900104 ABRAHAM HERNANDEZ CALDERON 1 1919/05/17 E01 1 Z00 0 0 010101019 010101023 101
644 23 1 1 1 19 1 0101193000233 JUAN MANUEL FIGUEROA FERRUFINO 1 1930/11/05 H01 1 Z00 76 14 010101019 010101023 90
645 23 1 1 1 19 1 0101192700017 TERESA DE JESUS ROSALES LOPEZ 2 1927/11/27 E01 1 Z00 0 0 010101019 010101023 93
646 23 2 1 5 52 1 0101192000200 MARTIN NAVARRO 1 1920/11/20 H01 1 Z00 3706 307 050101052 050102023 100
647 23 1 1 1 19 1 0101192000206 JOAQUIN RODRIGUEZ SEVILLA 1 1920/11/27 H01 1 Z00 79 255 010101019 010101023 100
648 23 1 1 1 19 1 0101192100165 MARIA SATURNINA MEDINA VILLAFRANCA 2 1921/06/04 H01 1 Z00 77 314 010101019 010101023 99
649 23 1 1 1 19 1 0101192900204 RAFAEL SOSA LANZA 1 1929/10/24 E01 1 Z00 0 0 010101019 010101023 91
650 23 1 1 1 19 1 0101193000552 BLANCA ROSA LOPEZ CASTILLO 2 1930/08/06 H01 1 Z00 77 90 010101019 010101023 90
651 23 1 1 1 19 1 0101193100109 GUILLERMINA ZAPATA 2 1931/02/28 H01 1 Z00 80 318 010101019 010101023 90
652 23 1 1 1 19 1 0101192900313 AGUSTO MARGARITO CARCAMO CANO 1 1929/06/10 H01 1 Z00 74 375 010101019 010101023 91
653 23 1 1 1 19 1 0101192400204 MARIA ESTELA LINARES 2 1924/12/17 H01 1 Z00 77 59 010101019 010101023 96
654 23 1 1 1 19 1 0101193000344 MELBA LUISA CHACON REYES 2 1930/04/06 H01 1 Z00 75 152 010101019 010101023 90
655 23 1 1 1 19 1 0101192100199 EMMA OSORIO ESCOBAR 2 1921/07/18 H01 1 Z00 78 263 010101019 010101023 99
656 23 1 4 18 15 1 0101192900272 JOSE MARIA CACERES 1 1929/12/10 H01 1 Z00 17191 285 180401015 180401023 91
657 23 1 1 1 19 1 0101192900268 DANIEL RODRIGUEZ SEVILLA 1 1929/12/11 E01 1 Z00 0 0 010101019 010101023 91
658 23 1 1 1 19 1 0101192200061 GUILLERMO DAMAS CAMPRUBI 1 1922/03/04 H01 1 Z00 75 239 010101019 010101023 99
659 24 1 1 1 20 1 0101192100062 CARLOS ANTENOR MORALES SOTO 1 1921/02/15 H01 1 Z00 83 339 010101020 010101024 100
660 24 1 1 1 20 1 0101193000224 ADOLFO MARTINEZ SOTO 1 1930/10/31 E01 1 Z00 0 0 010101020 010101024 90
661 24 5 1 8 421 1 0101192800280 ANTONIA RUBIO OVIEDO 2 1928/07/27 H01 1 Z00 10307 50 080101421 080105024 92
662 24 1 1 1 20 1 0101191500783 JULIAN ANTONIO AGUILAR PEREIRA 1 1915/02/17 H01 1 Z00 81 17 010101020 010101024 106
663 24 1 1 1 20 1 0101191600150 MARIA TERESA ELVIR 2 1916/03/07 H01 1 Z00 82 127 010101020 010101024 105
664 24 1 1 1 20 1 0101192200195 ALFONSO GUILLERMO MATUTE CANIZALES 1 1922/07/30 E01 1 Z00 0 0 010101020 010101024 98
665 24 1 1 1 20 1 0101192900189 LILIA EDELMIRA BERTOT ESCOBAR 2 1929/10/08 E01 1 Z00 0 0 010101020 010101024 91
666 24 1 1 1 20 1 0101192300167 GERMAN RUIZ ZELAYA 1 1923/05/27 E01 1 Z00 0 0 010101020 010101024 97
667 24 1 1 1 20 1 0101193000482 MARTA ONDINA CALIX SALGADO 2 1930/07/15 H01 1 Z00 81 261 010101020 010101024 90
668 24 1 1 1 20 1 0101192000018 MARIA ESTELA BROWN BARDALES 2 1920/05/09 E01 1 Z00 0 0 010101020 010101024 100
669 24 1 1 1 20 1 0101192700064 MARIO JESUS GUERRERO DIAZ 1 1927/12/24 E01 1 Z00 0 0 010101020 010101024 93
670 24 1 1 1 20 1 0101192200003 CAMILA VIRGINIA CASTILLO MATUTE 2 1922/01/02 E01 1 Z00 0 0 010101020 010101024 99
671 24 1 1 1 20 1 0101193100140 MARTA ORALIA GARCIA BLANCO 2 1931/03/31 H01 1 Z00 82 241 010101020 010101024 89
672 24 1 1 1 20 1 0101192100262 ERMINIA BERTOT ESCOBAR 2 1921/09/08 H01 1 I10 81 193 010101020 010101024 99
673 24 1 1 1 20 1 0101193100409 ROBERTO EAIL JOHNSON 1 1931/10/06 H01 1 Z00 83 61 010101020 010101024 89
674 24 1 1 1 20 1 0101191800179 LIDIA MERIDA CEDEÑO RIVERA 2 1918/08/10 H01 1 Z00 81 340 010101020 010101024 102
675 24 1 1 1 20 1 0101191400040 ESTELA ARGENTINA MATUTE CANIZALES 2 1914/03/14 E01 1 Z00 0 0 010101020 010101024 106
676 24 1 1 1 20 1 0101192800254 ROSA ISABEL PUERTO ROSALES 2 1928/07/06 E01 1 Z00 0 0 010101020 010101024 92
677 24 1 1 1 20 1 0101192300258 ADA MARINA MARTINEZ SOTO 2 1923/08/22 H01 1 Z00 83 218 010101020 010101024 97
678 24 1 1 1 20 1 0101192700068 MARIO PADILLA GARDELA 1 1927/12/24 H01 1 Z00 84 133 010101020 010101024 93
679 24 1 1 1 20 1 0101193100252 AMANDA RIEGO 2 1931/06/30 H01 1 Z00 84 320 010101020 010101024 89
680 24 1 1 1 20 1 0101192300328 MARIA ADANUBIA BOHORQUEZ SEVILLA 2 1923/10/30 H01 1 Z00 81 217 010101020 010101024 97
681 24 1 6 5 10 1 0101192800102 JOSE TRINIDAD NUÐEZ FUNES 1 1928/03/06 E01 1 Z00 0 0 050601010 050601024 93
682 25 1 1 1 21 1 0101192800405 JUAN HENRIQUEZ 1 1928/11/24 E01 1 Z00 0 0 010101021 010101025 92
683 25 1 1 1 21 1 0101192900126 IRMA GARCIA ESPINAL 2 1929/08/23 H01 1 Z00 87 323 010101021 010101025 91
684 25 1 1 1 21 1 0101193100212 VIRGILIO ERNESTO FERNANDEZ NUÑEZ 1 1931/08/30 E01 1 Z00 0 0 010101021 010101025 89
685 25 1 1 1 21 1 0101192100288 EDDA OLGA VIADA SANTAMARIA 2 1919/10/19 E01 1 Z00 0 0 010101021 010101025 101
686 25 1 1 1 21 1 0101193100115 DORA SUSANA CASTRO BALICO 2 1931/03/04 H01 1 Z00 86 385 010101021 010101025 90
687 25 1 1 1 21 1 0101192800328 EMILIA MARINA PINA CASTELLANOS 2 1928/09/11 E01 1 Z00 0 0 010101021 010101025 92
688 25 1 1 1 21 1 0101192100252 HADA MARINA GALINDO VELASQUEZ 2 1921/09/07 E01 1 Z00 0 0 010101021 010101025 99
689 25 1 1 1 21 1 0101192800030 GLORIA DELFINA CANIZALES ERAZO 2 1928/01/17 H01 1 Z00 86 320 010101021 010101025 93
690 25 1 1 1 21 1 0101192200010 LIDIA MARTINEZ BLANCO 2 1922/01/09 E01 1 Z00 0 0 010101021 010101025 99
691 25 1 1 1 21 1 0101192300047 DAISY EMILIA ARAUZ REYES 2 1923/02/08 E01 1 Z00 0 0 010101021 010101025 98
692 25 1 1 1 21 1 0101192800315 ODILIA FUENTES LOPEZ 2 1928/09/03 E01 1 Z00 0 0 010101021 010101025 92
693 25 1 1 1 21 1 0101192700004 MARIA LUISA MARTORELL 2 1927/09/08 H01 1 Z00 88 284 010101021 010101025 93
694 25 1 1 1 21 1 0101192100209 JUANA MARIA AMERICA UMAÑA LOPEZ 2 1921/08/02 E01 1 Z00 0 0 010101021 010101025 99
695 25 1 1 1 21 1 0101192900124 SOFIA BARDALES STREBER 2 1929/08/26 H01 1 Z00 86 175 010101021 010101025 91
696 25 1 1 1 21 1 0101192100253 JOSEFA ESTELA NUÑEZ 2 1921/09/10 H01 1 Z00 89 110 010101021 010101025 99
697 25 1 1 1 21 1 0101192400172 MARINA ADA FLORES DURON 2 1924/08/29 H01 1 Z00 87 255 010101021 010101025 96
698 26 4 1 8 494 1 0101192800158 ALEJANDRO ANTUNEZ MENCIAS 1 1928/04/09 H01 1 Z00 10568 346 080101494 080104026 92
699 26 1 1 1 22 1 0101191700150 OLIMPIA NIEVES MONCADA 2 1917/08/05 H01 1 Z00 98 3 010101022 010101026 103
700 26 1 1 1 22 1 0101191800063 JOSE ABRAHAM URBINA GARCIA 1 1918/03/17 E01 1 Z00 0 0 010101022 010101026 102
701 26 1 1 1 22 1 0101192800408 ADELMA DILIA ZUNIGA VIVAS 2 1928/11/14 H01 1 Z00 102 372 010101022 010101026 92
702 26 1 1 1 22 1 0101191000079 ALINE ALFONSINA BRENILLET ALCANTARA 2 1910/08/22 H01 1 Z00 92 112 010101022 010101026 110
703 26 1 1 1 22 1 0101192900007 RAMON OBILIO OBANDO HERNANDEZ 1 1929/03/22 E01 1 Z00 0 0 010101022 010101026 91
704 26 1 1 1 22 1 0101191800203 FRANCISCO CALA OVIEDO 1 1918/09/20 H01 1 Z00 99 2 010101022 010101026 102
705 26 1 1 1 22 1 0101192200076 JOSE MANUEL VINDEL MEJIA 1 1922/03/21 E01 1 Z00 0 0 010101022 010101026 98
706 26 1 1 1 22 1 0101192600033 HECTOR ALFONZO VIVAS OVIEDO 1 1925/12/30 E01 1 Z00 0 0 010101022 010101026 95
707 26 1 1 1 22 1 0101191700195 LUCILA ALINA BREUILLET ALCANTARA 2 1917/10/31 E01 1 Z00 0 0 010101022 010101026 103
708 26 1 1 1 22 1 0101192400165 ALICIA MEJIA VALLADARES 2 1924/09/18 H01 1 Z00 97 163 010101022 010101026 96
709 26 1 1 1 22 1 0101193000346 ADOLFO VIVAS OVIEDO 1 1930/04/03 H01 1 Z00 102 258 010101022 010101026 90
710 26 1 1 1 22 1 0101191300136 MARIA ANGELA BREVILLET ALCANTARA 2 1913/08/04 E01 1 Z00 0 0 010101022 010101026 107
711 26 1 7 18 6 1 0101192800344 MARIA JUSTINA OCAMPO ARGUETA 2 1928/09/25 H01 1 Z00 17725 148 180701006 180701026 92
712 26 1 1 1 22 1 0101193000108 CATALINA VELASQUEZ 2 1930/02/12 H01 1 Z00 102 170 010101022 010101026 91
713 26 1 6 5 12 1 0101191700093 LUCIAN DUNUEL KELLY HENDRICKS 1 1917/05/07 H01 1 Z00 5611 312 050601012 050601026 103
714 26 1 1 1 22 1 0101192700042 JOSE ROLANDO GAMBARELLI PINTO 1 1927/02/19 H01 1 Z00 94 237 010101022 010101026 94
715 26 1 1 1 22 1 0101192500011 EMILIO MENCOS GIRON 1 1925/02/17 H01 1 Z00 97 207 010101022 010101026 96
716 26 1 1 1 22 1 0101191600070 MANUEL DE JESUS CANELAS AGURCIA 1 1916/09/21 H01 1 Z00 92 239 010101022 010101026 104
717 26 1 1 1 22 1 0101193000184 ANARCELIA BOLAÑOS MEJIA 2 1930/10/02 H01 1 Z00 92 99 010101022 010101026 90
718 26 1 8 18 5 1 0101192900321 NELDA LUCILA COELLO ROMERO 2 1929/02/04 H01 1 Z00 17919 250 180801005 180801026 92
719 26 1 1 1 22 1 0101191600058 CORONADO FIALLOS RODRIGUEZ 1 1916/09/04 H01 1 Z00 94 107 010101022 010101026 104
720 26 1 1 1 22 1 0101192300110 LUZ MARINA URBIZO HERRERA 2 1923/04/02 H01 1 Z00 102 75 010101022 010101026 97
721 26 1 6 5 12 1 0101193000281 VICENTE ZELAYA ANTUNEZ 1 1930/12/07 H01 1 Z00 5618 314 050601012 050601026 90
722 26 5 1 8 421 1 0101193000384 AUGUSTO FIALLOS 1 1930/05/05 E01 1 Z00 0 0 080101421 080105026 90
723 27 6 1 5 254 1 0101192500001 QUINTIN GAITAN MENDEZ 1 1925/01/04 E01 1 Z00 0 0 050101254 050106027 96
724 27 1 1 1 23 1 0101192400049 MARIA DEL CARMEN RUBI OCAMPO 2 1924/05/17 H01 1 Z00 109 298 010101023 010101027 96
725 27 1 1 1 23 1 0101192300071 FLORENCIO FIALLOS MARTINEZ 1 1923/02/28 H01 1 Z00 105 85 010101023 010101027 98
726 27 4 1 5 133 1 0101192700019 MARIA RUFINO CRUZ CARIAS 2 1927/11/23 H01 1 Z00 3978 198 050101133 050104027 93
727 27 1 1 1 23 1 0101192800131 MARIA EMETERIA SALINAS ROSALES 2 1928/03/17 H01 1 Z00 109 326 010101023 010101027 92
728 27 1 9 2 10 1 0101193000085 HECTOR MURILLO MOTIÑO 1 1930/02/06 E01 1 Z00 0 0 020901010 020901027 91
729 27 1 1 5 13 1 0101193000218 MIGUEL OSBERTO CASTRO SABILLON 1 1930/10/28 H01 1 Z00 3561 241 050101013 050101027 90
730 27 1 1 1 23 1 0101193000161 CARLOS HUMBERTO ESPINOZA RODRIGUEZ 1 1930/09/15 H01 1 Z00 105 54 010101023 010101027 90
731 27 5 1 8 422 1 0101192300045 MARTIN CHAVEZ DAVID 1 1923/01/30 H01 1 Z00 10315 97 080101422 080105027 98
732 27 1 1 1 23 1 0101192200179 GUILLERMO ALBERTO RAMIREZ MONTES 1 1922/06/25 E01 1 Z00 0 0 010101023 010101027 98
733 27 3 1 5 109 1 0101193100261 JUAN JORGE VIARA MATUTE 1 1931/04/15 H01 1 Z00 3890 199 050101109 050103027 89
734 28 1 1 1 24 1 0101192200052 ROBERTO EFRAIN ORDO|EZ ORELLANA 1 1922/02/24 E01 1 Z00 0 0 010101024 010101028 99
735 28 1 7 1 10 1 0101192800288 GLORIA AMELIA HERNANDEZ 2 1928/08/06 H01 1 Z00 693 53 010701010 010701028 92
736 28 1 1 1 24 1 0101192400140 SEBASTIANA VEGA PEREZ 2 1924/08/06 E01 1 Z00 0 0 010101024 010101028 96
737 28 1 1 1 24 1 0101192500192 MARIA EDITH PAGOAGA MARTINEZ 2 1925/07/11 E01 1 Z00 0 0 010101024 010101028 95
738 28 1 1 1 24 1 0101192600029 RAFAEL ANTONIO PAVON LEIVA 1 1926/07/29 H01 1 Z00 115 288 010101024 010101028 94
739 28 1 1 1 24 1 0101192800188 AIDA ESTELA MATUTE KIEFFER 2 1928/05/21 H01 1 Z00 114 214 010101024 010101028 92
740 28 1 7 1 10 1 0101192800331 CLARA LUZ MOLINA ROSALES 2 1928/09/16 H01 1 Z00 694 347 010701010 010701028 92
741 28 1 1 1 24 1 0101192500079 FELIPA OCAMPO 2 1925/04/30 H01 1 Z00 115 172 010101024 010101028 95
742 28 1 1 1 24 1 0101192900188 SATURNINO MEJIA MARTINEZ 1 1929/10/09 H01 1 Z00 114 280 010101024 010101028 91
743 28 1 1 1 24 1 0101193000188 RAFAEL BECERRA SOTO 1 1930/10/08 E01 1 Z00 0 0 010101024 010101028 90
744 28 1 1 1 24 1 0101192600017 SARA CONSUELO CORDOVA WILL 2 1926/03/24 H01 1 Z00 112 165 010101024 010101028 94
745 28 1 1 1 24 1 0101192800066 SAUL VINDEL VASQUES 1 1928/02/12 H01 1 Z00 117 256 010101024 010101028 93
746 28 1 1 1 24 1 0101191800097 MIGUEL RUBEN UGARTE ORTEGA 1 1918/04/03 E01 1 Z00 0 0 010101024 010101028 102
747 28 1 1 1 24 1 0101192800058 COYINA SANCHEZ 2 1928/02/08 E01 1 Z00 0 0 010101024 010101028 93
748 28 1 7 1 10 1 0101193100430 RINA MONCADA ROMERO 2 1926/01/31 H01 1 Z00 694 355 010701010 010701028 95
749 29 3 1 5 109 1 0101192100285 HECTOR VIRGILIO LANZA GALEAS 1 1921/10/18 H01 1 Z00 3884 320 050101109 050103029 99
750 29 1 1 5 15 1 0101192300204 FAUSTO AGRIPINO DOMINELLI HERNANDEZ 1 1923/06/23 E01 1 Z00 0 0 050101015 050101029 97
751 29 13 11 5 13 1 0101193000697 ANTONIO VALLEJO LOPEZ 1 1930/06/07 H01 1 Z00 6248 126 051101013 051113029 90
752 29 4 1 5 135 1 0101192800091 EMILIA ESPINOZA RODRIGUEZ 2 1928/03/04 H01 1 Z00 4000 318 050101135 050104029 93
753 29 4 1 5 135 1 0101192300112 HECTOR B. ZELAYA ANDINO 1 1923/03/31 H01 1 Z00 4007 315 050101135 050104029 97
754 29 2 1 8 195 1 0101193100100 MARINA LUZ ACOSTA MEJIA 2 1931/03/01 H01 1 Z00 9437 10 080101195 080102029 90
755 29 2 1 8 195 1 0101192800144 IRMA LUCRECIA ACOSTA MEJIA 2 1928/03/21 E01 1 Z00 0 0 080101195 080102029 92
756 30 1 6 5 28 1 0101192500105 GLORIA MARINA LOPEZ 2 1925/04/20 E01 1 Z00 0 0 050601028 050601030 95
757 30 1 7 1 11 1 0101192500204 TERESA ERCILIA DONINELL HERNANDEZ 2 1925/08/10 E01 1 Z00 0 0 010701011 010701030 95
758 30 1 12 5 16 1 0101192800083 MARTA RODRIGUEZ MIRALDA 2 1928/02/23 H01 1 Z00 6489 5 051201016 051201030 93
759 30 1 1 1 23 1 0101192300260 JOAQUIN REYES MARTINEZ 1 1923/08/21 H01 1 Z00 109 91 010101023 010101030 97
760 30 1 1 8 14 1 0101193100098 HECTOR HERNAN SOLANO CASTAÑEDA 1 1931/02/20 H01 1 Z00 8715 84 080101014 080101030 90
761 30 1 12 5 16 1 0101191800222 FRANCISCO CRUZ ROMERO 1 1918/10/04 H01 1 Z00 6480 117 051201016 051201030 102
762 30 1 7 1 11 1 0101192300066 MARINA CASTILLO VELASQUEZ 2 1923/02/27 H01 1 Z00 698 240 010701011 010701030 98
763 30 1 1 1 23 1 0101191700052 GRACIELA MEJIA VALLADARES 2 1917/02/27 E01 1 Z00 0 0 010101023 010101030 104
764 30 1 1 8 14 1 0101193000081 IRMA PEÑA AVILEZ 2 1930/02/01 E01 1 Z00 0 0 080101014 080101030 91
765 30 1 1 8 14 1 0101191700174 ZOILA BLANCA EMILIA RIVERA FIALLOS 2 1917/09/20 E01 1 Z00 0 0 080101014 080101030 103
766 31 3 1 5 105 1 0101192500295 ALICIA LEIVA 2 1925/10/21 H01 1 Z00 3872 243 050101105 050103031 95
767 31 1 6 5 27 1 0101192300365 ROBERTO FLORES SANTAMARIA 1 1923/12/06 H01 1 Z00 5664 95 050601027 050601031 97
768 31 1 6 5 27 1 0101192400110 BERTHA LIDIA REYES 2 1924/07/17 H01 1 Z00 5667 171 050601027 050601031 96
769 31 1 4 18 21 1 0101193100318 PAULA ELENA LANZA FUNEZ 2 1931/08/17 E01 1 Z00 0 0 180401021 180401031 89
770 32 5 1 8 427 1 0101193000090 OSCAR BERNARDO ALVARADO MORAZAN 1 1930/02/06 E01 1 Z00 0 0 080101427 080105032 91
771 32 1 7 1 12 1 0101192100146 OLIMPIA OSEGUERA 2 1921/05/08 H01 1 Z00 710 280 010701012 010701032 99
772 32 1 1 1 26 1 0101192100166 ADA MARINA LOPEZ RIVERA 2 1921/06/07 E01 1 Z00 0 0 010101026 010101032 99
773 32 1 7 1 12 1 0101192500155 OSCAR MARTIN TRUJILLO PEREZ 1 1925/01/30 H01 1 Z00 713 306 010701012 010701032 96
774 32 2 1 5 62 1 0101192900167 EDIT HERNANDEZ FERIA 2 1929/09/20 H01 1 Z00 3732 184 050101062 050102032 91
775 32 1 1 1 26 1 0101193100173 TOMASA FLORES BELISLE 2 1931/04/27 H01 1 Z00 119 307 010101026 010101032 89
776 32 1 1 1 26 1 0101193000294 MARY BLANCA ANTUNEZ BETANCOURT 2 1930/12/12 E01 1 Z00 0 0 010101026 010101032 90
777 32 1 1 8 24 1 0101192900060 BERTHA LUCILA AGUILAR WOODS 2 1929/06/14 H01 1 Z00 8744 202 080101024 080101032 91
778 32 1 1 1 26 1 0101192700003 ANTONIA MARTINEZ 2 1927/01/20 H01 1 Z00 121 94 010101026 010101032 94
779 32 1 7 1 12 1 0101193000094 ELBIA TOMG CORDOVA 2 1930/02/02 H01 1 Z00 713 253 010701012 010701032 91
780 32 1 1 1 26 1 0101192300078 LAURA HERNANDEZ CENTENO 2 1923/03/09 H01 1 Z00 120 175 010101026 010101032 98
781 32 1 1 1 26 1 0101193000262 JUAN DE LA CRUZ GARCIA PEREIRA 1 1930/11/24 H01 1 Z00 120 46 010101026 010101032 90
782 33 4 1 5 130 1 0101193000240 MARIA ADELINA CARIAS HERNANDEZ 2 1930/11/10 H01 1 Z00 3958 204 050101130 050104033 90
783 33 2 1 5 62 1 0101191500192 MARIA DE LOS ANGELES VALLADARES 2 1915/11/16 H01 1 Z00 3740 354 050101062 050102033 105
784 33 1 4 18 23 1 0101193000014 JUVENTINA RIVAS OSEGUERA 2 1930/01/01 H01 1 Z00 17225 114 180401023 180401033 91
785 33 1 1 1 36 1 0101193100017 ISIDRO CABRERA 1 1931/01/07 H01 1 Z00 196 320 010101036 010101033 90
786 33 2 1 8 183 1 0101193100180 MARIA DEL CARMEN AZCONA DEL HOYO 2 1931/04/29 H01 1 Z00 9408 149 080101183 080102033 89
787 34 4 1 8 502 1 0101192300278 GENOVEVA VELASQUEZ 2 1923/09/12 H01 1 Z00 10611 249 080101502 080104034 97
788 34 1 1 1 28 1 0101192000194 VICTOR RAFAEL AYALA GALEANO 1 1920/11/20 H01 1 Z00 126 93 010101028 010101034 100
789 34 1 7 1 12 1 0101192900093 DANIEL MELGAR VILLALTA 1 1929/07/22 H01 1 Z00 709 200 010701012 010701034 91
790 34 1 1 1 28 1 0101193100137 JUAN RAMON ALVARADO CHAVEZ 1 1931/03/23 H01 1 Z00 125 196 010101028 010101034 89
791 34 1 1 1 28 1 0101193000385 ALMA CANDIDA FLORES DIAZ 2 1930/05/12 H01 1 Z00 129 283 010101028 010101034 90
792 34 1 1 1 28 1 0101193100190 JOSE ANGEL MENJIVAR GONZALEZ 1 1931/05/08 E01 1 Z00 0 0 010101028 010101034 89
793 34 1 1 1 28 1 0101193000001 MANUELA DE JESUS URBINA CASTRO 2 1929/12/21 H01 1 Z00 140 219 010101028 010101034 91
794 34 1 1 1 28 1 0101192500056 JULIA EUSTAQUIA SOLORZANO 2 1925/04/12 H01 1 Z00 140 36 010101028 010101034 95
795 34 1 7 1 12 1 0101192500109 MARIA BERTHA CASTILLO 2 1925/05/21 H01 1 Z00 704 197 010701012 010701034 95
796 34 1 1 1 28 1 0101191600132 ALBERTO ACOSTA 2 1916/04/07 H01 1 Z00 125 9 010101028 010101034 104
797 34 1 1 1 28 1 0101193000058 SANTOS FABIAN PADILLA FLORES 1 1930/01/25 H01 1 Z00 136 153 010101028 010101034 91
798 34 1 1 1 28 1 0101192800400 LUCRECIA PADILLA LOPEZ 2 1928/11/22 H01 1 Z00 136 168 010101028 010101034 92
799 34 1 1 1 28 1 0101192800026 RAMONA FERRERA CENTENO 2 1928/03/19 H01 1 Z00 129 220 010101028 010101034 92
800 34 83 1 8 261 1 0101193100260 OLGA MARINA MEJIA 2 1931/07/01 H01 1 Z00 9624 243 080101261 080183034 89
801 34 1 1 1 28 1 0101192500311 CARLOS MARTIN AYALA GALEANO 1 1925/11/12 H01 1 Z00 126 92 010101028 010101034 95
802 35 1 12 5 16 1 0101193100220 SOILA GLORIA BONILLA MEDINA 2 1931/06/09 E01 1 Z00 0 0 051201016 051201035 89
803 35 7 1 5 284 1 0101190800945 GERMANA RAMONA VALLADARES AVILA 2 1908/10/12 H01 1 Z00 4689 67 050101284 050107035 112
804 37 1 1 1 29 1 0101193000467 MADALINA IGLESIAS PEÑA 2 1930/07/07 H01 1 Z00 144 56 010101029 010101037 90
805 37 1 4 18 26 1 0101192600016 HECTOR MANUEL HERNANDEZ CHACON 1 1926/03/22 E01 1 Z00 0 0 180401026 180401037 94
806 37 3 1 5 109 1 0101193000446 MARIA ESPECTACION CRUZ MEJIA 2 1930/06/18 H01 1 Z00 3882 131 050101109 050103037 90
807 37 2 1 8 186 1 0101192900282 GLORIA ALICIA SALGADO CALIX 2 1929/12/16 H01 1 Z00 9420 62 080101186 080102037 91
808 37 1 1 1 29 1 0101192800284 TERESA IGLESIAS PEÑA 2 1928/08/01 E01 1 Z00 0 0 010101029 010101037 92
809 37 2 1 5 67 1 0101193000256 GREGORIO REYES GARCIA 1 1930/11/21 H01 1 Z00 3783 176 050101067 050102037 90
810 37 2 1 8 186 1 0101192900090 AMALIA RUFINA CHAVARRIA SIERRA 2 1929/07/10 H01 1 Z00 9417 12 080101186 080102037 91
811 38 1 1 1 29 1 0101192500218 MANUEL JAVIER CRESPO MEJIA 1 1925/08/26 H01 1 Z00 143 31 010101029 010101038 95
812 38 1 6 5 29 1 0101193100384 MELIDA CHAVEZ 2 1931/09/18 H01 1 Z00 5680 248 050601029 050601038 89
813 38 1 7 1 12 1 0101193000180 ROSEMARY RODRIGUEZ ROSALES 2 1930/10/07 E01 1 Z00 0 0 010701012 010701038 90
814 39 1 1 1 30 1 0101192800426 SYLVON BODDEN 1 1928/12/06 H01 1 Z00 147 242 010101030 010101039 92
815 39 1 1 1 30 1 0101192000127 AUGUSTO FORGAS JUAREZ 1 1920/12/20 H01 1 Z00 149 1 010101030 010101039 100
816 39 1 1 1 30 1 0101192800376 ENRIQUE CASTILLO 1 1928/11/02 H01 1 Z00 148 24 010101030 010101039 92
817 39 1 1 1 30 1 0101192100008 BLANCA ZOILA JUAREZ PONCE 2 1921/12/28 H01 1 Z00 149 279 010101030 010101039 99
818 40 2 1 5 67 1 0101193000241 RAUL FLETES VAQUEDANO 1 1930/11/10 H01 1 Z00 3767 73 050101067 050102040 90
819 40 4 1 8 505 1 0101192700029 OLGA ZUNIGA 2 1927/11/28 H01 1 Z00 10626 335 080101505 080104040 93
820 40 1 2 5 11 1 0101193100412 VIRA STANLEY 2 1931/10/14 H01 1 Z00 4976 288 050201011 050201040 89
821 40 1 6 5 29 1 0101193000252 ISABEL REINA SOLIS ULLOA 2 1930/11/19 H01 1 Z00 5686 23 050601029 050601040 90
822 40 1 1 5 16 1 0101193000245 ANA STELLA ALVAREZ SANTOS 2 1930/11/17 E01 1 Z00 0 0 050101016 050101040 90
823 40 4 1 5 144 1 0101192400060 ANGELA ASUCENA JACKSON PERALTA 2 1924/05/31 H01 1 Z00 4033 54 050101144 050104040 96
824 40 4 1 5 144 1 0101192700053 JOSEFA CHANBASIS MEDINA 2 1927/09/01 H01 1 Z00 4020 212 050101144 050104040 93
825 41 1 1 1 31 1 0101192000224 MAZEDONIO CORNELIO CACERES CALIX 1 1920/12/14 H01 1 Z00 154 255 010101031 010101041 100
826 41 1 1 1 31 1 0101191700094 CONCEPCION AGUSTINA HERNANDEZ PADILLA 2 1917/05/04 H01 1 Z00 157 256 010101031 010101041 103
827 41 1 1 1 31 1 0101192400077 EDUARD LEI GREENWOOD 1 1924/06/13 H01 1 Z00 158 76 010101031 010101041 96
828 41 4 1 5 145 1 0101191600094 MARIA ELENA HERNANDEZ 2 1916/10/22 H01 1 I10 4067 232 050101145 050104041 104
829 41 1 1 1 31 1 0101193100291 ENRIQUE CASTILLO ALEMAN 1 1931/07/27 H01 1 Z00 155 31 010101031 010101041 89
830 41 4 1 5 145 1 0101190600076 ENRIQUETA GARCIA 2 1906/12/23 H01 1 Z00 4066 210 050101145 050104041 114
831 41 3 1 5 111 1 0101193100330 MARIA MELIDA CHAVEZ 2 1931/08/19 E01 1 Z00 0 0 050101111 050103041 89
832 41 3 1 5 111 1 0101193100321 JOSE ANTONIO CALIX CONTRERAS 1 1931/08/13 H01 1 Z00 3892 155 050101111 050103041 89
833 41 1 6 5 22 1 0101193000416 ARMANDO GONZALES GUIFARRO 1 1930/05/31 H01 1 Z00 5633 28 050601022 050601041 90
834 41 1 1 1 31 1 0101191500158 JOSE RUMUALDO GALEAS SOTO 1 1915/09/28 H01 1 Z00 156 281 010101031 010101041 105
835 41 7 1 5 289 1 0101192300276 STELLA MORALES OSEGUERA 2 1923/09/16 E01 1 Z00 0 0 050101289 050107041 97
836 42 2 1 5 67 1 0101193000112 CARLOS JULIAN GUERRERO CANTILLANO 1 1930/02/13 E01 1 Z00 0 0 050101067 050102042 91
837 42 1 6 5 23 1 0101192800294 GILBERTO ANTONIO SANCHEZ 1 1928/08/13 E01 1 Z00 0 0 050601023 050601042 92
838 42 3 1 5 111 1 0101193000125 ELIDA BALA RODRIGUEZ 2 1930/02/19 H01 1 Z00 3891 289 050101111 050103042 91
839 42 2 1 5 67 1 0101192900243 MELIDA CONSUELO ANARIBA 2 1929/11/08 E01 1 Z00 0 0 050101067 050102042 91
840 42 2 1 5 67 1 0101192800039 LILLIAN BETTY MEZA BALTODANO 2 1928/01/30 H01 1 Z00 3777 98 050101067 050102042 93
841 43 1 1 1 31 1 0101192300301 FAUSTO BETANCOURT MONCADA 1 1923/10/10 H01 1 Z00 154 161 010101031 010101043 97
842 44 1 7 1 8 1 0101192400121 MARIA PADILLA MIRALDA 2 1924/07/21 H01 1 Z00 680 106 010701008 010701044 96
843 44 1 7 1 8 1 0101192500232 RAUL CANALES 1 1925/07/02 H01 1 Z00 675 178 010701008 010701044 95
844 44 1 7 1 8 1 0101192100214 ALICIA MARIANA BUSTILLO 2 1921/08/03 H01 1 Z00 675 123 010701008 010701044 99
845 45 3 1 8 268 1 0101192800345 LIA MERCEDES CASTILLO CARBAJAL 2 1928/09/24 H01 1 Z00 9633 116 080101268 080103045 92
846 45 1 7 1 8 1 0101192800138 ANA JOSEFA CERRATO LAITANA 2 1928/03/26 H01 1 Z00 675 326 010701008 010701045 92
847 45 3 1 8 268 1 0101193100198 MARIA LAURA SALGADO CALIX 2 1931/05/11 H01 1 Z00 9637 255 080101268 080103045 89
848 45 3 1 8 268 1 0101192900011 LILIA RIVERA FIALLOS 2 1929/03/28 E01 1 Z00 0 0 080101268 080103045 91
849 45 1 1 15 10 1 0101193000105 NORMA MEDINA 2 1930/02/12 H01 1 Z00 14244 294 150101010 150101045 91
850 45 2 1 8 193 1 0101193000177 MIGUEL ROBERTO MOLINA SALINAS 1 1930/09/29 H01 1 Z00 9433 28 080101193 080102045 90
851 45 1 1 8 35 1 0101192500305 JUAN QUINTIN GUTIERREZ NUÑEZ 1 1925/10/31 H01 1 Z00 8822 238 080101035 080101045 95
852 45 1 1 8 35 1 0101193000082 CONSTANTINO PEÑA AVILEZ 1 1930/02/01 H01 1 Z00 8826 139 080101035 080101045 91
853 45 2 1 5 67 1 0101192000278 ZORAIDA FLORI LOZANO 2 1920/01/17 H01 1 Z00 3773 275 050101067 050102045 101
854 46 1 1 1 33 1 0101192300316 DARIO VIVAS OVIEDO 1 1923/10/26 H01 1 Z00 186 126 010101033 010101046 97
855 46 1 1 1 33 1 0101191100110 GUILLERMO GALEAS BECERRA 1 1911/08/19 H01 1 Z00 172 138 010101033 010101046 109
856 46 1 1 1 33 1 0101192900115 EUSEBIO RODRIGUEZ DUARTE 1 1929/08/14 H01 1 Z00 182 303 010101033 010101046 91
857 46 2 1 8 195 1 0101192800217 ROBERTO JOSE ALVARENGA CASTILLO 1 1928/06/10 H01 1 Z00 9437 85 080101195 080102046 92
858 46 1 1 1 33 1 0101191800078 MANUEL DE JESUS OCAMPO CRUZ 1 1918/03/29 E01 1 Z00 0 0 010101033 010101046 102
859 46 1 1 1 33 1 0101193000428 RUFINO RAMOS TORRES 1 1930/06/05 H01 1 Z00 181 320 010101033 010101046 90
860 46 1 1 1 33 1 0101192200053 JOSEFA MARGARITA SANCHEZ 2 1922/02/23 H01 1 Z00 183 283 010101033 010101046 99
861 46 1 1 1 33 1 0101192500310 VICTOR MANUEL CASTRO 1 1925/01/05 H01 1 Z00 169 65 010101033 010101046 96
862 46 1 1 1 33 1 0101192500035 MARIA LUISA HERNANDEZ 2 1925/03/26 H01 1 Z00 174 2 010101033 010101046 95
863 46 1 1 1 33 1 0101193000373 GLORIA DE LOS SANTOS SOLIS LOBO 2 1930/04/19 H01 1 Z00 184 166 010101033 010101046 90
864 46 1 1 1 33 1 0101193100096 MARTHA ESMERALDA CORDOVA FLORES 2 1931/02/24 H01 1 Z00 169 299 010101033 010101046 90
865 47 1 4 18 32 1 0101193100166 ELVIA DOLORES MARTINEZ CERRATO 2 1931/04/24 H01 1 Z00 17242 109 180401032 180401047 89
866 48 1 1 1 33 1 0101192300294 HECTOR DAVID FERNANDEZ ROMERO 1 1923/10/04 E01 1 Z00 0 0 010101033 010101048 97
867 48 4 1 5 150 1 0101192800311 JOSE TONG CORDOVA 1 1928/08/25 E01 1 Z00 0 0 050101150 050104048 92
868 48 1 12 5 26 1 0101192900267 NORMA ADELA DUNKAN AGUIRRE 2 1929/12/10 H01 1 Z00 6511 211 051201026 051201048 91
869 49 1 1 1 35 1 0101192900173 ROSA EMERITA URBINA NUÑEZ 2 1929/09/25 H01 1 Z00 193 257 010101035 010101049 91
870 49 1 1 1 35 1 0101192900153 JACINTA BARRIOS NIETO 2 1929/09/11 H01 1 Z00 190 161 010101035 010101049 91
871 50 5 1 5 220 1 0101193100385 OLGA LEONOR VALLECILLO FERNANDEZ 2 1931/09/18 H01 1 Z00 4397 53 050101220 050105050 89
872 50 1 1 1 35 1 0101192300300 FRANCISCO HERNANDEZ 1 1923/02/01 H01 1 Z00 191 166 010101035 010101050 98
873 51 3 1 8 270 1 0101193100394 NORMAN LUIS RICE CACERES 1 1931/09/28 H01 1 Z00 9642 41 080101270 080103051 89
874 51 2 1 8 196 1 0101192500270 HECTOR SANTOS DELGADO 1 1925/10/14 H01 1 Z00 9448 34 080101196 080102051 95
875 51 3 1 8 270 1 0101192900168 DORIS RICE CACERES 2 1929/09/18 E01 1 Z00 0 0 080101270 080103051 91
876 53 4 1 5 156 1 0101192200313 ROSARIO CHAVEZ MC NAB 2 1922/11/14 E01 1 Z00 0 0 050101156 050104053 98
877 53 5 1 5 224 1 0101192900259 CARLOS ANTONIO ESTRADA CORDOVA 1 1929/08/30 H01 1 Z00 4409 338 050101224 050105053 91
878 54 3 1 8 273 1 0101192900158 GLORIA EGUIGURE 2 1929/09/05 H01 1 Z00 9656 170 080101273 080103054 91
879 55 1 1 5 24 1 0101192700046 EVELYN SAYBE CASSIS 2 1923/07/16 H01 1 Z00 3609 164 050101024 050101055 97
880 55 1 1 1 36 1 0101192900258 NORMA CECILIA ANTUNEZ 2 1929/10/22 E01 1 Z00 0 0 010101036 010101055 91
881 55 1 1 1 36 1 0101192700008 MARCOS GARRIDO VALLADAREZ 1 1927/08/24 H01 1 Z00 202 3 010101036 010101055 93
882 56 1 1 1 36 1 0101192200051 BERTA MARINA PADILLA DAMAS 2 1922/02/18 E01 1 Z00 0 0 010101036 010101056 99
883 56 1 1 1 36 1 0101193000299 CARLOS AUGUSTO MORADEL HERNANDEZ 1 1930/12/15 H01 1 Z00 208 205 010101036 010101056 90
884 57 1 1 1 36 1 0101192800174 MARIA DE LA CRUZ DIAZ RUIZ 2 1928/05/03 H01 1 Z00 199 274 010101036 010101057 92
885 57 5 1 8 446 1 0101191600121 JUANA EVANGELISTA CANELAS SANTOS 2 1916/12/26 H01 1 Z00 10406 209 080101446 080105057 104
886 58 1 1 5 26 1 0101192100024 VICTOR PEDRO YUJA BARJUM 1 1921/01/11 E01 1 Z00 0 0 050101026 050101058 100
887 59 2 1 8 202 1 0101192100207 CIRA EMELINA RIVERA MATUTE 2 1921/08/03 E01 1 Z00 0 0 080101202 080102059 99
888 59 2 1 8 202 1 0101193000212 MARIA TERESA CACERES MEDINA 2 1930/10/17 E01 1 Z00 0 0 080101202 080102059 90
889 60 1 12 5 35 1 0101193000016 OLGA LIDIA SANCHEZ ARGUETA 2 1929/12/28 H01 1 Z00 6558 263 051201035 051201060 91
890 60 3 1 8 277 1 0101192900023 JULIAN CABALLERO ARZU 1 1929/04/12 E01 1 Z00 0 0 080101277 080103060 91
891 60 3 1 8 277 1 0101193000048 LUIS FELIPE VALENCIA MEJIA 1 1930/01/08 H01 1 Z00 9701 348 080101277 080103060 91
892 61 4 1 5 150 1 0101193100455 ALEJANDRO DE JESUS LOBO 1 1931/11/08 H01 1 Z00 4086 121 050101150 050104061 89
893 63 1 1 5 28 1 0101193000002 ADALBERTO CUELLAR MAYEN 1 1929/12/31 E01 1 Z00 0 0 050101028 050101063 91
894 63 1 1 1 36 1 0101193100215 URBANO GARCIA RAUDALES 1 1931/06/06 H01 1 Z00 201 292 010101036 010101063 89
895 64 1 1 1 28 1 0101192800027 GUMERSINDA REYES VALERIANO 2 1928/01/13 H01 1 Z00 138 20 010101028 010101064 93
896 64 1 1 1 28 1 0101192900061 VICENTE DIAZ AVENDAÑO 1 1929/07/09 H01 1 Z00 128 322 010101028 010101064 91
897 64 1 1 1 28 1 0101191900189 EDUARDO HERNAN MEN MARADIAGA 1 1919/01/02 H01 1 Z00 134 81 010101028 010101064 102
898 64 1 1 1 28 1 0101192100096 SOLEDAD PALMA 2 1921/03/21 H01 1 Z00 136 270 010101028 010101064 99
899 65 1 4 18 80 1 0101192100345 CARMEN MENDEZ 2 1921/12/17 E01 1 Z00 0 0 180401080 180401065 99
900 65 1 1 1 40 1 0101192800411 FRANCISCO JAVIER MURILLO BONILLA 1 1928/12/03 E01 1 Z00 0 0 010101040 010101065 92
901 65 1 1 1 40 1 0101192500216 BLANCA MALBINA AGUILAR 2 1925/08/25 H01 1 Z00 218 43 010101040 010101065 95
902 65 1 1 1 40 1 0101192800232 MARIA LUISA MACOY CARIAS 2 1928/06/15 H01 1 Z00 224 75 010101040 010101065 92
903 65 1 1 1 40 1 0101193000422 RAFAEL GUILLERMO RICO FERRARI 1 1930/06/04 H01 1 Z00 228 344 010101040 010101065 90
904 65 1 1 1 40 1 0101191700196 MARIA DE LOS SANTOS MUNGUIA MARTINEZ 2 1917/10/28 H01 1 Z00 226 203 010101040 010101065 103
905 65 1 1 1 40 1 0101193100317 JULIO MC COY 1 1931/08/14 H01 1 Z00 225 48 010101040 010101065 89
906 65 2 1 5 83 1 0101193000361 GRACIELA MENDOZA MARIN 2 1930/04/21 E01 1 Z00 0 0 050101083 050102065 90
907 65 1 4 18 80 1 0101193000062 ESTELA AURORA ALONZO PUERTO 2 1930/01/21 H01 1 Z00 17385 31 180401080 180401065 91
908 65 1 1 1 40 1 0101192300081 MELIDA MARTINEZ BLANCO 2 1923/03/10 E01 1 Z00 0 0 010101040 010101065 98
909 66 1 1 1 36 1 0101192200310 CECILIA SOSA 2 1922/11/22 H01 1 Z00 215 162 010101036 010101066 98
910 67 5 1 8 452 1 0101193100018 HUGO ROBERTO CRUZ THOMPSON 1 1931/01/06 H01 1 Z00 10426 293 080101452 080105067 90
911 72 1 1 5 33 1 0101191800193 KAWAS SAID KAWAS 1 1918/08/28 H01 1 Z00 3629 124 050101033 050101072 102
912 72 1 1 5 33 1 0101192800350 ALFONSO FLORES MOLINA 1 1928/10/08 H01 1 Z00 3628 202 050101033 050101072 92
913 73 1 1 5 33 1 0101192000112 MERCEDES ELENA SIKAFFI 2 1920/08/24 E01 1 Z00 0 0 050101033 050101073 100
914 74 1 1 5 34 1 0101192100029 ESTER ALVAREZ ORIA 2 1921/01/13 H01 1 Z00 3632 109 050101034 050101074 100
915 74 4 1 5 173 1 0101192800074 VALENTIN VIDAL CASCO LAGOS 1 1928/02/14 H01 1 Z00 4148 1 050101173 050104074 93
916 74 1 1 5 34 1 0101192300119 MARCO ANTONIO SOLIS BARAHONA 1 1923/04/03 H01 1 Z00 3639 87 050101034 050101074 97
917 75 1 1 1 42 1 0101193100177 JOSEFINA CANTARERO REYES 2 1931/05/04 H01 1 Z00 233 342 010101042 010101075 89
918 76 5 1 8 456 1 0101192100330 AMINDA GOMEZ RODRIGUEZ 2 1921/12/11 H01 1 Z00 10438 376 080101456 080105076 99
919 76 5 1 5 236 1 0101192800316 HORTENCIA DAVILA ESPINAL 2 1928/08/31 H01 1 Z00 4486 102 050101236 050105076 92
920 78 1 1 6 32 1 0101193100126 ALEJANDRO CABRERA ARGUETA 1 1931/03/11 H01 1 Z00 6754 232 060101032 060101078 90
921 79 1 1 1 42 1 0101193000486 JULIAN GARCIA 1 1930/06/24 H01 1 Z00 236 185 010101042 010101079 90
922 79 1 1 1 42 1 0101191900110 VENANCIA GUARDADO 2 1919/05/20 H01 1 Z00 237 9 010101042 010101079 101
923 79 1 1 1 42 1 0101192500261 JOSEFINA MEJIA MOYA 2 1925/10/07 E01 1 Z00 0 0 010101042 010101079 95
924 79 1 1 1 42 1 0101192300061 LUISA ANTONIA GARCIA 2 1923/02/18 H01 1 Z00 236 188 010101042 010101079 98
925 79 1 1 1 42 1 0101193000102 DELMIRA ROSA CARCAMO ALONZO 2 1930/02/06 H01 1 Z00 233 358 010101042 010101079 91
926 79 1 4 18 54 1 0101192500177 MAGDALENA OLIVERA 2 1925/07/19 E01 1 Z00 0 0 180401054 180401079 95
927 79 1 1 1 42 1 0101192300184 RAMON ARMANDO PALMA RIVERA 1 1923/06/08 E01 1 Z00 0 0 010101042 010101079 97
928 82 1 1 1 60 1 0101193000359 JULIAN DAVID ZELAYA 1 1930/04/12 H01 1 Z00 302 329 010101060 010101082 90
929 82 1 1 1 60 1 0101192300025 ANTONIA BARAHONA HERNANDEZ 2 1923/01/20 E01 1 Z00 0 0 010101060 010101082 98
930 82 4 1 5 178 1 0101193000022 QUINTINA TEODORA DAMAS CAMPUBRI 2 1930/01/08 H01 1 Z00 4172 324 050101178 050104082 91
931 83 1 1 8 70 1 0101192400191 JOSE PASTOR AVILA 1 1924/11/13 H01 1 Z00 8950 248 080101070 080101083 96
932 84 4 1 5 180 1 0101193000456 MARIA TERESA VALLADARES 2 1930/06/22 H01 1 Z00 4206 346 050101180 050104084 90
933 85 1 1 1 44 1 0101192200281 CARLOTA MOLINA 2 1922/10/20 H01 1 Z00 247 246 010101044 010101085 98
934 85 1 1 1 44 1 0101192800207 ENRRIQUE OLIN GARCIA 1 1928/06/03 E01 1 Z00 0 0 010101044 010101085 92
935 85 1 1 1 44 1 0101192800378 CARLOS FIGUEROA FERRUFINO 1 1928/11/03 H01 1 Z00 246 260 010101044 010101085 92
936 85 1 1 1 44 1 0101191800028 MARIA DE JESUS PONCE 2 1918/02/05 H01 1 Z00 248 64 010101044 010101085 103
937 86 4 1 5 180 1 0101192100018 MANUELA MOLINA SALGADO 2 1921/01/05 E01 1 Z00 0 0 050101180 050104086 100
938 88 1 2 5 26 1 0101193100281 ERUNDINA NAVARRO CENTENO 2 1931/07/23 H01 1 Z00 5095 219 050201026 050201088 89
939 91 2 1 8 193 1 0101192200323 ELOISA MOREY MEJIA 2 1922/12/08 E01 1 Z00 0 0 080101193 080102091 98
940 92 1 2 5 32 1 0101193000151 LORENZA NATALIA SAINT CLER AGURCIA 2 1930/09/06 H01 1 Z00 5133 28 050201032 050201092 90
941 94 5 1 8 469 1 0101192300142 RAIMUNDO ENRIQUE BANEGAS JUAREZ 1 1923/05/01 H01 1 Z00 10485 108 080101469 080105094 97
942 94 1 1 1 46 1 0101192300004 MARIA CONCEPCION MEJIA URBINA 2 1923/01/26 H01 1 Z00 254 106 010101046 010101094 98
943 94 1 1 1 46 1 0101193100221 UVALDO HERNANDEZ 1 1931/05/16 E01 1 Z00 0 0 010101046 010101094 89
944 95 1 1 8 82 1 0101192900121 MARIA AUREA CHAMPSON CHAMPSON 2 1929/08/28 H01 1 Z00 8996 339 080101082 080101095 91
945 96 1 1 1 47 1 0101192100033 VICENTE DE JESUS HERRERA 1 1921/01/20 E01 1 Z00 0 0 010101047 010101096 100
946 96 1 1 1 47 1 0101192800257 GILBERTO CERRATO 1 1928/07/12 H01 1 Z00 256 289 010101047 010101096 92
947 96 1 1 1 47 1 0101192800396 CONCEPCION RODRIGUEZ 2 1928/11/21 H01 1 I10 259 323 010101047 010101096 92
948 98 1 1 1 48 1 0101192500296 REBECA LUCILA ROMERO 2 1925/10/26 E01 1 Z00 0 0 010101048 010101098 95
949 98 1 1 1 48 1 0101192100129 ALFREDO URBINA 1 1921/06/14 H01 1 Z00 264 217 010101048 010101098 99
950 98 1 1 1 48 1 0101192300348 MIGUEL ANIVAL SANCHEZ MEJIA 1 1923/11/20 E01 1 Z00 0 0 010101048 010101098 97
951 98 1 1 1 48 1 0101192900069 REINA ISABEL MURILLO CRUZ 2 1929/06/17 E01 1 Z00 0 0 010101048 010101098 91
952 99 1 1 1 49 1 0101193100310 SUSANA BARRIOS NIETO 2 1931/08/11 H01 1 Z00 265 58 010101049 010101099 89
953 100 1 1 8 79 1 0101193000450 LUZ ONDINA REYES PALMA 2 1930/06/20 H01 1 Z00 8992 331 080101079 080101100 90
954 101 1 1 1 53 1 0101192500272 MARIETA NELA BARROW 2 1925/09/25 H01 1 Z00 268 181 010101053 010101101 95
955 102 1 1 1 53 1 0101192800140 AURORA MONTIEL MATUTE 2 1928/03/29 H01 1 Z00 276 47 010101053 010101102 92
956 105 1 1 1 53 1 0101192800435 BASILIO ARZU 1 1928/12/18 E01 1 Z00 0 0 010101053 010101105 92
957 105 1 1 1 53 1 0101192200169 RAMON ROSA CARCAMO ALONZO 1 1922/06/30 E01 1 Z00 0 0 010101053 010101105 98
958 105 1 1 1 53 1 0101192300387 JOSE ELIAS ZUNIGA 1 1923/07/20 H01 1 Z00 281 332 010101053 010101105 97
959 105 1 1 1 53 1 0101192000001 OFELIA ESPINOZA RODRIGUEZ 2 1920/04/12 H01 1 Z00 271 86 010101053 010101105 100
960 105 1 1 1 53 1 0101192100289 RAFAEL ANGEL SEVILLA CALIX 1 1921/10/25 H01 1 Z00 280 93 010101053 010101105 99
961 105 1 1 1 53 1 0101192100191 JOSE ISABEL HERNANDEZ 1 1921/07/08 E01 1 Z00 0 0 010101053 010101105 99
962 105 1 1 1 53 1 0101193100170 ALBERTA CASTILLO MARTINEZ 2 1931/04/24 E01 1 Z00 0 0 010101053 010101105 89
963 105 1 1 1 53 1 0101193100268 MARIA ENRIQUETA RIVAS MENDOZA 2 1931/07/14 E01 1 Z00 0 0 010101053 010101105 89
964 105 1 1 1 53 1 0101192300281 ROGELIO MATUTE 1 1923/09/16 H01 1 Z00 275 43 010101053 010101105 97
965 106 2 1 8 235 1 0101193000044 GREGORIA ESTELA BUSTILLO ARNAO 2 1930/01/13 H01 1 Z00 9543 78 080101235 080102106 91
966 106 2 1 8 235 1 0101192900317 BERTA DE BRAM GONZALES 2 1929/01/29 H01 1 Z00 9545 4 080101235 080102106 92
967 107 1 1 1 54 1 0101192400011 JOSE RAMON REYES 1 1924/01/07 E01 1 Z00 0 0 010101054 010101107 97
968 107 1 1 8 91 1 0101193000031 RUTH DOLORES CARDONA ANDRADE 2 1929/12/31 H01 1 Z00 9025 204 080101091 080101107 91
969 108 1 1 1 44 1 0101192300196 ANGELA NUÑEZ FIGUEROA 2 1923/06/19 H01 1 Z00 247 287 010101044 010101108 97
970 109 2 1 8 238 1 0101192200037 JULIETA SANCHEZ 2 1922/01/27 H01 1 Z00 9574 282 080101238 080102109 99
971 114 1 1 1 61 1 0101192200334 SANTOS LOBO 1 1922/12/14 H01 1 Z00 309 1 010101061 010101114 98
972 116 3 1 8 319 1 0101193100044 LEONIDAS ANTONIO ZELAYA MALDONADO 1 1931/01/17 H01 1 Z00 9858 275 080101319 080103116 90
973 119 1 1 1 16 1 0101192800087 FRANCISCA LILIA CANALES POSAS 2 1928/02/22 H01 1 Z00 58 13 010101016 010101119 93
974 123 1 1 1 16 1 0101191200010 CARLOS FOOT BANEGAS 1 1912/12/29 E01 1 Z00 0 0 010101016 010101123 108
975 128 1 1 1 31 1 0101192200137 FELIPE NERI LOPEZ CUBAS 1 1922/05/26 H01 1 Z00 158 183 010101031 010101128 98
976 129 1 1 1 33 1 0101193000481 MANUEL MAYEN 1 1930/07/10 H01 1 Z00 177 121 010101033 010101129 90
977 131 1 1 1 36 1 0101193000128 GREGORIO VILLANUEVA TORREZ 1 1930/02/02 H01 1 Z00 217 96 010101036 010101131 91
978 131 1 1 1 36 1 0101192200325 JESUS MARTINEZ 1 1922/12/07 H01 1 Z00 205 324 010101036 010101131 98
979 140 1 1 1 36 1 0101192900120 MARIANO CHACON ALFARO 1 1929/08/19 E01 1 Z00 0 0 010101036 010101140 91
980 144 1 1 1 55 1 0101192200320 TILA ELVIA LOPEZ RIVERA 2 1922/12/04 E01 1 Z00 0 0 010101055 010101144 98
981 151 3 1 8 348 1 0101192000169 FRANCISCA ISABEL GAONA 2 1920/10/04 E01 1 Z00 0 0 080101348 080103151 100
982 172 3 1 8 530 1 0101192900004 ELISA AURORA AGUILAR MEJIA 2 1929/03/24 H01 1 Z00 10725 4 080101530 080103172 91
983 174 3 1 8 371 1 0101192800330 MARINA JULIETA PIZZATI FIALLOS 2 1928/09/14 E01 1 Z00 0 0 080101371 080103174 92
984 182 1 1 8 139 1 0101192200017 ANTONIO CASTELLON TINOCO 1 1922/01/16 H01 1 Z00 9256 197 080101139 080101182 99
985 184 3 1 8 379 1 0101193100028 MARIA DEL CARMEN VALLE GARCIA 2 1931/01/09 H01 1 Z00 10122 41 080101379 080103184 90
986 190 3 1 8 383 1 0101193000171 EMILIO ZAVALA 1 1930/09/26 H01 1 Z00 10143 301 080101383 080103190 90
987 203 3 1 8 392 1 0101193000137 WILBERTO ARISTIDES NUILA CRUZ 1 1930/08/31 E01 1 Z00 0 0 080101392 080103203 90
988 204 3 1 8 394 1 0101192100283 FRANCISCA MERIDA HERRERA ALCANTARA 2 1921/10/19 H01 1 Z00 10208 200 080101394 080103204 99
989 204 3 1 8 394 1 0101193000323 FABIO RAMON RODAS GARCIA 1 1930/03/09 H01 1 Z00 10214 6 080101394 080103204 91
990 204 3 1 8 394 1 0101192900055 HILDA ESPERANZA PAVON SANTOS 2 1929/05/04 E01 1 Z00 0 0 080101394 080103204 91
991 204 3 1 8 394 1 0101193100136 GLORIA AMPARO HERNANDEZ FIGUEROA 2 1931/03/28 E01 1 Z00 0 0 080101394 080103204 89
992 205 3 1 8 394 1 0101192500021 BERTHA ANGELICA CASTELLON 2 1925/03/05 H01 1 Z00 10204 228 080101394 080103205 96
993 207 3 1 8 397 1 0101192300333 ESTER ITALIA LEVI MARTINEZ 2 1923/10/31 H01 1 Z00 10220 204 080101397 080103207 97
994 208 3 1 8 397 1 0101192500096 ARMANDO ANTONIO MARTINEZ SOTO 1 1925/05/10 H01 1 Z00 10221 25 080101397 080103208 95
995 208 1 1 8 161 1 0101192000013 MARIA MIRTALA ACOSTA MEJIA 2 1920/04/29 E01 1 Z00 0 0 080101161 080101208 100
996 208 3 1 8 397 1 0101192100306 OLIMPIA CRESPO NINI 2 1921/06/12 H01 1 Z00 10218 316 080101397 080103208 99
997 209 3 1 8 398 1 0101192800222 TERESA ARGENTINA BLANCO PANIAGUA 2 1928/06/07 H01 1 Z00 10225 57 080101398 080103209 92
998 211 3 1 8 400 1 0101193000054 NINA BENNETT CASTELLON 2 1930/01/22 H01 1 Z00 10227 242 080101400 080103211 91
999 211 3 1 8 400 1 0101193100157 PRUDENCIA UCLES 2 1931/04/09 H01 1 Z00 10232 162 080101400 080103211 89
1000 220 3 1 8 404 1 0101192800088 LIDIA COLINDRES SOTO 2 1928/02/28 E01 1 Z00 0 0 080101404 080103220 93


Eliminemos las columnas que por el momento no son de interés: (Recordemos siempre que estamos utilizando la tabla central censal original, solo que un poco mas limpia con los criterios que aplicamos anteriormente)

tabla_chica <- tabla_grande[,-c(1:18)]
tabla_chica$clave <- paste(tabla_chica$clave_vot,tabla_chica$clave_pob, sep="")
nrow(tabla_chica)
## [1] 800
# tabla_chica <- tabla_chica[,-c(1,2)]
# tabla_chica <- tabla_chica[, c(2,1)]

tabla_chica_3 <- head(tabla_chica,10)

kbl(tabla_chica_3) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob edad clave
16 010101001 010101001 98 010101001010101001
20 010101001 010101001 100 010101001010101001
49 010101001 010101001 96 010101001010101001
71 010101001 010101001 99 010101001010101001
77 010101001 010101001 90 010101001010101001
86 010101001 010101001 92 010101001010101001
88 010102003 010104001 89 010102003010104001
100 010102003 010104001 104 010102003010104001
107 010101001 010101001 91 010101001010101001
112 010101001 010101001 95 010101001010101001


Tenemos que construir una tabla raiz para los merges consecutivos que generaremos. lo haremos con la función unique:

tabla_raiz <- tabla_chica[,-c(3)]
tabla_raiz <- unique(tabla_raiz)
tabla_raiz_008 <- tabla_raiz[1:100,]

kbl(tabla_raiz_008) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave_vot clave_pob clave
16 010101001 010101001 010101001010101001
88 010102003 010104001 010102003010104001
114 110102006 110102001 110102006110102001
128 110202002 110203001 110202002110203001
160 110402001 110401001 110402001110401001
161 061102001 061101001 061102001061101001
162 020502001 020501001 020502001020501001
168 010602004 010610001 010602004010610001
175 010102006 010112001 010102006010112001
176 010602001 010601001 010602001010601001
192 010202001 010201001 010202001010201001
194 180202001 180201001 180202001180201001
199 110302001 110301001 110302001110301001
200 020802001 020801001 020802001020801001
201 010402014 010425001 010402014010425001
209 010102008 010117001 010102008010117001
220 050101001 050101001 050101001050101001
222 110101001 110101001 110101001110101001
223 020202001 020218001 020202001020218001
235 010102010 010121001 010102010010121001
238 010402011 010421001 010402011010421001
240 010802010 010825001 010802010010825001
245 010802011 010827001 010802011010827001
246 050902013 050902001 050902013050902001
248 180702020 180729001 180702020180729001
249 050202019 050229001 050202019050229001
252 180402024 180440001 180402024180440001
253 080102044 080144001 080102044080144001
254 010702027 010744001 010702027010744001
255 180702029 180750001 180702029180750001
258 180702036 180760001 180702036180760001
259 152302015 152363001 152302015152363001
260 200301001 200301001 200301001200301001
267 150802001 150801001 150802001150801001
268 150101001 150101001 150101001150101001
273 010102009 010107001 010102009010107001
275 010202004 010208001 010202004010208001
277 010402001 010401001 010402001010401001
278 020302004 020308001 020302004020308001
281 010302006 010324001 010302006010324001
283 110102007 110109001 110102007110109001
284 010602003 010609001 010602003010609001
288 010202005 010210001 010202005010210001
290 082602001 082601001 082602001082601001
291 020502005 020511001 020502005020511001
292 010202009 010211001 010202009010211001
294 010502001 010501001 010502001010501001
295 080101242 080103001 080101242080103001
296 010102009 010119001 010102009010119001
299 010302001 010301001 010302001010301001
301 020502013 020513001 020502013020513001
302 010502007 010514001 010502007010514001
306 080102004 080104001 080102004080104001
308 151602001 151601001 151602001151601001
312 010102007 010116001 010102007010116001
330 010102002 010102001 010102002010102001
331 180701001 180701001 180701001180701001
335 080102011 080112001 080102011080112001
336 010402028 010406001 010402028010406001
340 010102012 010113001 010102012010113001
342 081702006 081706001 081702006081706001
344 010102004 010118001 010102004010118001
347 151802005 151806001 151802005151806001
348 020802026 020819001 020802026020819001
349 010202012 010212001 010202012010212001
352 082302001 082301001 082302001082301001
354 050101187 050185001 050101187050185001
355 020902005 020904001 020902005020904001
356 180402018 180429001 180402018180429001
364 180702018 180727001 180702018180727001
367 020102005 020105001 020102005020105001
368 110102002 110105001 110102002110105001
371 020802018 020831001 020802018020831001
372 080102064 080138001 080102064080138001
374 010102013 010115001 010102013010115001
377 180702031 180752001 180702031180752001
378 010702033 010757001 010702033010757001
379 020402001 020401001 020402001020401001
385 020502002 020506001 020502002020506001
386 200401001 200401001 200401001200401001
390 050101116 050104001 050101116050104001
395 020202013 020203001 020202013020203001
397 010102005 010108001 010102005010108001
403 020802038 020816001 020802038020816001
408 010302016 010328001 010302016010328001
414 041302009 041309002 041302009041309002
415 050101086 050183002 050101086050183002
416 080101406 080105002 080101406080105002
417 010101001 010101002 010101001010101002
418 080102048 080115002 080102048080115002
419 110302009 110301002 110302009110301002
420 020101002 020101002 020101002020101002
423 010102008 010117002 010102008010117002
425 050101187 050185002 050101187050185002
426 020102016 020108003 020102016020108003
427 010101001 010101003 010101001010101003
433 050101260 050107003 050101260050107003
434 010101061 010101004 010101061010101004
435 010402016 010406004 010402016010406004
436 050902003 050905004 050902003050905004


Encontremos las edades maximas y minimas del dataset:

# max(tabla_chica$edades)
# min(tabla_chica$edades)


Debemos ejecutar un primer calculo y sobre esa tabla raiz ir generando sucesivamente los merges

generemos de nuevo el calculo para la edad 90 anios:

a <- tabla_chica$clave_vot
b <- tabla_chica$clave_pob
c <- tabla_chica$edad
ggg_90 <- aggregate(tabla_chica, list(a,b, c == 90),length)
ggg_90 <- filter(ggg_90, ggg_90$Group.3 == TRUE)
ggg_90$clave <- paste(ggg_90$Group.1,ggg_90$Group.2, sep="")
ggg_90 <- ggg_90[,-c(3:5)]
# names(ggg)[1] <- "local_votacion"
# names(ggg)[2] <- "poblado"
# names(ggg)[3] <- "cantidad por edad"
# names(ggg)[4] <- "clave"
# ggg <- ggg[,c(1,2,4,3)]
ggg_ggg_001 <- head(ggg_90,10)

kbl(ggg_ggg_001) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
Group.1 Group.2 edad clave
010101001 010101001 5 010101001010101001
010101001 010101002 1 010101001010101002
010101001 010101003 2 010101001010101003
010101061 010101004 3 010101061010101004
010101006 010101006 3 010101006010101006
010101007 010101007 2 010101007010101007
010101022 010101010 2 010101022010101010
010101022 010101014 1 010101022010101014
010101008 010101015 4 010101008010101015
010101015 010101016 2 010101015010101016

generemos de nuevo el calculo para la edad 91 anios:

a <- tabla_chica$clave_vot
b <- tabla_chica$clave_pob
c <- tabla_chica$edad
ggg_91 <- aggregate(tabla_chica, list(a,b, c == 91),length)
ggg_91 <- filter(ggg_91, ggg_91$Group.3 == TRUE)
ggg_91$clave <- paste(ggg_91$Group.1,ggg_91$Group.2, sep="")
ggg_91 <- ggg_91[,-c(3:5)]
# names(ggg)[1] <- "local_votacion"
# names(ggg)[2] <- "poblado"
# names(ggg)[3] <- "cantidad por edad"
# names(ggg)[4] <- "clave"
# ggg <- ggg[,c(1,2,4,3)]
ggg_ggg_001 <- head(ggg_91,10)

kbl(ggg_ggg_001) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
Group.1 Group.2 edad clave
010101001 010101001 4 010101001010101001
010101001 010101002 1 010101001010101002
010101001 010101003 1 010101001010101003
010101061 010101004 2 010101061010101004
010101005 010101005 4 010101005010101005
010101006 010101006 2 010101006010101006
010101007 010101007 2 010101007010101007
010101008 010101009 1 010101008010101009
010101010 010101011 1 010101010010101011
010101012 010101013 1 010101012010101013

generemos de nuevo el calculo para la edad 92 anios:

a <- tabla_chica$clave_vot
b <- tabla_chica$clave_pob
c <- tabla_chica$edad
ggg_92 <- aggregate(tabla_chica, list(a,b, c == 92),length)
ggg_92 <- filter(ggg_92, ggg_92$Group.3 == TRUE)
ggg_92$clave <- paste(ggg_92$Group.1,ggg_92$Group.2, sep="")
ggg_92 <- ggg_92[,-c(3:5)]
# names(ggg)[1] <- "local_votacion"
# names(ggg)[2] <- "poblado"
# names(ggg)[3] <- "cantidad por edad"
# names(ggg)[4] <- "clave"
# ggg <- ggg[,c(1,2,4,3)]
ggg_ggg_001 <- head(ggg_92,10)

kbl(ggg_ggg_001) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
Group.1 Group.2 edad clave
010101001 010101001 1 010101001010101001
010101001 010101002 1 010101001010101002
010101001 010101003 1 010101001010101003
010101006 010101006 1 010101006010101006
010101007 010101007 2 010101007010101007
010101008 010101009 1 010101008010101009
010101008 010101015 3 010101008010101015
010101020 010101024 1 010101020010101024
010101021 010101025 3 010101021010101025
010101022 010101026 1 010101022010101026

generemos de nuevo el calculo para la edad 93 anios:

a <- tabla_chica$clave_vot
b <- tabla_chica$clave_pob
c <- tabla_chica$edad
ggg_93 <- aggregate(tabla_chica, list(a,b, c == 93),length)
ggg_93 <- filter(ggg_93, ggg_93$Group.3 == TRUE)
ggg_93$clave <- paste(ggg_93$Group.1,ggg_93$Group.2, sep="")
ggg_93 <- ggg_93[,-c(3:5)]
# names(ggg)[1] <- "local_votacion"
# names(ggg)[2] <- "poblado"
# names(ggg)[3] <- "cantidad por edad"
# names(ggg)[4] <- "clave"
# ggg <- ggg[,c(1,2,4,3)]
ggg_ggg_001 <- head(ggg_93,10)

kbl(ggg_ggg_001) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
Group.1 Group.2 edad clave
010101001 010101001 1 010101001010101001
010101006 010101006 1 010101006010101006
010101007 010101007 1 010101007010101007
010101022 010101010 1 010101022010101010
010101015 010101018 1 010101015010101018
010101019 010101023 1 010101019010101023
010101020 010101024 2 010101020010101024
010101021 010101025 2 010101021010101025
010101024 010101028 2 010101024010101028
010101036 010101055 1 010101036010101055

Para simplificar tomemos un rango entre 80 y 100

unasecuencia <- seq(90,100)
unasecuencia
##  [1]  90  91  92  93  94  95  96  97  98  99 100

La funcion generadora de merges:

# debemos analizar la tabla madre: tabla_chica

a <- tabla_chica$clave_vot
b <- tabla_chica$clave_pob
c <- tabla_chica$edad

ggg_unido <- tabla_raiz

for(i in unasecuencia){
  
  ggg <- aggregate(tabla_chica, list(a,b, c == i),length)
  ggg <- filter(ggg, ggg$Group.3 == TRUE)
  ggg$clave <- paste(ggg$Group.1,ggg$Group.2, sep="")
  ggg <- ggg[,-c(1:5)]
  


  ggg_unido  = merge( x = ggg_unido, y = ggg, by = "clave", all.x = TRUE)
  

}

ggg_unido[is.na(ggg_unido)] <- 0

  ggg_5 <- head(ggg_unido,5)
  
  print(ggg_5)
##                clave clave_vot clave_pob edad.x edad.y edad.x edad.y edad.x
## 1 010101001010101001 010101001 010101001      5      4      1      1      1
## 2 010101001010101002 010101001 010101002      1      1      1      0      0
## 3 010101001010101003 010101001 010101003      2      1      1      0      0
## 4 010101005010101005 010101005 010101005      0      4      0      0      0
## 5 010101006010101006 010101006 010101006      3      2      1      1      0
##   edad.y edad.x edad.y edad.x edad.y edad
## 1      1      2      1      2      2    2
## 2      0      0      0      0      0    0
## 3      0      0      0      0      1    0
## 4      0      0      2      0      0    1
## 5      1      2      1      1      1    0
# names(ggg)[1] <- "local_votacion"
# names(ggg)[2] <- "poblado"
# names(ggg)[3] <- "cantidad por edad"
# names(ggg)[4] <- "clave"
# ggg <- ggg[,c(1,2,4,3)]

Crearemos una funcion que asigne nombres de columnas:

secuencia2 <- seq(90,100)
j <- 4
for(i in secuencia2){
  colnames(ggg_unido)[j] <- i
  j <- j+1
}
ggg_unido_496 <- ggg_unido[1:100,]
kbl(ggg_unido_496) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave clave_vot clave_pob 90 91 92 93 94 95 96 97 98 99 100
010101001010101001 010101001 010101001 5 4 1 1 1 1 2 1 2 2 2
010101001010101002 010101001 010101002 1 1 1 0 0 0 0 0 0 0 0
010101001010101003 010101001 010101003 2 1 1 0 0 0 0 0 0 1 0
010101005010101005 010101005 010101005 0 4 0 0 0 0 0 2 0 0 1
010101006010101006 010101006 010101006 3 2 1 1 0 1 2 1 1 1 0
010101007010101007 010101007 010101007 2 2 2 1 0 0 0 1 1 0 1
010101008010101009 010101008 010101009 0 1 1 0 0 0 0 0 0 0 0
010101008010101015 010101008 010101015 4 2 3 0 0 2 1 1 0 1 0
010101010010101011 010101010 010101011 0 1 0 0 0 0 0 0 0 0 0
010101012010101013 010101012 010101013 0 1 0 0 0 0 0 0 0 0 0
010101015010101016 010101015 010101016 2 0 0 0 0 0 0 1 1 2 0
010101015010101018 010101015 010101018 0 0 0 1 0 0 0 0 0 0 0
010101016010101019 010101016 010101019 1 1 0 0 0 1 2 1 0 1 0
010101016010101119 010101016 010101119 0 0 0 1 0 0 0 0 0 0 0
010101016010101123 010101016 010101123 0 0 0 0 0 0 0 0 0 0 0
010101017010101020 010101017 010101020 0 0 0 0 0 0 0 0 1 0 0
010101018010101022 010101018 010101022 0 0 0 0 0 0 0 0 1 0 0
010101019010101023 010101019 010101023 4 4 0 1 0 0 1 0 1 3 1
010101020010101024 010101020 010101024 2 1 1 2 0 0 0 3 1 2 2
010101021010101025 010101021 010101025 1 2 3 2 0 0 1 0 1 4 0
010101022010101010 010101022 010101010 2 0 0 1 0 0 0 1 1 2 0
010101022010101014 010101022 010101014 1 0 0 0 0 0 0 0 1 0 0
010101022010101026 010101022 010101026 2 2 1 0 1 1 2 1 1 0 0
010101023010101027 010101023 010101027 1 0 1 0 0 0 1 0 2 0 0
010101023010101030 010101023 010101030 0 0 0 0 0 0 0 1 0 0 0
010101024010101028 010101024 010101028 1 1 1 2 2 2 1 0 0 1 0
010101026010101032 010101026 010101032 2 0 0 0 1 0 0 0 1 1 0
010101028010101034 010101028 010101034 1 2 2 0 0 2 0 0 0 0 1
010101028010101064 010101028 010101064 0 1 0 1 0 0 0 0 0 1 0
010101029010101037 010101029 010101037 1 0 1 0 0 0 0 0 0 0 0
010101029010101038 010101029 010101038 0 0 0 0 0 1 0 0 0 0 0
010101030010101039 010101030 010101039 0 0 2 0 0 0 0 0 0 1 1
010101031010101041 010101031 010101041 0 0 0 0 0 0 1 0 0 0 1
010101031010101043 010101031 010101043 0 0 0 0 0 0 0 1 0 0 0
010101031010101128 010101031 010101128 0 0 0 0 0 0 0 0 1 0 0
010101033010101046 010101033 010101046 3 1 0 0 0 1 1 1 0 1 0
010101033010101048 010101033 010101048 0 0 0 0 0 0 0 1 0 0 0
010101033010101129 010101033 010101129 1 0 0 0 0 0 0 0 0 0 0
010101035010101049 010101035 010101049 0 2 0 0 0 0 0 0 0 0 0
010101035010101050 010101035 010101050 0 0 0 0 0 0 0 0 1 0 0
010101036010101033 010101036 010101033 1 0 0 0 0 0 0 0 0 0 0
010101036010101055 010101036 010101055 0 1 0 1 0 0 0 0 0 0 0
010101036010101056 010101036 010101056 1 0 0 0 0 0 0 0 0 1 0
010101036010101057 010101036 010101057 0 0 1 0 0 0 0 0 0 0 0
010101036010101063 010101036 010101063 0 0 0 0 0 0 0 0 0 0 0
010101036010101066 010101036 010101066 0 0 0 0 0 0 0 0 1 0 0
010101036010101131 010101036 010101131 0 1 0 0 0 0 0 0 1 0 0
010101036010101140 010101036 010101140 0 1 0 0 0 0 0 0 0 0 0
010101040010101065 010101040 010101065 1 0 2 0 0 1 0 0 1 0 0
010101042010101075 010101042 010101075 0 0 0 0 0 0 0 0 0 0 0
010101042010101079 010101042 010101079 1 1 0 0 0 1 0 1 1 0 0
010101044010101085 010101044 010101085 0 0 2 0 0 0 0 0 1 0 0
010101044010101108 010101044 010101108 0 0 0 0 0 0 0 1 0 0 0
010101046010101094 010101046 010101094 0 0 0 0 0 0 0 0 1 0 0
010101047010101096 010101047 010101096 0 0 2 0 0 0 0 0 0 0 1
010101048010101098 010101048 010101098 0 1 0 0 0 1 0 1 0 1 0
010101049010101099 010101049 010101099 0 0 0 0 0 0 0 0 0 0 0
010101053010101101 010101053 010101101 0 0 0 0 0 1 0 0 0 0 0
010101053010101102 010101053 010101102 0 0 1 0 0 0 0 0 0 0 0
010101053010101105 010101053 010101105 0 0 1 0 0 0 0 2 1 2 1
010101054010101107 010101054 010101107 0 0 0 0 0 0 0 1 0 0 0
010101055010101144 010101055 010101144 0 0 0 0 0 0 0 0 1 0 0
010101056010101017 010101056 010101017 1 2 0 0 0 1 0 0 0 0 0
010101060010101082 010101060 010101082 1 0 0 0 0 0 0 0 1 0 0
010101061010101004 010101061 010101004 3 2 0 0 0 3 2 3 0 0 0
010101061010101114 010101061 010101114 0 0 0 0 0 0 0 0 1 0 0
010102002010102001 010102002 010102001 0 1 0 0 0 0 0 0 0 0 0
010102003010104001 010102003 010104001 4 2 3 0 1 1 0 1 3 2 0
010102004010118001 010102004 010118001 0 0 0 0 0 0 0 0 0 0 0
010102005010108001 010102005 010108001 1 0 0 0 0 0 0 0 0 0 0
010102006010112001 010102006 010112001 0 0 1 0 0 0 0 0 0 0 0
010102006010112008 010102006 010112008 0 0 0 0 0 0 1 0 0 0 0
010102007010116001 010102007 010116001 2 0 0 0 0 0 1 1 0 1 0
010102007010116009 010102007 010116009 0 0 0 0 0 0 0 0 0 0 0
010102008010117001 010102008 010117001 4 3 2 2 0 1 1 3 2 1 2
010102008010117002 010102008 010117002 0 1 0 0 0 0 0 0 0 0 0
010102009010107001 010102009 010107001 1 0 0 0 0 0 0 0 0 0 0
010102009010119001 010102009 010119001 0 1 0 0 0 0 0 0 0 0 1
010102010010121001 010102010 010121001 1 1 0 0 0 2 2 0 1 1 0
010102010010121004 010102010 010121004 0 1 0 0 0 0 0 0 0 0 0
010102012010113001 010102012 010113001 0 0 0 0 0 0 0 0 1 0 0
010102013010115001 010102013 010115001 0 0 0 0 0 0 0 1 0 0 0
010202001010201001 010202001 010201001 0 0 0 0 0 0 0 0 0 1 0
010202004010208001 010202004 010208001 0 0 0 0 0 0 0 0 0 1 0
010202005010210001 010202005 010210001 1 0 0 0 0 1 0 0 0 0 0
010202008010201004 010202008 010201004 0 0 0 0 0 0 0 0 0 0 0
010202009010211001 010202009 010211001 1 0 0 0 0 0 0 0 0 0 0
010202012010212001 010202012 010212001 1 0 0 0 0 0 0 0 0 0 0
010302001010301001 010302001 010301001 0 0 0 0 0 0 0 0 0 0 1
010302006010324001 010302006 010324001 0 0 0 0 0 0 0 0 1 0 0
010302016010328001 010302016 010328001 0 1 0 0 0 0 0 0 0 0 0
010402001010401001 010402001 010401001 0 0 0 0 0 0 0 0 0 1 0
010402011010421001 010402011 010421001 0 0 0 0 0 0 0 1 0 0 0
010402014010425001 010402014 010425001 0 0 0 0 0 0 0 0 1 0 0
010402016010406004 010402016 010406004 0 0 0 0 0 0 0 1 0 0 0
010402028010406001 010402028 010406001 0 0 0 1 0 1 0 1 0 0 0
010402039010418010 010402039 010418010 0 0 1 0 0 0 0 0 0 0 0
010502001010501001 010502001 010501001 0 0 0 0 0 0 0 0 0 0 0
010502007010514001 010502007 010514001 1 0 0 0 0 1 0 0 0 0 0
010602001010601001 010602001 010601001 1 0 0 0 0 1 0 0 0 1 0


3.3.1 Anadimos la funcionalidad de suma de cantidades

ggg_unido$suma_cantidades_por_edad <- rowSums(ggg_unido[,4:14])

saveRDS(ggg_unido,"ggg_unido.rds")

ggg_unido_496 <- ggg_unido[1:100,]
kbl(ggg_unido_496) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave clave_vot clave_pob 90 91 92 93 94 95 96 97 98 99 100 suma_cantidades_por_edad
010101001010101001 010101001 010101001 5 4 1 1 1 1 2 1 2 2 2 22
010101001010101002 010101001 010101002 1 1 1 0 0 0 0 0 0 0 0 3
010101001010101003 010101001 010101003 2 1 1 0 0 0 0 0 0 1 0 5
010101005010101005 010101005 010101005 0 4 0 0 0 0 0 2 0 0 1 7
010101006010101006 010101006 010101006 3 2 1 1 0 1 2 1 1 1 0 13
010101007010101007 010101007 010101007 2 2 2 1 0 0 0 1 1 0 1 10
010101008010101009 010101008 010101009 0 1 1 0 0 0 0 0 0 0 0 2
010101008010101015 010101008 010101015 4 2 3 0 0 2 1 1 0 1 0 14
010101010010101011 010101010 010101011 0 1 0 0 0 0 0 0 0 0 0 1
010101012010101013 010101012 010101013 0 1 0 0 0 0 0 0 0 0 0 1
010101015010101016 010101015 010101016 2 0 0 0 0 0 0 1 1 2 0 6
010101015010101018 010101015 010101018 0 0 0 1 0 0 0 0 0 0 0 1
010101016010101019 010101016 010101019 1 1 0 0 0 1 2 1 0 1 0 7
010101016010101119 010101016 010101119 0 0 0 1 0 0 0 0 0 0 0 1
010101016010101123 010101016 010101123 0 0 0 0 0 0 0 0 0 0 0 0
010101017010101020 010101017 010101020 0 0 0 0 0 0 0 0 1 0 0 1
010101018010101022 010101018 010101022 0 0 0 0 0 0 0 0 1 0 0 1
010101019010101023 010101019 010101023 4 4 0 1 0 0 1 0 1 3 1 15
010101020010101024 010101020 010101024 2 1 1 2 0 0 0 3 1 2 2 14
010101021010101025 010101021 010101025 1 2 3 2 0 0 1 0 1 4 0 14
010101022010101010 010101022 010101010 2 0 0 1 0 0 0 1 1 2 0 7
010101022010101014 010101022 010101014 1 0 0 0 0 0 0 0 1 0 0 2
010101022010101026 010101022 010101026 2 2 1 0 1 1 2 1 1 0 0 11
010101023010101027 010101023 010101027 1 0 1 0 0 0 1 0 2 0 0 5
010101023010101030 010101023 010101030 0 0 0 0 0 0 0 1 0 0 0 1
010101024010101028 010101024 010101028 1 1 1 2 2 2 1 0 0 1 0 11
010101026010101032 010101026 010101032 2 0 0 0 1 0 0 0 1 1 0 5
010101028010101034 010101028 010101034 1 2 2 0 0 2 0 0 0 0 1 8
010101028010101064 010101028 010101064 0 1 0 1 0 0 0 0 0 1 0 3
010101029010101037 010101029 010101037 1 0 1 0 0 0 0 0 0 0 0 2
010101029010101038 010101029 010101038 0 0 0 0 0 1 0 0 0 0 0 1
010101030010101039 010101030 010101039 0 0 2 0 0 0 0 0 0 1 1 4
010101031010101041 010101031 010101041 0 0 0 0 0 0 1 0 0 0 1 2
010101031010101043 010101031 010101043 0 0 0 0 0 0 0 1 0 0 0 1
010101031010101128 010101031 010101128 0 0 0 0 0 0 0 0 1 0 0 1
010101033010101046 010101033 010101046 3 1 0 0 0 1 1 1 0 1 0 8
010101033010101048 010101033 010101048 0 0 0 0 0 0 0 1 0 0 0 1
010101033010101129 010101033 010101129 1 0 0 0 0 0 0 0 0 0 0 1
010101035010101049 010101035 010101049 0 2 0 0 0 0 0 0 0 0 0 2
010101035010101050 010101035 010101050 0 0 0 0 0 0 0 0 1 0 0 1
010101036010101033 010101036 010101033 1 0 0 0 0 0 0 0 0 0 0 1
010101036010101055 010101036 010101055 0 1 0 1 0 0 0 0 0 0 0 2
010101036010101056 010101036 010101056 1 0 0 0 0 0 0 0 0 1 0 2
010101036010101057 010101036 010101057 0 0 1 0 0 0 0 0 0 0 0 1
010101036010101063 010101036 010101063 0 0 0 0 0 0 0 0 0 0 0 0
010101036010101066 010101036 010101066 0 0 0 0 0 0 0 0 1 0 0 1
010101036010101131 010101036 010101131 0 1 0 0 0 0 0 0 1 0 0 2
010101036010101140 010101036 010101140 0 1 0 0 0 0 0 0 0 0 0 1
010101040010101065 010101040 010101065 1 0 2 0 0 1 0 0 1 0 0 5
010101042010101075 010101042 010101075 0 0 0 0 0 0 0 0 0 0 0 0
010101042010101079 010101042 010101079 1 1 0 0 0 1 0 1 1 0 0 5
010101044010101085 010101044 010101085 0 0 2 0 0 0 0 0 1 0 0 3
010101044010101108 010101044 010101108 0 0 0 0 0 0 0 1 0 0 0 1
010101046010101094 010101046 010101094 0 0 0 0 0 0 0 0 1 0 0 1
010101047010101096 010101047 010101096 0 0 2 0 0 0 0 0 0 0 1 3
010101048010101098 010101048 010101098 0 1 0 0 0 1 0 1 0 1 0 4
010101049010101099 010101049 010101099 0 0 0 0 0 0 0 0 0 0 0 0
010101053010101101 010101053 010101101 0 0 0 0 0 1 0 0 0 0 0 1
010101053010101102 010101053 010101102 0 0 1 0 0 0 0 0 0 0 0 1
010101053010101105 010101053 010101105 0 0 1 0 0 0 0 2 1 2 1 7
010101054010101107 010101054 010101107 0 0 0 0 0 0 0 1 0 0 0 1
010101055010101144 010101055 010101144 0 0 0 0 0 0 0 0 1 0 0 1
010101056010101017 010101056 010101017 1 2 0 0 0 1 0 0 0 0 0 4
010101060010101082 010101060 010101082 1 0 0 0 0 0 0 0 1 0 0 2
010101061010101004 010101061 010101004 3 2 0 0 0 3 2 3 0 0 0 13
010101061010101114 010101061 010101114 0 0 0 0 0 0 0 0 1 0 0 1
010102002010102001 010102002 010102001 0 1 0 0 0 0 0 0 0 0 0 1
010102003010104001 010102003 010104001 4 2 3 0 1 1 0 1 3 2 0 17
010102004010118001 010102004 010118001 0 0 0 0 0 0 0 0 0 0 0 0
010102005010108001 010102005 010108001 1 0 0 0 0 0 0 0 0 0 0 1
010102006010112001 010102006 010112001 0 0 1 0 0 0 0 0 0 0 0 1
010102006010112008 010102006 010112008 0 0 0 0 0 0 1 0 0 0 0 1
010102007010116001 010102007 010116001 2 0 0 0 0 0 1 1 0 1 0 5
010102007010116009 010102007 010116009 0 0 0 0 0 0 0 0 0 0 0 0
010102008010117001 010102008 010117001 4 3 2 2 0 1 1 3 2 1 2 21
010102008010117002 010102008 010117002 0 1 0 0 0 0 0 0 0 0 0 1
010102009010107001 010102009 010107001 1 0 0 0 0 0 0 0 0 0 0 1
010102009010119001 010102009 010119001 0 1 0 0 0 0 0 0 0 0 1 2
010102010010121001 010102010 010121001 1 1 0 0 0 2 2 0 1 1 0 8
010102010010121004 010102010 010121004 0 1 0 0 0 0 0 0 0 0 0 1
010102012010113001 010102012 010113001 0 0 0 0 0 0 0 0 1 0 0 1
010102013010115001 010102013 010115001 0 0 0 0 0 0 0 1 0 0 0 1
010202001010201001 010202001 010201001 0 0 0 0 0 0 0 0 0 1 0 1
010202004010208001 010202004 010208001 0 0 0 0 0 0 0 0 0 1 0 1
010202005010210001 010202005 010210001 1 0 0 0 0 1 0 0 0 0 0 2
010202008010201004 010202008 010201004 0 0 0 0 0 0 0 0 0 0 0 0
010202009010211001 010202009 010211001 1 0 0 0 0 0 0 0 0 0 0 1
010202012010212001 010202012 010212001 1 0 0 0 0 0 0 0 0 0 0 1
010302001010301001 010302001 010301001 0 0 0 0 0 0 0 0 0 0 1 1
010302006010324001 010302006 010324001 0 0 0 0 0 0 0 0 1 0 0 1
010302016010328001 010302016 010328001 0 1 0 0 0 0 0 0 0 0 0 1
010402001010401001 010402001 010401001 0 0 0 0 0 0 0 0 0 1 0 1
010402011010421001 010402011 010421001 0 0 0 0 0 0 0 1 0 0 0 1
010402014010425001 010402014 010425001 0 0 0 0 0 0 0 0 1 0 0 1
010402016010406004 010402016 010406004 0 0 0 0 0 0 0 1 0 0 0 1
010402028010406001 010402028 010406001 0 0 0 1 0 1 0 1 0 0 0 3
010402039010418010 010402039 010418010 0 0 1 0 0 0 0 0 0 0 0 1
010502001010501001 010502001 010501001 0 0 0 0 0 0 0 0 0 0 0 0
010502007010514001 010502007 010514001 1 0 0 0 0 1 0 0 0 0 0 2
010602001010601001 010602001 010601001 1 0 0 0 0 1 0 0 0 1 0 3


Merge entre la primera tabla y la tabla de edades:

tabla_raiz_primi.rds ggg_unido.rds

tabla_raiz_primi_1 <- read_rds("tabla_raiz_primi.rds")
ggg_unido_1 <- read_rds("ggg_unido.rds")

ggg_tabla_raiz_unido  = merge( x = tabla_raiz_primi_1, y = ggg_unido_1, by = "clave", all.x = TRUE)

ggg_unido_4967 <- ggg_tabla_raiz_unido[1:100,]
kbl(ggg_unido_4967) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
clave local_votacion.x poblado.x cantidad_de_hombres cantidad_de_mujeres cantidad_de_total cantidad_de_hab cantidad_de_inhab porcentaje porcentaje_ruralidad clave_vot clave_pob 90 91 92 93 94 95 96 97 98 99 100 suma_cantidades_por_edad
010101001010101001 010101001 010101001 209 206 415 358 0 96.000000 0 010101001 010101001 5 4 1 1 1 1 2 1 2 2 2 22
010101001010101002 010101001 010101002 15 15 30 26 0 1.333333 0 010101001 010101002 1 1 1 0 0 0 0 0 0 0 0 3
010101001010101003 010101001 010101003 23 27 50 43 0 2.666667 0 010101001 010101003 2 1 1 0 0 0 0 0 0 1 0 5
010101005010101005 010101005 010101005 40 64 104 88 0 100.000000 0 010101005 010101005 0 4 0 0 0 0 0 2 0 0 1 7
010101006010101006 010101006 010101006 50 64 114 105 0 100.000000 0 010101006 010101006 3 2 1 1 0 1 2 1 1 1 0 13
010101007010101007 010101007 010101007 59 54 113 92 0 100.000000 0 010101007 010101007 2 2 2 1 0 0 0 1 1 0 1 10
010101007010101008 010101007 010101008 1 1 2 2 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101008010101009 010101008 010101009 17 31 48 40 0 26.315790 0 010101008 010101009 0 1 1 0 0 0 0 0 0 0 0 2
010101008010101015 010101008 010101015 46 52 98 87 0 73.684211 0 010101008 010101015 4 2 3 0 0 2 1 1 0 1 0 14
010101010010101011 010101010 010101011 7 12 19 16 0 100.000000 0 010101010 010101011 0 1 0 0 0 0 0 0 0 0 0 1
010101011010101012 010101011 010101012 16 38 54 50 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101012010101013 010101012 010101013 36 28 64 56 1 100.000000 0 010101012 010101013 0 1 0 0 0 0 0 0 0 0 0 1
010101012010101071 010101012 010101071 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101012010101072 010101012 010101072 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101012010101117 010101012 010101117 2 2 4 4 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101012010101175 010101012 010101175 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101015010101016 010101015 010101016 28 32 60 48 0 75.000000 0 010101015 010101016 2 0 0 0 0 0 0 1 1 2 0 6
010101015010101018 010101015 010101018 6 11 17 16 0 25.000000 0 010101015 010101018 0 0 0 1 0 0 0 0 0 0 0 1
010101016010101019 010101016 010101019 64 68 132 112 0 80.000000 0 010101016 010101019 1 1 0 0 0 1 2 1 0 1 0 7
010101016010101118 010101016 010101118 4 4 8 7 1 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101016010101119 010101016 010101119 4 3 7 7 0 10.000000 0 010101016 010101119 0 0 0 1 0 0 0 0 0 0 0 1
010101016010101120 010101016 010101120 3 8 11 11 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101016010101121 010101016 010101121 0 2 2 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101016010101122 010101016 010101122 2 0 2 2 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101016010101123 010101016 010101123 1 1 2 1 0 10.000000 0 010101016 010101123 0 0 0 0 0 0 0 0 0 0 0 0
010101017010101020 010101017 010101020 2 7 9 9 0 100.000000 0 010101017 010101020 0 0 0 0 0 0 0 0 1 0 0 1
010101018010101021 010101018 010101021 21 14 35 30 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101018010101022 010101018 010101022 4 6 10 10 0 100.000000 0 010101018 010101022 0 0 0 0 0 0 0 0 1 0 0 1
010101018010101124 010101018 010101124 1 7 8 8 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101019010101023 010101019 010101023 86 102 188 164 0 100.000000 0 010101019 010101023 4 4 0 1 0 0 1 0 1 3 1 15
010101019010101125 010101019 010101125 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101020010101024 010101020 010101024 51 84 135 115 0 100.000000 0 010101020 010101024 2 1 1 2 0 0 0 3 1 2 2 14
010101021010101025 010101021 010101025 96 123 219 182 0 100.000000 0 010101021 010101025 1 2 3 2 0 0 1 0 1 4 0 14
010101022010101010 010101022 010101010 43 42 85 79 0 26.470588 0 010101022 010101010 2 0 0 1 0 0 0 1 1 2 0 7
010101022010101014 010101022 010101014 17 20 37 32 0 17.647059 0 010101022 010101014 1 0 0 0 0 0 0 0 1 0 0 2
010101022010101026 010101022 010101026 71 69 140 126 0 55.882353 0 010101022 010101026 2 2 1 0 1 1 2 1 1 0 0 11
010101023010101027 010101023 010101027 37 42 79 67 0 71.428571 0 010101023 010101027 1 0 1 0 0 0 1 0 2 0 0 5
010101023010101030 010101023 010101030 15 11 26 23 0 28.571429 0 010101023 010101030 0 0 0 0 0 0 0 1 0 0 0 1
010101023010101083 010101023 010101083 2 1 3 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101024010101028 010101024 010101028 98 110 208 179 1 100.000000 0 010101024 010101028 1 1 1 2 2 2 1 0 0 1 0 11
010101024010101029 010101024 010101029 1 2 3 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101026010101032 010101026 010101032 21 33 54 43 0 100.000000 0 010101026 010101032 2 0 0 0 1 0 0 0 1 1 0 5
010101026010101126 010101026 010101126 2 1 3 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101026010101127 010101026 010101127 2 1 3 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101028010101034 010101028 010101034 56 50 106 93 0 73.333333 0 010101028 010101034 1 2 2 0 0 2 0 0 0 0 1 8
010101028010101064 010101028 010101064 15 13 28 25 0 26.666667 0 010101028 010101064 0 1 0 1 0 0 0 0 0 1 0 3
010101029010101037 010101029 010101037 29 22 51 50 0 66.666667 0 010101029 010101037 1 0 1 0 0 0 0 0 0 0 0 2
010101029010101038 010101029 010101038 7 6 13 13 0 33.333333 0 010101029 010101038 0 0 0 0 0 1 0 0 0 0 0 1
010101029010101211 010101029 010101211 3 2 5 5 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101030010101039 010101030 010101039 25 26 51 47 0 100.000000 0 010101030 010101039 0 0 2 0 0 0 0 0 0 1 1 4
010101030010101040 010101030 010101040 3 3 6 6 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101031010101041 010101031 010101041 46 39 85 80 0 71.428571 0 010101031 010101041 0 0 0 0 0 0 1 0 0 0 1 2
010101031010101042 010101031 010101042 5 7 12 10 1 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101031010101043 010101031 010101043 3 3 6 6 0 14.285714 0 010101031 010101043 0 0 0 0 0 0 0 1 0 0 0 1
010101031010101128 010101031 010101128 5 4 9 9 0 14.285714 0 010101031 010101128 0 0 0 0 0 0 0 0 1 0 0 1
010101033010101046 010101033 010101046 80 84 164 146 0 83.333333 0 010101033 010101046 3 1 0 0 0 1 1 1 0 1 0 8
010101033010101047 010101033 010101047 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101033010101048 010101033 010101048 14 3 17 14 0 8.333333 0 010101033 010101048 0 0 0 0 0 0 0 1 0 0 0 1
010101033010101129 010101033 010101129 9 11 20 19 0 8.333333 0 010101033 010101129 1 0 0 0 0 0 0 0 0 0 0 1
010101033010101130 010101033 010101130 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101034010101044 010101034 010101044 5 5 10 9 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101034010101054 010101034 010101054 1 1 2 2 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101035010101049 010101035 010101049 6 11 17 16 0 66.666667 0 010101035 010101049 0 2 0 0 0 0 0 0 0 0 0 2
010101035010101050 010101035 010101050 5 2 7 7 0 33.333333 0 010101035 010101050 0 0 0 0 0 0 0 0 1 0 0 1
010101035010101052 010101035 010101052 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101035010101138 010101035 010101138 4 4 8 7 1 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101036010101033 010101036 010101033 9 6 15 14 0 9.090909 0 010101036 010101033 1 0 0 0 0 0 0 0 0 0 0 1
010101036010101055 010101036 010101055 33 33 66 59 1 18.181818 0 010101036 010101055 0 1 0 1 0 0 0 0 0 0 0 2
010101036010101056 010101036 010101056 5 6 11 8 0 18.181818 0 010101036 010101056 1 0 0 0 0 0 0 0 0 1 0 2
010101036010101057 010101036 010101057 9 8 17 17 0 9.090909 0 010101036 010101057 0 0 1 0 0 0 0 0 0 0 0 1
010101036010101063 010101036 010101063 24 20 44 40 0 9.090909 0 010101036 010101063 0 0 0 0 0 0 0 0 0 0 0 0
010101036010101066 010101036 010101066 5 8 13 11 0 9.090909 0 010101036 010101066 0 0 0 0 0 0 0 0 1 0 0 1
010101036010101131 010101036 010101131 6 4 10 9 0 18.181818 0 010101036 010101131 0 1 0 0 0 0 0 0 1 0 0 2
010101036010101132 010101036 010101132 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101036010101140 010101036 010101140 2 0 2 1 0 9.090909 0 010101036 010101140 0 1 0 0 0 0 0 0 0 0 0 1
010101040010101065 010101040 010101065 55 58 113 96 0 100.000000 0 010101040 010101065 1 0 2 0 0 1 0 0 1 0 0 5
010101040010101068 010101040 010101068 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101040010101070 010101040 010101070 7 10 17 14 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101040010101073 010101040 010101073 3 4 7 6 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101040010101165 010101040 010101165 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101042010101074 010101042 010101074 2 4 6 5 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101042010101075 010101042 010101075 0 7 7 6 0 14.285714 0 010101042 010101075 0 0 0 0 0 0 0 0 0 0 0 0
010101042010101076 010101042 010101076 2 5 7 5 1 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101042010101078 010101042 010101078 1 2 3 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101042010101079 010101042 010101079 48 38 86 73 0 85.714286 0 010101042 010101079 1 1 0 0 0 1 0 1 1 0 0 5
010101042010101081 010101042 010101081 3 6 9 9 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101044010101085 010101044 010101085 21 9 30 26 0 80.000000 0 010101044 010101085 0 0 2 0 0 0 0 0 1 0 0 3
010101044010101108 010101044 010101108 1 2 3 2 0 20.000000 0 010101044 010101108 0 0 0 0 0 0 0 1 0 0 0 1
010101045010101089 010101045 010101089 7 6 13 11 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101045010101139 010101045 010101139 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101046010101094 010101046 010101094 5 8 13 12 0 100.000000 0 010101046 010101094 0 0 0 0 0 0 0 0 1 0 0 1
010101046010101095 010101046 010101095 5 5 10 10 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101046010101224 010101046 010101224 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101047010101096 010101047 010101096 17 19 36 32 0 100.000000 0 010101047 010101096 0 0 2 0 0 0 0 0 0 0 1 3
010101047010101097 010101047 010101097 2 2 4 3 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101047010101204 010101047 010101204 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101047010101226 010101047 010101226 1 0 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA
010101048010101098 010101048 010101098 13 12 25 19 0 100.000000 0 010101048 010101098 0 1 0 0 0 1 0 1 0 1 0 4
010101049010101099 010101049 010101099 6 4 10 9 0 100.000000 0 010101049 010101099 0 0 0 0 0 0 0 0 0 0 0 0
010101049010101100 010101049 010101100 0 1 1 1 0 0.000000 0 NA NA NA NA NA NA NA NA NA NA NA NA NA NA


4 Creación de pk para la tabla ‘local de votación’

(volver al índice)


i. Leemos la tabla y desplegamos los primeros 100 registros

TBL_DPGE_M_CENTRO_VOTACION <- readRDS("../../bases_de_datos/elecciones_Honduras/TBL_DPGE_M_CENTRO_VOTACION.rds")
# TBL_DPGE_M_CENTRO_VOTACION_100 <- TBL_DPGE_M_CENTRO_VOTACION[1:100,]

TBL_DPGE_M_CENTRO_VOTACION_100 <- TBL_DPGE_M_CENTRO_VOTACION

a <- head(TBL_DPGE_M_CENTRO_VOTACION_100,100)
kbl(a) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>% scroll_box(width = "100%", height = "200px")
CODIGO_DEPARTAMENTO CODIGO_MUNICIPIO CODIGO_AREA CODIGO_SECTOR_ELECTORAL CODIGO_CENTRO_VOTACION NOMBRE_CENTRO
1 1 1 1 1 CENTRO EVANGELICO BETHEL
1 1 1 5 1 ESC. COPAN GALEL
1 1 1 6 1 ESC. ATENEA
1 1 1 7 1 ESC. AGUSTO C. COELLO
1 1 1 8 1 GUARDERIA INFANTIL
1 1 1 10 1 JARDIN DE NIÑOS CLARA DE BARTON
1 1 1 11 1 LOCAL COLEGIO DE ABOGADOS
1 1 1 12 1 ESC. JUAN MANUEL GALVEZ
1 1 1 15 1 ESC. RAMON QUINTANILLA JACOME
1 1 1 16 1 ESC. RAFAELA H. RODRIGUEZ
1 1 1 17 1 JARDIN DE NIÑOS MANUEL DURON
1 1 1 18 1 INSTITUTO OFICIAL LA CEIBA
1 1 1 19 1 ESC. GUSTAVO A. CASTAÑEDA
1 1 1 20 1 CENTRO DE RECURSO PARA LA INCLUSIÓN EDUCATIVA
1 1 1 21 1 JARDIN DE NIÑOS ALFONZO GUILLEN ZELAYA
1 1 1 22 1 ESC. JOSE TRINIDAD CABAÑAS
1 1 1 23 1 ESC. JOSE CECILIO DEL VALLE
1 1 1 24 1 INST. MANUEL BONILLA
1 1 1 26 1 ESC. MARCO ANTONIO PONCE
1 1 1 28 1 ESC. RAFAEL PINEDA PONCE
1 1 1 29 1 GIMNASIO JOSE SIMON AZCONA
1 1 1 30 1 ESC. REPUBLICA DEL JAPON
1 1 1 31 1 ESC. LEMPIRA
1 1 1 33 1 ESC. JUAN PINEDA CARIAS
1 1 1 34 1 ESC. 10 DE SEPTIEMBRE
1 1 1 35 1 ESC. EVA BERTOT DE MAZIER
1 1 1 36 1 ESC. CLAUDIO BARRERA
1 1 1 40 1 ESC. POLICARPO PAZ GARCIA
1 1 1 42 1 ESC. JOSE TRINIDAD REYES
1 1 1 44 1 ESC. FERNANDO S. HENRIQUEZ
1 1 1 45 1 ESC. JESUS AGUILAR PAZ
1 1 1 46 1 ESC. RAFAEL BARDALES BUESO
1 1 1 47 1 ESC. JUANA REYES DE MARESMA
1 1 1 48 1 ESC. ENRIQUE ORTEZ PINEL
1 1 1 49 1 ESC. JOSE ARTURO SANTOS
1 1 1 53 1 ESC. JOSE VENANCIO VASQUEZ
1 1 1 54 1 ESC. MANUEL BARAHONA
1 1 1 55 1 ESC. MARCIO RENE ESPINAL
1 1 1 56 1 LOCAL CAMARA JUNIOR
1 1 1 60 1 ESC. CRISTOBAL COLON
1 1 1 61 1 ESC. RAMON MONTOYA
1 1 1 62 1 ESC. REPUBLICA DE ALEMANIA #1
1 1 1 63 1 ESC. MARGIE DIP
1 1 1 64 1 REPUBLICA DE ALEMANIA #2
1 4 1 1 1 ESC. PEDRO NUFIO
1 5 1 1 1 INST. GONZALO G. RODRIGUEZ
1 5 1 2 1 ESC. FERNANDO LAZO
1 7 1 1 1 ESC. LUIS LANDA
1 7 1 2 1 ESC. NORMAL MIXTA
1 7 1 4 1 ESC. FRANCISCO MORAZAN
1 7 1 5 1 ESC. POLICARPO BONILLA
1 7 1 7 1 ESC. EPISCOPAL ESPIRITU SANTO
1 7 1 8 1 ESC. MIXTA VICENTE CACERES
1 7 1 9 1 ESC. MARIA A. PAZ DE PRIC
1 7 1 10 1 ESC. LEMPIRA
1 7 1 11 1 JARDIN DE NIÑOS MARIA C. DE TORRES
1 7 1 12 1 ESC. ANTONIO JOSE COELLO
1 7 1 16 1 ESC. JOHN F. KENNEDY
1 7 1 17 1 ESC. MAESTROS JUBILADOS
1 7 1 20 1 ESC. POMPILIO BENJAMIN MUNGUIA
1 7 1 21 1 ESC. ZENOBIA RODAS
1 7 1 22 1 ESC. EUGENIA MADRID
1 7 1 23 1 ESC. GREVI AVELAR CHAVEZ
1 7 1 24 1 ESC. FERNANDO MARTINEZ
1 7 1 25 1 ESC. JOSE ANTONIO FUENTES POSAS
1 1 2 2 1 ESC. GUSTAVO A. MARTINEZ
1 1 2 3 1 ESC. RAMON ROSA
1 1 2 4 1 ESC. CARLOS HARTLING
1 1 2 5 1 ESC. JUAN LINDO
1 1 2 6 1 ESC. EL PROGRESO
1 1 2 7 1 ESC. RURAL MIXTA MARCO AURELIO SOTO
1 1 2 8 1 ESC. LA LIBERTAD
1 1 2 9 1 ESC. RAMON ROSA
1 1 2 10 1 ESC. MINERVA
1 1 2 11 1 ESC. JUSTO RUFINO SPILBURY
1 1 2 12 1 ESC. PEDRO NUFIO
1 1 2 13 1 ESC. 10 DE SEPTIEMBRE
1 1 2 14 1 ESC. ABRAHAM MEJIA ZERON
1 1 2 15 1 ESC. 14 DE JULIO DE 1969
1 2 2 1 1 ESC. JUAN RAMON MOLINA
1 2 2 2 1 ESC. MARCO AURELIO SOTO
1 2 2 3 1 ESC. FROYLAN TURCIOS
1 2 2 4 1 ESC. FRANCISCO MORAZAN
1 2 2 5 1 ESC. FRANCISCO MORAZAN
1 2 2 6 1 ESC. JUAN LINDO
1 2 2 7 1 ESC. MARGIE DE DIPP
1 2 2 8 1 ESC. FELIPE SANCHEZ
1 2 2 9 1 ESC. OSWALDO LOPEZ ARELLANO
1 2 2 10 1 ESC. SAN JOSE DE MONTEVIDEO
1 2 2 11 1 ESC. AUGUSTIN GONZALES TRIMINIO
1 2 2 12 1 ESC. FRANCISCO MORAZAN
1 3 2 1 1 ESC. LEMPIRA
1 3 2 2 1 ESC. 1ERO. DE OCTUBRE
1 3 2 3 1 ESC. RAMON SANABRIA ESPINAL
1 3 2 4 1 CEB. SAT. ESTEBAN GUARDIOLA
1 3 2 5 1 ESC. CARLOS IZAGUIRRE
1 3 2 6 1 ESC. RAMON ROSA
1 3 2 7 1 ESC. MANUEL BONILLA
1 3 2 8 1 ESC. MARIA DOLORES VEDOÑA
1 3 2 9 1 ESC. RAFAEL BARDALES BUESO


ii. Corregimos para CODIGO_DEPARTAMENTO_DOMICILIO.

# Corrección al codigo de DEPARTAMENTO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_dep <- rbind(df1,df2)
dic_dep   <- as.data.frame(dic_dep)
names(dic_dep)[1] <- "CODIGO_DEPARTAMENTO"
names(dic_dep)[2] <- "CODIGO_DEPARTAMENTO_nuevo"
TBL_DPGE_M_CENTRO_VOTACION_100_final  = merge( x = TBL_DPGE_M_CENTRO_VOTACION_100, y = dic_dep, by = "CODIGO_DEPARTAMENTO", all.x = TRUE)


iii. Corrección al codigo de CODIGO_MUNICIPIO_DOMICILIO

# Corrección al codigo de MUNICIPIO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic__mun <- rbind(df1,df2)
dic__mun  <- as.data.frame(dic__mun)
names(dic__mun)[1] <- "CODIGO_MUNICIPIO"
names(dic__mun)[2] <- "CODIGO_MUNICIPIO_nuevo"
TBL_DPGE_M_CENTRO_VOTACION_100_final  = merge( x = TBL_DPGE_M_CENTRO_VOTACION_100_final, y = dic__mun, by = "CODIGO_MUNICIPIO", all.x = TRUE)


iv. Corrección al codigo de CODIGO_AREA

# Corrección al codigo de AREA
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_area <- rbind(df1,df2)
dic_area  <- as.data.frame(dic_area)
names(dic_area)[1] <- "CODIGO_AREA"
names(dic_area)[2] <- "CODIGO_AREA_nuevo"
TBL_DPGE_M_CENTRO_VOTACION_100_final  = merge( x = TBL_DPGE_M_CENTRO_VOTACION_100_final, y = dic_area, by = "CODIGO_AREA", all.x = TRUE)


v. Corrección al codigo de CODIGO_SECTOR_ELECTORAL

# Corrección al codigo de sector electoral
numero1 <- seq(1, 9)
numero_1 <<- paste("00",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("0",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
numero3 <- seq(100, 1000)
numero_3 <<- paste(numero3,sep = "")
df3 <- cbind(numero3,numero_3)
dic_sect_elec <- rbind(df1,df2,df3)
dic_sect_elec <- as.data.frame(dic_sect_elec)
names(dic_sect_elec)[1] <- "CODIGO_SECTOR_ELECTORAL"
names(dic_sect_elec)[2] <- "CODIGO_SECTOR_ELECTORAL_nuevo"
TBL_DPGE_M_CENTRO_VOTACION_100_final  = merge( x = TBL_DPGE_M_CENTRO_VOTACION_100_final, y = dic_sect_elec, by = "CODIGO_SECTOR_ELECTORAL", all.x = TRUE)


vi. Unificación

TBL_DPGE_M_CENTRO_VOTACION_100_final_con_clave_vot <- unite(TBL_DPGE_M_CENTRO_VOTACION_100_final , clave_vot ,c(7,8,9,10),  sep = "", remove = T)

j933 <- head(TBL_DPGE_M_CENTRO_VOTACION_100_final_con_clave_vot,100)


kbl(j933) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)  %>% scroll_box(width = "100%", height = "200px")
CODIGO_SECTOR_ELECTORAL CODIGO_AREA CODIGO_MUNICIPIO CODIGO_DEPARTAMENTO CODIGO_CENTRO_VOTACION NOMBRE_CENTRO clave_vot
1 1 1 1 1 CENTRO EVANGELICO BETHEL 010101001
1 2 11 6 1 ESC. MONSEÑOR TURCIOS 061102001
1 2 3 6 1 ESC. MIGUEL PAZ BARAHONA 060302001
1 2 2 17 1 ESC. PEDRO NUFIO 170202001
1 2 21 13 1 ESC. JOSE TRINIDAD REYES 132102001
1 2 13 12 1 ESC. PAZ BARAHONA 121302001
1 2 16 13 1 ESC. PEDRO NUFIO 131602001
1 2 14 14 1 ESC. ENRIQUE VILLELA 141402001
1 2 3 3 1 ESC. GREGORIO DONAIRE 030302001
1 2 8 8 1 ESC. GILDA LAGOS 080802001
1 2 22 16 1 ESC. PETRONA VDA. DE BOGRAN 162202001
1 2 8 2 1 INST. 19 DE DICIEMBRE 020802001
1 2 9 4 1 ESC. RAMON ROSA 040902001
1 2 15 3 1 ESC. FRANCISCO MORAZAN 031502001
1 2 1 8 1 ESC. 21 DE OCTUBRE 080102001
1 2 10 6 1 ESC. MANUEL BONILLA 061002001
1 2 4 17 1 ESC. DIONISIO DE HERRERA 170402001
1 2 22 15 1 ESC. JOSE CECILIO DEL VALLE 152202001
1 2 19 16 1 ESC. EPAMINONDAS PORTILLO 161902001
1 2 8 4 1 ESC. JOHN F. KENNEDY 040802001
1 2 22 8 1 ESC. JUAN LINDO 082202001
1 2 11 4 1 ESC. RAMON ROSA 041102001
1 2 4 1 1 INST. REPUBLICA DE VENEZUELA 010402001
1 2 24 16 1 ESC. LEOVIGILDO PINEDA CARDONA 162402001
1 1 1 14 1 ESC. NORMAL PROF. MIGUEL ÁNGEL CHINCHILLA 140101001
1 2 9 5 1 ESC. CENTRO AMERICA 050902001
1 1 4 20 1 ESTADOS UNIDOS 200401001
1 2 22 13 1 ESC. JOSE CECILIO DEL VALLE 132202001
1 2 10 15 1 ESC. FRANCISCO MORAZAN 151002001
1 2 11 3 1 LICEO SAN ANTONIO 031102001
1 2 3 8 1 ESC. ALVARO CONTRERAS 080302001
1 2 8 18 1 GUARDERIA INFANTIL MODESTO RODAS ALVARADO 180802001
1 2 7 12 1 CENTRO COMUNAL 120702001
1 2 13 3 1 ESC. POMPILIO ORTEGA 031302001
1 2 13 15 1 ESC. FRANCISCO MORAZAN 151302001
1 2 13 10 1 ESC. PRESIDENTE SIERRA 101302001
1 2 16 4 1 INST. SAN JERÓNIMO 041602001
1 2 9 16 1 ESC. JESUS MARIA RODRIGUEZ 160902001
1 2 18 8 1 ESC. JOSE TRINIDAD CABAÑAS 081802001
1 2 12 3 1 ESC. FRANCISCO MORAZAN 031202001
1 2 25 8 1 ESC. REPUBLICA DE GUATEMALA 082502001
1 2 12 6 1 ESC. MACARIO ORTIZ MOTIÑO 061202001
1 2 14 13 1 ESC. MANUEL BONILLA 131402001
1 1 9 17 1 CEB. RAFAEL PINEDA PONCE 170901001
1 2 8 10 1 ESC. RAMON ROSA 100802001
1 1 6 18 1 INST. POLIVALENTE FRANCISCO MORAZAN 180601001
1 2 3 2 1 ESC. RODOLFO ROJAS 020302001
1 2 13 16 1 INSTITUTO TECNICO LUZ DEL VALLE 161302001
1 2 3 10 1 ESC. MARIANO VASQUEZ 100302001
1 2 21 16 1 ESC. MIGUEL PAZ BARAHONA 162102001
1 1 1 13 1 ESC. JUAN LINDO 130101001
1 2 13 8 1 ESC. PABLO ZELAYA 081302001
1 2 8 15 1 ESC. MARCO AURELIO SOTO 150802001
1 2 13 7 1 ESC. MIGUEL PAZ BARAHONA 071302001
1 1 2 15 1 INST. JOSE A. DOMINGUEZ 150201001
1 2 18 15 1 ESC. DOMINGA DE BONILLA 151802001
1 2 8 3 1 ESC. JOSE TRINIDAD REYES 030802001
1 2 13 6 1 ESC. JOSE TRINIDAD REYES 061302001
1 2 16 10 1 ESC. MIGUEL PAZ BARAHONA 101602001
1 1 11 5 1 ESC. AUGUSTO C. COELLO 051101001
1 2 11 15 1 ESC. UNION Y FUERZA 151102001
1 1 3 20 1 ESTADOS UNIDOS 200301001
1 2 16 3 1 ESC. LUIS ALONSO SUAZO 031602001
1 2 4 11 1 ESC. REPUBLICA DE HONDURAS 110402001
1 2 19 3 1 ESC. AMILCAR RIVERA CALDERON 031902001
1 2 3 1 1 ESC. LEMPIRA 010302001
1 1 24 8 1 ESC. JOSE ARTURO DUARTE 082401001
1 2 4 9 1 ESC. PRESENTACION CENTENO 090402001
1 2 5 13 1 ESC. JOSE MARIA GUILLEN 130502001
1 1 6 6 1 ESC. PEDRO NUFIO 060601001
1 1 1 3 1 ESC. GUADALUPE ULLOA 030101001
1 2 23 4 1 ESC. RENOVACION 042302001
1 1 1 11 1 ESC. JUAN BROOKS 110101001
1 2 16 15 1 ESC. REPUBLICA DE HONDURAS 151602001
1 2 2 18 1 ESC. AMELIA ROSALES 180202001
1 2 6 13 1 ESC. LEMPIRA 130602001
1 2 9 12 1 ESC. JOSE CECILIO DEL VALLE 120902001
1 2 16 12 1 ESC. 15 DE SEPTIEMBRE 121602001
1 2 8 1 1 ESC. GRACIAS A DIOS 010802001
1 2 9 7 1 ESC. FRANCISCO MORAZAN 070902001
1 2 5 17 1 ESC. FRANCISCO MORAZAN 170502001
1 2 8 7 1 ESC. MIGUEL MORAZAN 070802001
1 2 7 18 1 ESC. MANUEL DE JESUS SUBIRANA 180702001
1 1 7 1 1 ESC. LUIS LANDA 010701001
1 2 1 5 1 ESC. ARGENTINA DIAZ LOZANO 050102001
1 2 23 15 1 ESC. PRESENTACION CENTENO 152302001
1 2 7 3 1 ESC. ESPERANZA MORENO DE SANTOS 030702001
1 1 1 5 1 INST. 1ERO. DE MAYO 050101001
1 1 4 7 1 ESC. ENMA ROMERO DE CALLEJAS 070401001
1 2 23 13 1 ESC. MIGUEL MORAZAN 132302001
1 1 3 15 1 ESC. POLICARPO MELARA 150301001
1 2 19 15 1 ESC. LUX 151902001
1 2 8 6 1 ESC. PRESENTACION BARAHONA 060802001
1 1 5 5 1 ESC. MERCEDES FLORES 050501001
1 2 5 3 1 ESC. JOSE CECILIO DEL VALLE 030502001
1 2 16 16 1 ESC. MANUEL RODRIGUEZ 161602001
1 2 6 7 1 INST. REYNALDO SALINAS 070602001
1 2 2 13 1 ESC. FRANCISCO MORAZAN 130202001
1 2 17 7 1 ESC. TIBURCIO RODRIGUEZ 071702001
1 2 5 12 1 ESC. FRANCISCO MORAZAN 120502001
saveRDS(TBL_DPGE_M_CENTRO_VOTACION_100_final_con_clave_vot, "../../bases_de_datos/elecciones_Honduras/locales_de_votacion.rds")

write_xlsx(TBL_DPGE_M_CENTRO_VOTACION_100_final_con_clave_vot, "tabla_lugarvot_con_pk.xlsx")


5 Creación de pk para la tabla ‘Lugar Poblado’

(volver al índice)

i. Leemos la tabla y desplegamos los primeros 100 registros

TBL_DPGE_A_LUGAR_POBLADO <- readRDS("../../bases_de_datos/elecciones_Honduras/TBL_DPGE_A_LUGAR_POBLADO.rds")
# TBL_DPGE_A_LUGAR_POBLADO_100 <- TBL_DPGE_A_LUGAR_POBLADO[1:100,]
TBL_DPGE_A_LUGAR_POBLADO_100 <- TBL_DPGE_A_LUGAR_POBLADO
a <- head(TBL_DPGE_A_LUGAR_POBLADO_100,100)
kbl(a) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)  %>% scroll_box(width = "100%", height = "200px")
CODIGO_DEPARTAMENTO CODIGO_MUNICIPIO CODIGO_ALDEA CODIGO_LUGAR_POBLADO NOMBRE_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL
1 1 1 1 BO. LA ISLA 1 1
1 1 1 2 BO. LA BARRA 1 1
1 1 1 3 BO. LA GLORIA 1 1
1 1 1 4 BO. LA JULIA 1 61
1 1 1 5 BO. POTRERITOS 1 5
1 1 1 6 BO. EL CENTRO 1 6
1 1 1 7 BO. INGLES 1 7
1 1 1 8 BO. MEZAPAN 1 7
1 1 1 9 BO. EL IMAN 1 8
1 1 1 10 BO. LA MERCED 1 22
1 1 1 11 BO. EL HIGUERITO 1 10
1 1 1 12 COL. LOS MAESTROS O 17 DE SEPTIEMBRE 1 11
1 1 1 13 BO. BUENOS AIRES 1 12
1 1 1 14 COL. ZELAYA 1 22
1 1 1 15 COL. EL NARANJAL 1 8
1 1 1 16 COL. LA ALHAMBRA 1 15
1 1 1 17 ZONA MIRAMAR O COL. SUTRAFCO 1 56
1 1 1 18 COL. LOS LOCUTORES 1 15
1 1 1 19 COL. MIRAMAR 1 16
1 1 1 20 COL. ESQUIPULAS O LA CULATA 1 17
1 1 1 21 COL. SITRAMACSA 1 18
1 1 1 22 COL. HONDUTEL 1 18
1 1 1 23 BO. MEJIA 1 19
1 1 1 24 BO. INDEPENDENCIA 1 20
1 1 1 25 BO. SOLARES NUEVOS 1 21
1 1 1 26 BO. ALVARADO 1 22
1 1 1 27 BO. BELLA VISTA 1 23
1 1 1 28 COL. EL SAUCE 1 24
1 1 1 29 ZONA DEL SAUCE 1 24
1 1 1 30 COL. CARMEN ELENA 1 23
1 1 1 31 BO. LA BORDA 1 23
1 1 1 32 COL. LAS MERCEDES 1 26
1 1 1 33 COL. LEMPIRA 1 36
1 1 1 34 COL. SUYAPA 1 28
1 1 1 35 COL. CANADA O MONTE FRESCO 1 28
1 1 1 36 COL. ALTOS DE MIRAMAR 1 12
1 1 1 37 EL TORONJAL 1 29
1 1 1 38 COL. MIRAFLORES 1 29
1 1 1 39 COL. KAWAS O LA FLORIDA 1 30
1 1 1 40 COL. BRISAS DEL CANGREJAL 1 30
1 1 1 41 BO. SIERRA PINA 1 31
1 1 1 42 COL. IRIAS DEL ESTE 1 31
1 1 1 43 BO. SAN MIGUEL 1 31
1 1 1 44 COL. LA PRADERA 1 34
1 1 1 45 COL. LA HERMITA 1 33
1 1 1 46 COL. PIZATTY 1 33
1 1 1 47 COL. EL ROBLE 1 33
1 1 1 48 COL. SAN ISIDRO 1 33
1 1 1 49 COL. CASA BLANCA 1 35
1 1 1 50 COL. LOS BOMBEROS 1 35
1 1 1 51 COL. EL BEJUCO 1 35
1 1 1 52 COL. LA HERRADURA 1 35
1 1 1 53 COL. PLAYA DEL VENADO 1 35
1 1 1 54 COL. LA PRADERA II 1 34
1 1 1 55 COL. SAN JUDAS TADEO 1 36
1 1 1 56 COL. HERRERO 1 36
1 1 1 57 COL. LA LIBERTAD 1 36
1 1 1 58 COL. LAS PALOMAS 1 36
1 1 1 59 HACDA. LA FORTUNA 1 36
1 1 1 60 BO. CABO DE HORNO 1 36
1 1 1 61 EL ZAPOTE 1 36
1 1 1 62 EL CIELO 1 36
1 1 1 63 COL. SAN JOSE 1 36
1 1 1 64 COL. CANELA 1 28
1 1 1 65 COL. MELGAR CASTRO No. 2 1 40
1 1 1 66 COL. MERREN 1 36
1 1 1 67 PUERTO ESCONDIDO 1 40
1 1 1 68 LA PRESA 1 40
1 1 1 70 COL. VILLA LINDA No. 2 1 40
1 1 1 71 BO. LAS BRISAS 1 12
1 1 1 72 BO. LOS FUERTES 1 12
1 1 1 73 COL. RES. VILLA H 1 40
1 1 1 74 COL. SATELITE 1 42
1 1 1 75 COL. LA ESPERANZA 1 42
1 1 1 76 COL. LAS VEGAS 1 42
1 1 1 77 COL. NOE CASTILLO 1 60
1 1 1 78 COL. VILLA LOS PINOS 1 42
1 1 1 79 COL. EL DANTO 1 42
1 1 1 80 COL. SAN JUAN 1 62
1 1 1 81 EL DANTO 1 42
1 1 1 82 RES. PONCE 1 60
1 1 1 83 COL. BELLA VISTA 1 23
1 1 1 84 COL. LA FORTUNA 1 44
1 1 1 85 COL. EL DANTILLO 1 44
1 1 1 86 ESTERO PRIETO 1 44
1 1 1 87 HACDA. EL RECREO 1 44
1 1 1 88 COL. SAN MARTIN 1 62
1 1 1 89 COL. BRISAS DEL NORTE 1 45
1 1 1 90 LOS TANGOS 1 45
1 1 1 91 TOCAMACHO 1 45
1 1 1 93 PASO VEINTICINCO 1 45
1 1 1 94 COL. CLUB DE LEONES 1 46
1 1 1 95 COL. MARISOL 1 46
1 1 1 96 COL. PALMIRA 1 47
1 1 1 97 COL. LOMAS DE PALMIRA 1 47
1 1 1 98 COL. PRIMERO DE MAYO 1 48
1 1 1 99 COL. MODESTO RODAS ALVARADO 1 49
1 1 1 100 EL CURLA 1 49
1 1 1 101 COL. MIRAMONTES 1 53
1 1 1 102 COL. QUINCE DE SEPTIEMBRE 1 53


ii. Corregimos para CODIGO_DEPARTAMENTO_DOMICILIO.

# Corrección al codigo de DEPARTAMENTO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_dep <- rbind(df1,df2)
dic_dep   <- as.data.frame(dic_dep)
names(dic_dep)[1] <- "CODIGO_DEPARTAMENTO"
TBL_DPGE_A_LUGAR_POBLADO_100_final  = merge( x = TBL_DPGE_A_LUGAR_POBLADO_100, y = dic_dep, by = "CODIGO_DEPARTAMENTO", all.x = TRUE)


iii. Corrección al codigo de CODIGO_MUNICIPIO_DOMICILIO

# Corrección al codigo de MUNICIPIO
numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic__mun <- rbind(df1,df2)
dic__mun  <- as.data.frame(dic__mun)
names(dic__mun)[1] <- "CODIGO_MUNICIPIO"
names(dic__mun)[2] <- "CODIGO_MUNICIPIO_nuevo"
TBL_DPGE_A_LUGAR_POBLADO_100_final  = merge( x = TBL_DPGE_A_LUGAR_POBLADO_100_final, y = dic__mun, by = "CODIGO_MUNICIPIO", all.x = TRUE)


iv. Corrección al codigo del CODIGO_ALDEA

numero1 <- seq(1, 9)
numero_1 <<- paste("0",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
dic_aldea <- rbind(df1,df2)
dic_aldea <- as.data.frame(dic_aldea)
names(dic_aldea)[1] <- "CODIGO_ALDEA"
names(dic_aldea)[2] <- "CODIGO_ALDEA_nuevo"
TBL_DPGE_A_LUGAR_POBLADO_100_final  = merge( x = TBL_DPGE_A_LUGAR_POBLADO_100_final, y = dic_aldea, by = "CODIGO_ALDEA", all.x = TRUE)


v. Corrección al codigo de lugar poblado

numero1 <- seq(1, 9)
numero_1 <<- paste("00",numero1,sep = "")
df1 <- cbind(numero1,numero_1)
numero2 <- seq(10, 99)
numero_2 <<- paste("0",numero2,sep = "")
df2 <- cbind(numero2,numero_2)
numero3 <- seq(100, 1000)
numero_3 <<- paste(numero3,sep = "")
df3 <- cbind(numero3,numero_3)
dic_lug_pobla <- rbind(df1,df2,df3)
dic_lug_pobla <- as.data.frame(dic_lug_pobla)
names(dic_lug_pobla)[1] <- "CODIGO_LUGAR_POBLADO"
names(dic_lug_pobla)[2] <- "CODIGO_LUGAR_POBLADO_nuevo"
TBL_DPGE_A_LUGAR_POBLADO_100_final = merge( x = TBL_DPGE_A_LUGAR_POBLADO_100_final, y = dic_lug_pobla, by ="CODIGO_LUGAR_POBLADO", all.x = TRUE)
a367 <- head(TBL_DPGE_A_LUGAR_POBLADO_100_final,100)



kbl(a367) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)  %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO CODIGO_DEPARTAMENTO NOMBRE_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL numero_1 CODIGO_MUNICIPIO_nuevo CODIGO_ALDEA_nuevo CODIGO_LUGAR_POBLADO_nuevo
1 1 1 1 BO. LA ISLA 1 1 01 01 01 001
1 16 6 12 SAN MIGUEL 2 7 12 06 16 001
1 12 4 7 SAN ANTONIO DE CONCHAGUA 2 16 07 04 12 001
1 9 1 17 SAN NICOLAS ARRIBA 2 31 17 01 09 001
1 12 15 4 SAN LUIS 2 1 04 15 12 001
1 32 2 5 QUEBRADA SECA 2 21 05 02 32 001
1 3 8 12 SANTA CRUZ 2 11 12 08 03 001
1 16 7 18 CAMPO NERONES 2 10 18 07 16 001
1 1 3 14 CONCEPCION 2 1 14 03 01 001
1 3 7 17 CONCEPCION DE MARIA O POTRERO 2 13 17 07 03 001
1 11 12 3 LA CANDELARIA 2 5 03 12 11 001
1 2 15 10 BAÐADEROS 2 3 10 15 02 001
1 5 9 7 EL DESHECHO 2 1 07 09 05 001
1 6 4 4 BUENA VISTA 2 3 04 04 06 001
1 7 7 18 BOCA DE MAME 2 58 18 07 07 001
1 32 1 3 PIEDRAS AZULES 2 26 03 01 32 001
1 3 12 14 EL SOCORRO 2 2 14 12 03 001
1 16 3 6 LA GUARUMA 2 9 06 03 16 001
1 3 1 3 CACAHUAPA 2 54 03 01 03 001
1 1 4 16 AZACUALPA 2 1 16 04 01 001
1 18 3 5 NUEVO TULIAN 2 10 05 03 18 001
1 2 9 8 CULGUAQUE 2 2 08 09 02 001
1 2 20 13 CONCEPCION 2 2 13 20 02 001
1 3 16 6 EL CERRO 2 4 06 16 03 001
1 26 18 16 RIO BLANCO 2 17 16 18 26 001
1 26 4 18 COL. SAN JOSE O LA TREINTA Y NUEVE 2 20 18 04 26 001
1 11 18 3 EL POTRERON 2 15 03 18 11 001
1 11 2 7 LAS LIMAS 2 7 07 02 11 001
1 2 19 13 CORANTE 2 2 13 19 02 001
1 83 1 5 BO. EL CENTRO 1 85 05 01 83 001
1 7 6 12 LAS DELICIAS 2 11 12 06 07 001
1 7 6 10 MALGUARA 2 6 10 06 07 001
1 11 24 8 LAS QUEBRADAS 2 8 08 24 11 001
1 11 11 5 LA CEBADILLA 2 11 05 11 11 001
1 16 4 18 CAMPO LAS FLORES 2 10 18 04 16 001
1 3 9 16 EL LIMON 2 6 16 09 03 001
1 7 19 16 LA VEGA 2 3 16 19 07 001
1 16 11 5 PALOS BLANCOS 2 19 05 11 16 001
1 32 3 6 SAN BENITO NUEVO 2 21 06 03 32 001
1 2 3 18 BATTAN 2 16 18 03 02 001
1 32 6 5 RIO ARRIBA 2 47 05 06 32 001
1 26 6 5 MEDINA ABAJO 1 4 05 06 26 001
1 26 3 6 LOS ESPAVELES 2 1 06 03 26 001
1 11 5 15 LA PIMIENTA 2 38 15 05 11 001
1 4 19 13 PIEDRA LARGA 2 5 13 19 04 001
1 3 6 14 EL LIMONCITO 2 4 14 06 03 001
1 6 18 4 EL PINAL 2 3 04 18 06 001
1 85 1 5 COL. SATELITE ETAPA III 1 187 05 01 85 001
1 9 13 3 LAS CRUCITAS 2 6 03 13 09 001
1 5 20 4 SAN FRANCISCO O EL EJIDO 2 4 04 20 05 001
1 86 1 5 REPARTO EL CARMEN 1 248 05 01 86 001
1 7 12 4 SAN ANDRES MINAS 2 8 04 12 07 001
1 16 5 15 LAS MINAS 2 7 15 05 16 001
1 26 3 7 LA LODOSA 2 37 07 03 26 001
1 5 12 16 LA CUCHILLA 2 4 16 12 05 001
1 9 8 17 LA LAGUNA No. 1 2 13 17 08 09 001
1 7 19 15 EL PEDREGAL 2 5 15 19 07 001
1 16 8 17 TALPETATES 2 10 17 08 16 001
1 18 3 7 EL POZO BENDITO 2 29 07 03 18 001
1 11 15 4 SAN JOAQUIN 2 5 04 15 11 001
1 6 12 4 LA ARENA 2 11 04 12 06 001
1 11 9 4 LA LAGUNA 2 5 04 09 11 001
1 4 7 4 EL CAMALOTE 2 5 04 07 04 001
1 3 22 4 LA CUMBRE 2 5 04 22 03 001
1 2 2 13 EL CARRIZAL 2 7 13 02 02 001
1 21 1 3 LA LAGUNA 2 43 03 01 21 001
1 9 20 16 PALMA REAL O EL BANCO 2 8 16 20 09 001
1 11 4 8 LODO NEGRO 2 12 08 04 11 001
1 13 26 16 LA ANGOSTURA 2 7 16 26 13 001
1 2 16 4 AGUA ZARCA 2 6 04 16 02 001
1 7 10 16 SANTA CRUZ 2 4 16 10 07 001
1 11 15 7 EL RIITO No. 1 2 6 07 15 11 001
1 16 21 16 REGADIO 2 15 16 21 16 001
1 2 16 16 BARANDILLALES 2 9 16 16 02 001
1 1 7 12 LAUTERIQUE 2 1 12 07 01 001
1 11 9 7 SAMAYARE 2 10 07 09 11 001
1 18 20 8 SAN LUIS 2 10 08 20 18 001
1 4 8 14 SANTA ROSITA 2 4 14 08 04 001
1 11 13 16 EL MANGUITO 2 2 16 13 11 001
1 7 9 8 MALHUACA NO.2 O EL LLANO 2 11 08 09 07 001
1 1 25 13 TOMALA 2 1 13 25 01 001
1 9 5 6 EL PEDREGAL 2 7 06 05 09 001
1 2 6 9 KURHPA 2 3 09 06 02 001
1 16 13 3 TALANGUITA 2 13 03 13 16 001
1 10 16 8 LA TRINIDAD 2 9 08 16 10 001
1 26 23 15 GUINEO ABAJO 2 2 15 23 26 001
1 4 3 14 TULAS 2 3 14 03 04 001
1 5 7 13 SAN JUAN JUNIGUAL 2 4 13 07 05 001
1 5 14 16 JIMILILE 2 5 16 14 05 001
1 3 13 16 ALDEA NUEVA 2 17 16 13 03 001
1 9 5 4 POTRERILLOS 2 6 04 05 09 001
1 2 14 14 AGUA CALIENTE 2 1 14 14 02 001
1 7 3 3 LAS HUERTAS 2 26 03 03 07 001
1 27 3 18 VILLA DEL CARMEN O FINCA TREINTA Y SEIS 2 10 18 03 27 001
1 3 11 7 COMUNIDAD 2 3 07 11 03 001
1 5 15 14 GUALTAYA 2 10 14 15 05 001
1 27 6 16 SAN JOSE DE COLON 2 12 16 06 27 001
1 7 14 14 PIÐUELAS 2 1 14 14 07 001
1 3 9 17 EL COMERCIO 2 3 17 09 03 001
1 11 8 15 SAN BUENAVENTURA 2 11 15 08 11 001


vi. Unificación

TBL_DPGE_A_LUGAR_POBLADO_100_final_con_clave_vot <- unite(TBL_DPGE_A_LUGAR_POBLADO_100_final, clave_pob ,c(8,9,10,11),  sep = "", remove = T)
j989 <- head(TBL_DPGE_A_LUGAR_POBLADO_100_final_con_clave_vot,5)


kbl(j989) %>% kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)  %>% scroll_box(width = "100%", height = "200px")
CODIGO_LUGAR_POBLADO CODIGO_ALDEA CODIGO_MUNICIPIO CODIGO_DEPARTAMENTO NOMBRE_LUGAR_POBLADO CODIGO_AREA CODIGO_SECTOR_ELECTORAL clave_pob
1 1 1 1 BO. LA ISLA 1 1 010101001
1 16 6 12 SAN MIGUEL 2 7 120616001
1 12 4 7 SAN ANTONIO DE CONCHAGUA 2 16 070412001
1 9 1 17 SAN NICOLAS ARRIBA 2 31 170109001
1 12 15 4 SAN LUIS 2 1 041512001
saveRDS(TBL_DPGE_A_LUGAR_POBLADO_100_final_con_clave_vot, "../../bases_de_datos/elecciones_Honduras/poblaciones.rds")

write_xlsx(TBL_DPGE_A_LUGAR_POBLADO_100_final_con_clave_vot, "tabla_lugarpob_con_pk.xlsx")



  1. la tabla de contienen los centros de votación ya conteniendo el código generado? ¿Y Tambien

  2. tabla de lugares poblados con el código generado? Igua veo que pueden generar

  3. la tabla resumen por centro de votación y

  4. la tabla resumenpor mesa.

Los campos que necesitamos (segun la imagen que le habia compartido anterioremte) para la tabla resumen por centro de votación y sus respectivos poblados son:

  • Código del Centro de Votación

  • Nombre del Centro de Votación

  • Código del Lugar Poblado

  • Nombre del Lugar Poblado

  • % de Votantes Totales del Lugar Poblado

  • Cantidad Total de Votantes del Lugar Poblado

  • Cantidad de Votantes Mujeres del Lugar Poblado

  • Cantidad de Votantes Hombres del Lugar Poblado

  • Cantidad de Votantes de 18 años del Lugar Poblado

  • Cantidad de Votantes de 19 años del Lugar Poblado

  • Cantidad de Votantes de 20 años..continua hasta la máxima de edad registrada

  • Código de Área del Lugar Poblado

  • Total habilitados del lugar poblado

  • Total ihabilitados del lugar poblado

La misma tabla anterior es la que esperamos que se genere pero a nivel de mesa de votación. Es decir que además de los campos anteriores deberá agregarse al inicio el campo de código de mesa de votación.