casen_2006 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2006_c.rds")
casen_2006 <- mutate_if(casen_2006, is.factor, as.character)
casen_2009 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2009_c.rds")
casen_2009 <- mutate_if(casen_2009, is.factor, as.character)
casen_2011 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2011_c.rds")
casen_2011 <- mutate_if(casen_2011, is.factor, as.character)
casen_2013 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2013_c.rds")
casen_2013 <- mutate_if(casen_2013, is.factor, as.character)
casen_2015 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2015_c.rds")
casen_2015 <- mutate_if(casen_2015, is.factor, as.character)
casen_2017 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2017_c.rds")
casen_2017 <- mutate_if(casen_2017, is.factor, as.character)
casen_2020 <<- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/casen/casen_2020.rds")
casen_2020 <- mutate_if(casen_2020, is.factor, as.character)

cod_com <- readRDS("C:/Users/enamo/Desktop/Shiny-R/Casen_en_pandemia_2020/codigos_comunales_2006-2020.rds") 
names(cod_com)[2] <- "comuna"

casen_2006$E1[casen_2006$E1 == "No sabe /Sin dato"] <- NA

casen_2011$e1[casen_2011$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2011$e1[casen_2011$e1 == "No, sólo lee"] <- "No"
casen_2011$e1[casen_2011$e1 == "No, ninguno"] <- "No"
casen_2011$e1[casen_2011$e1 == "No, sólo escribe"] <- "No"

casen_2013$e1[casen_2013$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2013$e1[casen_2013$e1 == "No, ninguno"] <- "No"
casen_2013$e1[casen_2013$e1 == "No, sólo lee"] <- "No"
casen_2013$e1[casen_2013$e1 == "No, sólo escribe"] <- "No"
casen_2013$e1[casen_2013$e1 == "NS/NR"] <- NA

casen_2015$e1[casen_2015$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2015$e1[casen_2015$e1 == "No, ninguno"] <- "No"
casen_2015$e1[casen_2015$e1 == "No, sólo lee"] <- "No"
casen_2015$e1[casen_2015$e1 == "No, sólo escribe"] <- "No"

casen_2017$e1[casen_2017$e1 == "Sí, lee y escribe"] <- "Sí"
casen_2017$e1[casen_2017$e1 == "No, sólo lee"] <- "No"
casen_2017$e1[casen_2017$e1 == "No, ninguno"] <- "No"
casen_2017$e1[casen_2017$e1 == "No sabe/responde"] <- NA
casen_2017$e1[casen_2017$e1 == "No, sólo escribe"] <- "No"

fn_etnia <- function(union){
union$Etnia[union$Etnia == "Aimara" ]  <- "Aymara"
union$Etnia[union$Etnia == "No pertenece a ninguno de estos pueblos indígenas" ]  <-  "No pertenece a ningún pueblo indígena" 
union$Etnia[union$Etnia == "Mapuche"]  <- "Mapuche"
union$Etnia[union$Etnia == "Diaguita"]  <- "Diaguita"
union$Etnia[union$Etnia == "Atacameño" ]  <- "Atacameño"
union$Etnia[union$Etnia == "Atacameño (Likan-Antai)" ]  <- "Atacameño"
union$Etnia[union$Etnia == "Atacameño (Likán Antai)" ]  <- "Atacameño"
union$Etnia[union$Etnia == "Atacameño (Likán-Antai)" ]  <- "Atacameño"
union$Etnia[union$Etnia == "Quechua" ]  <- "Quechua"
union$Etnia[union$Etnia == "Yámana o Yagán" ]  <- "Yagán"
union$Etnia[union$Etnia == "Yagan" ]  <- "Yagán"
union$Etnia[union$Etnia == "Yagán (Yámana)" ]  <- "Yagán"
union$Etnia[union$Etnia == "Rapa-Nui o Pascuenses"]  <- "Pascuense"
union$Etnia[union$Etnia == "Rapa-Nui"]  <- "Pascuense"
union$Etnia[union$Etnia == "Rapa Nui (Pascuense)"]  <- "Pascuense"
union$Etnia[union$Etnia == "Rapa Nui"]  <- "Pascuense"
union$Etnia[union$Etnia == "Collas"]  <- "Coya"
union$Etnia[union$Etnia == "Kawashkar o Alacalufes" ]  <- "Alacalufe"
union$Etnia[union$Etnia == "Kawashkar" ]  <- "Alacalufe"
union$Etnia[union$Etnia == "Kawésqar (Alacalufes)" ]  <- "Alacalufe"
union$Etnia[union$Etnia == "Kawésqar" ]  <- "Alacalufe"
union$Etnia[union$Etnia == "Kawaskar" ]  <- "Alacalufe"
union$Etnia[union$Etnia == "Chango" ]  <- "Chango"
union$Etnia[union$Etnia ==  "Sin dato"]  <- NA
union$Etnia[union$Etnia ==  "NS/NR"   ]  <- NA
union$Etnia[union$Etnia == "No sabe/no responde" ]  <- NA 

union <<- union
}

for (i in unique(casen_2020$r2_pais_esp)) {
  pais <- gsub("(^[[:space:]]+|[[:space:]]+$)", "", i)
  pais <- tolower(pais)
  casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == i] <- str_to_title(pais) 
} 

casen_2011$r2p_cod[casen_2011$r2p_cod == "No contesta"] <- "NS/NR"
casen_2013$r2_p_cod[casen_2013$r2_p_cod == "No contesta"] <- "NS/NR"
casen_2015$r2espp_cod[casen_2015$r2espp_cod == "No contesta"] <- "NS/NR"
casen_2017$r2_p_cod[casen_2017$r2_p_cod == "No Bien Especificado"] <- "NS/NR"
casen_2017$r2_p_cod[casen_2017$r2_p_cod == "No Responde"] <- "NS/NR"
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == "No Bien Especificado"] <- "NS/NR"
casen_2020$r2_pais_esp[casen_2020$r2_pais_esp == ""] <- NA

unique_d_2011 <- as.data.frame(unique_d_2011)
colnames(unique_d_2011)[1] <- "superduper"
unique_d_2013 <- as.data.frame(unique_d_2013)
colnames(unique_d_2013)[1] <- "superduper"
unique_d_2015 <- as.data.frame(unique_d_2015)
colnames(unique_d_2015)[1] <- "superduper"
unique_d_2017 <- as.data.frame(unique_d_2017)
colnames(unique_d_2017)[1] <- "superduper" 
 
el_total <- rbind( unique_d_2011, unique_d_2013, unique_d_2015, unique_d_2017 )
 
el_total_final <- unique(el_total)
 
el_total_final$observation <- 1:nrow(el_total_final) 
datatable(el_total_final, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
          options = list(dom = 'Bfrtip',
          buttons = list('colvis', list(extend = 'collection',
          buttons = list(
          list(extend='copy'),
          list(extend='excel',
            filename = 'tabla_Diccionario'),
          list(extend='pdf',
            filename= 'tabla_Diccionario')),
          text = 'Download')), scrollX = TRUE))

dataf1 <- data.frame()
for (n in 1:nrow(el_total_final)) { 
  dataf1 <- rbind(dataf1,paste0("m['e9com_c_cod'][m['e9com_c_cod'] ==  '",el_total_final[n,1],"']"," <- '",el_total_final[n,2],"'"))
}
dataf1 <- as.data.frame(dataf1)
write_xlsx(dataf1,"el_total_final.xlsx")
 
la_correccion <- function(m) {

m['e9com_c_cod'][m['e9com_c_cod'] ==  'NA'] <- '1'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Iquique'] <- '2'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Algarrobo'] <- '3'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santiago'] <- '4'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'El Quisco'] <- '5'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Viña del Mar'] <- '6'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Casablanca'] <- '7'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Antonio'] <- '8'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Alhué'] <- '9'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Melipilla'] <- '10'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Providencia'] <- '11'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santa Bárbara'] <- '12'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Alto Biobío'] <- '13'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coronel'] <- '14'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Ángeles'] <- '15'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Concepción'] <- '16'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Valparaíso'] <- '17'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chañaral'] <- '18'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quilaco'] <- '19'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Vallenar'] <- '20'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Alto del Carmen'] <- '21'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Serena'] <- '22'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'NS/NR'] <- '23'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Alto Hospicio'] <- '24'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Arica'] <- '25'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Peñalolén'] <- '26'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Colchane'] <- '27'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Talcahuano'] <- '28'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Copiapó'] <- '29'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Huara'] <- '30'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Camiña'] <- '31'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Extranjero'] <- '32'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ancud'] <- '33'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Temuco'] <- '34'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Valdivia'] <- '35'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Osorno'] <- '36'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puerto Montt'] <- '37'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Castro'] <- '38'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chonchi'] <- '39'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Queilén'] <- '40'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Fresia'] <- '41'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quemchi'] <- '42'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Dalcahue'] <- '43'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Andacollo'] <- '44'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coquimbo'] <- '45'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Vicuña'] <- '46'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Angol'] <- '47'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Victoria'] <- '48'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Talca'] <- '49'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Sauces'] <- '50'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Renaico'] <- '51'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Antofagasta'] <- '52'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puente Alto'] <- '53'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chillán'] <- '54'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calama'] <- '55'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tocopilla'] <- '56'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santa Juana'] <- '57'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Unión'] <- '58'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pudahuel'] <- '59'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chiguayante'] <- '60'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Renca'] <- '61'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Taltal'] <- '62'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Antuco'] <- '63'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quilleco'] <- '64'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Arauco'] <- '65'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Joaquín'] <- '66'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Estación Central'] <- '67'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Camarones'] <- '68'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Putre'] <- '69'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Independencia'] <- '70'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Reina'] <- '71'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ovalle'] <- '72'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Aysén'] <- '73'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coyhaique'] <- '74'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Maipú'] <- '75'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calbuco'] <- '76'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Buin'] <- '77'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Florida'] <- '78'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Talagante'] <- '79'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Cisterna'] <- '80'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cerrillos'] <- '81'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Paine'] <- '82'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Las Condes'] <- '83'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Bernardo'] <- '84'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Bulnes'] <- '85'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chillán Viejo'] <- '86'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Ignacio'] <- '87'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cabildo'] <- '88'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Ligua'] <- '89'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Felipe'] <- '90'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Andes'] <- '91'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quillota'] <- '92'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cabrero'] <- '93'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Yumbel'] <- '94'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hualpén'] <- '95'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Combarbalá'] <- '96'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pedro'] <- '97'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puerto Varas'] <- '98'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Frutillar'] <- '99'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Rengo'] <- '100'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Mariquina'] <- '101'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Caldera'] <- '102'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calera'] <- '103'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hijuelas'] <- '104'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Nogales'] <- '105'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Cruz'] <- '106'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calera de Tango'] <- '107'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Peñaflor'] <- '108'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ñuñoa'] <- '109'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Miguel'] <- '110'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Isla de Maipo'] <- '111'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Macul'] <- '112'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calle Larga'] <- '113'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Canela'] <- '114'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Illapel'] <- '115'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Vilos'] <- '116'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cañete'] <- '117'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Álamos'] <- '118'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curanilahue'] <- '119'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Carahue'] <- '120'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Nueva Imperial'] <- '121'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cholchol'] <- '122'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tirúa'] <- '123'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Saavedra'] <- '124'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cartagena'] <- '125'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Recoleta'] <- '126'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'El Tabo'] <- '127'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curaco de Vélez'] <- '128'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Vitacura'] <- '129'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Llaillay'] <- '130'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Catemu'] <- '131'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cauquenes'] <- '132'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Linares'] <- '133'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Panguipulli'] <- '134'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ninhue'] <- '135'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lo Prado'] <- '136'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quinta Normal'] <- '137'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cerro Navia'] <- '138'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Parral'] <- '139'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chanco'] <- '140'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pelluhue'] <- '141'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pedro de la Paz'] <- '142'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Rancagua'] <- '143'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puchuncaví'] <- '144'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Diego de Almagro'] <- '145'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chépica'] <- '146'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santa Cruz'] <- '147'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curicó'] <- '148'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Fernando'] <- '149'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Pintana'] <- '150'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chimbarongo'] <- '151'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Mostazal'] <- '152'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Laja'] <- '153'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Penco'] <- '154'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chile Chico'] <- '155'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Punta Arenas'] <- '156'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cochrane'] <- '157'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Carlos'] <- '158'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pemuco'] <- '159'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Nicolás'] <- '160'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pinto'] <- '161'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Codegua'] <- '162'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Teno'] <- '163'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quinta de Tilcoco'] <- '164'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tomé'] <- '165'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Galvarino'] <- '166'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quinchao'] <- '167'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quellón'] <- '168'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cisnes'] <- '169'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cobquecura'] <- '170'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quirihue'] <- '171'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Graneros'] <- '172'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coelemu'] <- '173'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Treguaco'] <- '174'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coihueco'] <- '175'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Portezuelo'] <- '176'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coinco'] <- '177'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Olivar'] <- '178'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Machalí'] <- '179'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Doñihue'] <- '180'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Requínoa'] <- '181'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Colbún'] <- '182'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Yerbas Buenas'] <- '183'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Colina'] <- '184'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lampa'] <- '185'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quilicura'] <- '186'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Collipulli'] <- '187'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ercilla'] <- '188'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Teodoro Schmidt'] <- '189'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Coltauco'] <- '190'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Florida'] <- '191'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Conchalí'] <- '192'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Huechuraba'] <- '193'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Concón'] <- '194'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Constitución'] <- '195'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Empedrado'] <- '196'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Contulmo'] <- '197'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tierra Amarilla'] <- '198'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lota'] <- '199'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Corral'] <- '200'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Paillaco'] <- '201'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lautaro'] <- '202'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Río Ibáñez'] <- '203'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cunco'] <- '204'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Padre Las Casas'] <- '205'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curacautín'] <- '206'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Vilcún'] <- '207'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Traiguén'] <- '208'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Mulchén'] <- '209'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curacaví'] <- '210'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lebu'] <- '211'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curarrehue'] <- '212'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Villarrica'] <- '213'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pucón'] <- '214'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Freire'] <- '215'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Loncoche'] <- '216'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curepto'] <- '217'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Maule'] <- '218'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Sagrada Familia'] <- '219'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Molina'] <- '220'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Romeral'] <- '221'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'El Bosque'] <- '222'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quillón'] <- '223'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Ramón'] <- '224'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'El Carmen'] <- '225'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'El Monte'] <- '226'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Javier'] <- '227'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lumaco'] <- '228'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pichidegua'] <- '229'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pitrufquén'] <- '230'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Freirina'] <- '231'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Huasco'] <- '232'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Muermos'] <- '233'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Río Negro'] <- '234'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Purranque'] <- '235'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Futrono'] <- '236'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lanco'] <- '237'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Gorbea'] <- '238'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Placilla'] <- '239'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quilpué'] <- '240'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hualañé'] <- '241'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hualqui'] <- '242'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pozo Almonte'] <- '243'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Salamanca'] <- '244'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lago Ranco'] <- '245'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Granja'] <- '246'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Estrella'] <- '247'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Litueche'] <- '248'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Marchihue'] <- '249'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lo Espejo'] <- '250'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lo Barnechea'] <- '251'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pirque'] <- '252'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'La Higuera'] <- '253'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Monte Patria'] <- '254'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Río Bueno'] <- '255'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Los Lagos'] <- '256'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pablo'] <- '257'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Rosendo'] <- '258'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Clemente'] <- '259'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tiltil'] <- '260'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San José de Maipo'] <- '261'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Las Cabras'] <- '262'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Vicente'] <- '263'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Peumo'] <- '264'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Malloa'] <- '265'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Perquenco'] <- '266'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Licantén'] <- '267'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Limache'] <- '268'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Olmué'] <- '269'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Villa Alemana'] <- '270'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Longaví'] <- '271'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Navidad'] <- '272'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Llanquihue'] <- '273'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pedro Aguirre Cerda'] <- '274'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lolol'] <- '275'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pica'] <- '276'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lonquimay'] <- '277'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Esteban'] <- '278'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Rinconada'] <- '279'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Negrete'] <- '280'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Máfil'] <- '281'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Purén'] <- '282'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Padre Hurtado'] <- '283'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'María Elena'] <- '284'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'María Pinto'] <- '285'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Maullín'] <- '286'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Mejillones'] <- '287'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Melipeuco'] <- '288'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Nacimiento'] <- '289'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Villa Alegre'] <- '290'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Nancagua'] <- '291'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Natales'] <- '292'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ñiquén'] <- '293'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puyehue'] <- '294'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puerto Octay'] <- '295'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Punitaqui'] <- '296'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Paiguano'] <- '297'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Palmilla'] <- '298'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Panquehue'] <- '299'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Papudo'] <- '300'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Zapallar'] <- '301'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Paredones'] <- '302'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Retiro'] <- '303'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pelarco'] <- '304'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Yungay'] <- '305'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pencahue'] <- '306'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Peralillo'] <- '307'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Petorca'] <- '308'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pichilemu'] <- '309'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Porvenir'] <- '310'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quintero'] <- '311'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Juan de la Costa'] <- '312'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Pumanque'] <- '313'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Puqueldón'] <- '314'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Putaendo'] <- '315'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Ránquil'] <- '316'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Rauco'] <- '317'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Río Claro'] <- '318'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Rafael'] <- '319'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Río Hurtado'] <- '320'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santo Domingo'] <- '321'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Fabián'] <- '322'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Toltén'] <- '323'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Santa María'] <- '324'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pedro de Atacama'] <- '325'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Sierra Gorda'] <- '326'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tucapel'] <- '327'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Vichuquén'] <- '328'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'No contesta'] <- '329'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Palena'] <- '330'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Primavera'] <- '331'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Torres del Paine'] <- '332'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Gregorio'] <- '333'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Laguna Blanca'] <- '334'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'sin dato'] <- '335'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Guaitecas'] <- '336'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chaitén'] <- '337'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Tortel'] <- '338'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'General Lagos'] <- '339'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Viña Del Mar'] <- '340'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'No responde'] <- '341'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Región de Tarapacá'] <- '342'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Alto Del Carmen'] <- '343'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Cabo De Hornos'] <- '344'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Concon'] <- '345'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'No bien especificado'] <- '346'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Lago Verde'] <- '347'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Calera De Tango'] <- '348'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Región Metropolitana'] <- '349'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Curaco De Vélez'] <- '350'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Chepica'] <- '351'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pedro De La Paz'] <- '352'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Quinta De Tilcoco'] <- '353'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Requinoa'] <- '354'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Diego De Almagro'] <- '355'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Pedro De Atacama'] <- '356'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hualañe'] <- '357'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Isla De Maipo'] <- '358'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Hualaihué'] <- '359'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Rio Bueno'] <- '360'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San José De Maipo'] <- '361'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Machali'] <- '362'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Región de Magallanes'] <- '363'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'San Juan De La Costa'] <- '364'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Futaleufú'] <- '365'
m['e9com_c_cod'][m['e9com_c_cod'] ==  'Juan Fernández'] <- '366'

 
mm <<- m 
}

