Padrón

[lefcgis]

library(foreign) library(tidyverse)

PAD_TOT <- read.dbf("../../../../../Downloads/Padron_web.dbf", as.is = T)

Mal representados los caracteres con tilde

unique(PAD_TOT$D_NIV_MOD)

[lefcgis]

[1] "Inicial - Jard\xa1n"
[2] "Primaria"
[3] "Superior Tecnol\xa2gica"
[4] "B\xa0sica Alternativa-Inicial e Intermedio" [5] "B\xa0sica Especial"
[6] "Secundaria"
[7] "B\xa0sica Alternativa-Avanzado"
[8] "Superior Pedag\xa2gica"
[9] "T\x82cnico Productiva"
[10] "Educaci\xa2n Ocupacional"
[11] "Superior Art\xa1stica"
[12] "B\xa0sica Especial-Primaria"
[13] "Inicial - Cuna-jard\xa1n"
[14] "Primaria de Adultos"
[15] "Secundaria de Adultos"
[16] "B\xa0sica Alternativa"
[17] "Inicial - Cuna"
[18] "B\xa0sica Especial-Inicial"
[19] "Inicial - Programa no escolarizado"

[lefcgis]

Fix.

sustituir <- function(text) { text <- gsub("\xa0", "á", text) text <- gsub("\x82", "é", text) text <- gsub("\xa1", "í", text) text <- gsub("\xa2", "ó", text) text <- gsub("\xa3", "ú", text) text <- gsub("\xa4", "ñ", text) }

PAD_TOT <- PAD_TOT %>% mutate_if(is.character, sustituir)

listo!

unique(PAD_TOT$D_NIV_MOD)

[lefcgis]

Parece claro queeee....

[1] "Inicial - Jardín" "Primaria"
[3] "Superior Tecnológica" "Básica Alternativa-Inicial e Intermedio" [5] "Básica Especial" "Secundaria"
[7] "Básica Alternativa-Avanzado" "Superior Pedagógica"
[9] "Técnico Productiva" "Educación Ocupacional"
[11] "Superior Artística" "Básica Especial-Primaria"
[13] "Inicial - Cuna-jardín" "Primaria de Adultos"
[15] "Secundaria de Adultos" "Básica Alternativa"
[17] "Inicial - Cuna" "Básica Especial-Inicial"
[19] "Inicial - Programa no escolarizado"