02-Datos.Rmd

# Base de datos {.unlisted .unnumbered}

Se define un vector llamado `tablas` que contiene los años `2010` y `2020` como cadenas de texto. Este vector se utilizará para iterar y cargar las bases de datos correspondientes a esos años. 

**Definición de tablas**   

```{r}
tablas <- c("2010", "2020")
```

**Se carga la base de datos para los 3 años**  

 Dentro del iterador `for()`, para cada año se construye el nombre del archivo de datos:    

- Obtención de la tabla: `get(paste0("tabla_", i))` obtiene la tabla cargada previamente (donde el nombre de cada tabla cargada es `tabla_2010`, `tabla_2020`, etc.).    
- Renombrando de la columna: `rename("ANIO" = "AÑO")` cambia el nombre de la columna AÑO a `ANIO`.   
- Filtrado de datos: `filter(NOM_ENT != "Nacional")` elimina las filas donde la columna `NOM_ENT` tiene el valor "Nacional".    
- Conversión de la columna a factor: `dplyr::mutate(ANIO = as.factor(.$ANIO))` convierte la columna `ANIO` en un factor. 

```{r}
for(i in tablas){
load(file = paste0(here::here(), "/Bases/IMU_", i, ".RData")) 
}

##Se cambia el nombre de la columna año, para evitar problemas de puntuación
## Se cambia la variable año a factor
for(i in tablas){
assign(paste0("tabla_", i), get(paste0("tabla_", i)) %>% 
                             rename("ANIO" = "AÑO") %>%
                              dplyr::mutate(ANIO = as.factor(.$ANIO)))
}
```

<div style="height:700px;overflow:auto;">
```{r, echo = FALSE}
require(gt)
tabla_2020 %>% 
 rename("AÑO" = "ANIO") %>%
  slice(1:20) %>%
    gt() %>%
     tab_header(title = "Indicadores simples de marginación",
                 subtitle = "2020") %>%
      fmt_number(columns = names(tabla_2020)[11:21], 
                  decimals = 2) %>%
       fmt_integer(columns = "POB_TOTAL", 
                    sep_mark = " ") %>%
        tab_options(heading.title.font.size = 14, 
                    heading.subtitle.font.size = 12,
                    table.font.names = 'Century Gothic',
                    table.font.size = 10,
                    data_row.padding = px(1)) %>%
         tab_style(style = list(cell_text(align = "left",
                                           weight = 'bold')),
                    locations = list(cells_title(groups = c("title")))) %>%
          tab_style(style = list(cell_text(align = "left")),
                     locations = list(cells_title(groups = c("subtitle")))) %>%
           cols_label(CVE_AGEB = md("**CVE_AGEB**"),
                      ENT = md("**ENT**"),
                      NOM_ENT = md("**NOM_ENT**"), 
                      MUN = md("**MUN**"), 
                      NOM_MUN = md("**NOM_MUN**"),
                      LOC = md("**LOC**"), 
                      NOM_LOC = md("**NOM_LOC**"), 
                      AGEB = md("**AGEB**"),
                      POB_TOTAL = md("**POB_TOTAL**"), 
                      AÑO = md("**AÑO**"), 
                      P6A14NAE = md("**P6A14NAE**"),
                      SBASC = md("**SBASC**"),
                      PSDSS = md("**PSDSS**"),
                      OVSDE = md("**OVSDE**"),
                      OVSEE = md("**OVSEE**"),
                      OVSAE = md("**OVSAE**"),
                      OVPT= md("**OVPT**"),
                      OVHAC = md("**OVHAC**"),
                      OVSREF = md("**OVSREF**"),
                      OVSINT = md("**OVSINT**"),
                      OVSCEL = md("**OVSCEL**")) %>%
         cols_width(starts_with("POB") ~ px(80), 
                    starts_with("NOM_LOC") ~ px(200),
                    starts_with("NOM") ~ px(150), 
                    everything() ~ px(60)) %>%
            as_raw_html() 
```
</div>