union <- rbind(mm_11,mm_13,mm_15,mm_17)
fn_etnia(union)

union$cod_sexo <- union$Sexo
union$cod_sexo[union$cod_sexo == "Hombre"] <- "01"
union$cod_sexo[union$cod_sexo == "Mujer"] <- "02"

union$cod_alfa <- union$`Sabe leer?`
union$cod_alfa[union$cod_alfa == "Sí"] <- "01"
union$cod_alfa[union$cod_alfa == "No"] <- "02"

Etnia <- c(sort(unique(union$Etnia)[-6]),"No pertenece a ningún pueblo indígena",NA)
Etnia<- as.data.frame(Etnia)
Etnia$cod_etnia <- paste("00",seq(1:nrow(Etnia)), sep = "")
codigos <- Etnia$cod_etnia
rango <- seq(1:nrow(Etnia))
cadena <- paste("",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(1),4)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
codigos <- cbind(Etnia,cadena)  
colnames(codigos) <- c("Etnia","cadena","cod_etnia")

tab_f <- merge(x=union, y=codigos, by="Etnia") 

tab_f <- merge(x = tab_f, y = cod_com, by = "comuna")
tab_f <- tab_f[,c(1,13,3,4,2,12,5,9,6,10,7,8)]

datatable(tab_f, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
          options = list(dom = 'Bfrtip',
          buttons = list('colvis', list(extend = 'collection',
          buttons = list(
          list(extend='copy'),
          list(extend='excel',
            filename = 'tabla_ytotcor_e5a'),
          list(extend='pdf',
            filename= 'tabla_ytotcor_e5a')),
          text = 'Download')), scrollX = TRUE))

union <- rbind(mm_11,mm_13,mm_15,mm_17)

union$cod_sexo <- union$Sexo
union$cod_sexo[union$cod_sexo == "Hombre"] <- "01"
union$cod_sexo[union$cod_sexo == "Mujer"] <- "02"

union$cod_alfa <- union$`Sabe leer?`
union$cod_alfa[union$cod_alfa == "Sí"] <- "01"
union$cod_alfa[union$cod_alfa == "No"] <- "02"

tab_f <- merge(x = union, y = cod_com, by = "comuna")
tab_f <- tab_f[,c(1,2,3,4,5,9,6,10,7,8)]

datatable(tab_f, extensions = 'Buttons', escape = FALSE, rownames = FALSE,
          options = list(dom = 'Bfrtip',
          buttons = list('colvis', list(extend = 'collection',
          buttons = list(
          list(extend='copy'),
          list(extend='excel',
            filename = 'tabla_ytotcor_e5a'),
          list(extend='pdf',
            filename= 'tabla_ytotcor_e5a')),
          text = 'Download')), scrollX = TRUE))