¿Como pasar la información de SSCC a Código Postal?

El INE proporciona en el siguiente enlace una fichero del Censo Electoral que podemos utilizar para relacionar la información del código postal con las secciones censales.

Pagina web

El archivo que nos interesa y que trataremos en R es TRAMOS-NAL.

El procedimiento a seguir, se basa en tratar la información para obtener finalmente con los codigos de sección censal y sus Códigos Postales asociados.

Tratamos el fichero para quedarnos con la relación univoca de codigos postales con secciones censales

# Es un fichero tipo ASCII con formato fijo
# Los datos estan situados en columnas fijas para cada observacion
# Se necesita un codigo que indique a que columna corresponde cada variable

# Se usa la funcion read.fwf() 'fixed format data'
TRAMERO <- read.fwf("~/Documentos/R/SRC/Callejero/TRAM-NALF150630.txt", width = c(2,3,2,3,1,2,7,5,5,12,5,1,4,   1,  4,1,1,2,8,1,2,3,1,2,7,25,25,25,5,25,5,50,12,5,1,4,1,4,1),colClasses="character",n = 2000)
#asignamos los nombres las columnas
names(TRAMERO) <- c("CPRO", "CMUM", "DIST", "SECC", "LSECC",    "SUBSC",    "CUN",  "CVIA", "CPSVIA",   "MANZ", "CPOS", "TINUM",    "EIN",  "CEIN", "ESN",  "CESN", "TIPOINF",  "CDEV", "FVAR", "CVAR", "DIST", "SECC", "LSECC",    "SUBSC",    "CUN",  "NENTCCC",  "NENTSIC",  "NNCLEC",   "CVIA", "NVIAC",    "CPSVIA",   "DPSVIA",   "MANZ", "CPOS", "TINUM",    "EIN",  "CEIN", "ESN",  "CESN")

head(TRAMERO)

#solo nos interesan 
rel_sscc_cp <- as.data.frame(ftable(TRAMERO$CPRO,TRAMERO$CMUM,TRAMERO$DIST,TRAMERO$SECC, TRAMERO$CPOS))
names(rel_sscc_cp) <- c("CPRO", "CMUM", "DIST", "SECC", "CPOS")
rel_sscc_cp <- rel_sscc_cp[,-6]
head(rel_sscc_cp)