-
Notifications
You must be signed in to change notification settings - Fork 0
/
04-Distancias.Rmd
187 lines (144 loc) · 8.73 KB
/
04-Distancias.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
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
# Método de Distancias $DP2$ {.unlisted .unnumbered}
José Bernardo Pena Trapero: `Problemas de la medición del bienestar y conceptos afines (1977)`
Los métodos de distancias son enfoques utilizados para medir el bienestar o la calidad de vida de las personas a través de la comparación de diferentes dimensiones o indicadores. Estos métodos se basan en la idea de que el bienestar se puede evaluar considerando la distancia o diferencia entre los individuos en términos de ciertos atributos o variables relevantes.
La Distancia $DP_{2}$, es un indicador sintético, definido por el profesor `J. Bernardo Pena Trapero`, basado en el concepto de distancia, construido, como su nombre indica para medir distancias entre unidades geográficas, o bien, también se puede aplicar a comparaciones tanto cronológicas como interespaciales.
**Definición**
Sean:
$\:\:\circ\:r$, el número de municipios;
$\:\:\circ\:n$, el número de variables;
$\:\:\circ\:x_{ij}$, el valor de la variable j en la AGEB $i$;
$\:\:\circ\:\sigma_{j}$, La Desviación Típica de la variable $j$;
$\:\:\circ\:R^{2}_{i,i-1,...,1}$ el Coeficiente de Determinación en la Regresión de $X_{i}$ sobre $X_{i-1},X_{i-2},...,X_{1}$.
Se define la $Distancia-P_{2}$ de la forma:
\begin{align}
DP_{2}=\sum^{n}_{i=1}\frac{d_{i}}{\sigma_{i}}(1-R^{2}_{i,i-1,...,1})\:\:;\;\;con \:\:R^{2}_{1}=0
\end{align}
Donde:
$\:\:\circ\:d_{i} = d_{i}(r,*) = |x_{ri}-x_{*i}|$ |: es la distancia de la j-ésima variable del municipio $r$ con respecto a la base de referencia $x_{*}=(x_{*1}, x_{*2},..., x_{*n})$. Tomando como punto de referencia el valor mínimo de la variable, siendo esta la peor situación teórica,
$\:\:\circ\:\sigma_{i}$ : es la desviación estándar de la variable $𝑗$,
$\:\:\circ\:R^{2}_{i,i-1,...,1}$: es el coeficiente de determinación de la regresión del indicador parcial $𝑗$ con respecto a los otros indicadores $(𝑗−1,𝑗−2,…,1)$. Esta expresión es parte de la varianza del indicador parcial $I_{j}$ que se explica linealmente por el resto de los indicadores parciales,
$\:\:\circ\:(1-R^{2}_{i,i-1,...,1})$): es el factor corrector que evita la duplicidad, al eliminar la información parcial de los indicadores ya contenidos en los indicadores precedentes, y
$\:\:\circ\:R^{2}_{1}=0$; porque la primera componente aporta toda la información y al no existir un componente previo su ponderación es la unidad.
El $DP_{2}$ cumple con las siguientes propiedades: no negatividad, homogeneidad, conmutatividad, desigualdad triangular, existencia y determinación, monotonía, unicidad, transitividad, no duplicidad de información, invariancia al cambio de origen y/o de escala en las unidades y exhaustividad.
El orden de entrada de las variables
```{r}
# Se multiplica por -1, debido a que son indicadores de carencia
for(i in tablas){
assign(paste0("DP2_datos_", i), (-1 * get(paste0("tabla_", i))[11:21]))
}
```
Para asegurar las propiedades del indicador sintético, un aumento en los indicadores simples implica un aumento en la carencia de los servicios, lo que implicaría una disminución de la calidad de vida, por lo que se multiplica cada indicador por **-1**, de esta forma, un aumento en la variable supone una mejora en la calidad de vida.
## Base de referencia {-}
Se define al valor de referencia para cada uno de los indicadores parciales, con la finalidad de hacer comparaciones entre las diferentes unidades espaciales (AGBE's). Siendo este el valor mínimo de cada indicador simple como referencia, representado como la “situación no deseada”. Como resultado, un valor alto implicaría una distancia alejada con respecto a una situación teórica “situación no deseada”. Por lo tanto $d_{ij}$ mide la distancia entre el indicador parcial $j$ en la entidad $i$ y su valor de referencia.
Se toma como base de referencia el valor del mínimo del `2010 - 2020`, ya que este tipo de cambio permite la comparabilidad en el tiempo.
```{r}
#Base de referencia 2010 - 2020
for(i in tablas){
assign(paste0("minRV_", i), setNames(c(-100, # P6A14NAE
-100, # SBASC
-100, # PSDSS
-100, # OVSDE
-100, # OVSEE
-100, # OVSAE
-100, # OVPT
-98.3739837398374, # OVHAC
-100, # OVSREF
-100, # OVSINT
-100), # OVSCEL
nm = c("P6A14NAE", "SBASC", "PSDSS" ,"OVSDE", "OVSEE", "OVSAE", "OVPT", "OVHAC", "OVSREF", "OVSINT", "OVSCEL")))
}
```
```{r, echo = FALSE}
minRV <- minRV_2010 %>%
t() %>%
as.data.frame() %>%
tibble::rownames_to_column(.data = .) %>%
dplyr::mutate(rowname = case_when(rowname %in% 1 ~ "2010 - 2020")) %>%
rename("ANIO" = "rowname")
minRV %>%
rename("AÑO" = "ANIO") %>%
gt() %>%
tab_header(title = "Base de referencia") %>%
fmt_number(columns = names(tabla_2020)[11:21],
decimals = 2) %>%
tab_options(heading.title.font.size = 14,
heading.align = "center",
heading.subtitle.font.size = 12,
table.align = "center",
table.font.names = 'Century Gothic',
table.font.size = 10) %>%
tab_style(style = list(cell_text(align = "center",
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(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**")) %>%
as_raw_html()
```
## Método de Distancia $DP_{2}$ {-}
```{r, results=FALSE}
require(p2distance)
##Calculo del Método de Distancias DP2
for(i in tablas){
assign(paste0("ind_", i), p2distance(matriz = as.matrix(get(paste0("DP2_datos_", i))),
reference_vector = get(paste0("minRV_", i)),
iterations = 50))
}
```
**Total de iteraciones**
```{r, collapse=TRUE}
iteration <- lapply(1:2, function(x) get(paste0("ind_", tablas[x]))[["iteration"]])
```
```{r, echo=FALSE}
tabla <- do.call(rbind, iteration) %>%
as.data.frame() %>%
tibble::rownames_to_column(.data = .) %>%
dplyr::mutate(rowname = case_when(rowname %in% 1 ~ "2010",
rowname %in% 2 ~ "2020")) %>%
rename("ANIO" = "rowname")
tabla %>%
rename("AÑO" = "ANIO") %>%
gt() %>%
tab_header(title = "Número de iteraciones") %>%
fmt_integer(columns = "V1") %>%
tab_options(heading.title.font.size = 14,
heading.subtitle.font.size = 12,
table.font.names = 'Century Gothic',
table.align = "center",
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(AÑO = md("**AÑO**"),
V1 = md("**Iteraciones**")) %>%
as_raw_html()
```
Se anexan los resultados a las bases de datos original
```{r}
for(i in tablas){
assign(paste0("DP2_", i), cbind(get(paste0("tabla_", i)), get(paste0("ind_", i))[["p2distance"]]))
}
# Se cambian los nombres de las columnas
for(i in 1:2){
columns = get(paste0("DP2_", tablas[i]))
colnames(columns) = c("CVE_AGEB", "ENT", "NOM_ENT", "MUN", "NOM_MUN", "LOC", "NOM_LOC", "AGEB", "POB_TOTAL", "AÑO",
"P6A14NAE", "SBASC", "PSDSS", "OVSDE", "OVSEE", "OVSAE", "OVPT", "OVHAC","OVSREF", "OVSINT", "OVSCEL",
paste0("IM_", tablas[i]))
assign(paste0("DP2_", tablas[i]), columns)
rm(columns)
}
```