-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path02-Datos.Rmd
78 lines (69 loc) · 3.33 KB
/
02-Datos.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
# Base de datos {.unlisted .unnumbered}
Se define un vector llamado `tablas` que contiene los años `2010`, `2015` 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", "2015", "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_2015`, 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/IMM_", 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") %>%
filter(NOM_ENT != "Nacional") %>%
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:15) %>%
gt() %>%
tab_header(title = "Indicadores simples de marginación",
subtitle = "2020") %>%
fmt_number(columns = names(tabla_2020)[7:15],
decimals = 2) %>%
fmt_integer(columns = "POB_TOT",
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_ENT = md("**CVE_ENT**"),
NOM_ENT = md("**NOM_ENT**"),
CVE_MUN = md("**CVE_MUN**"),
NOM_MUN = md("**NOM_MUN**"),
POB_TOT = md("**POB_TOT**"),
AÑO = md("**AÑO**"),
ANALF = md("**ANALF**"),
SBASC = md("**SBASC**"),
OVSDE = md("**OVSDE**"),
OVSEE = md("**OVSEE**"),
OVSAE = md("**OVSAE**"),
VHAC = md("**VHAC**"),
OVPT= md("**OVPT**"),
PL.5000 = md("**PL.5000**"),
PO2SM = md("**PO2SM**")) %>%
cols_width(starts_with("POB") ~ px(80),
starts_with("NOM") ~ px(150),
everything() ~ px(60)) %>%
as_raw_html()
```
</div>