Índice de Transparencia en Residencias

Este apéndice en línea contiene los calculos y códigos para el índice de transparencia en residencias en España.

Image credit: Unsplash/Wilhelm Gunkel

Cálculos del Índice

# Raw Counts (estructuras, procesos, resultados)
weights1 = c(7/26, 13/26, 6/26)

df = df %>% mutate( # Raw Percentage est_perc1 = est_count / 7, pro_perc1 = pro_count / 13, res_perc1 = res_count / 6, # Adjusted Percentage est_perc2 = est_count / 3, pro_perc2 = pro_count / 11, res_perc2 = res_count / 4, ) %>% rowwise() %>% mutate( # Raw Index index_act = mean(c(est_perc1, pro_perc1, res_perc1)), # Weighted Index index_act_w = weighted.mean(c(est_perc1, pro_perc1, res_perc1), w = weights1) ) %>% ungroup() %>% mutate( # W Adjusted Index index_act_adj = (index_act_w - min(index_act_w)) / (max(index_act_w) - min(index_act_w)) )

Comunidadest_countpro_countres_countest_perc1pro_perc1res_perc1est_perc2pro_perc2res_perc2index_actindex_act_windex_act_adj
Andalucía2510.290.380.170.670.450.250.280.310.57
Aragón1010.140.000.170.330.000.250.100.080.14
Principado de Asturias2710.290.540.170.670.640.250.330.380.71
Islas Baleares2820.290.620.330.670.730.500.410.460.86
Canarias2930.290.690.500.670.820.750.490.541.00
Cantabria1220.140.150.330.330.180.500.210.190.36
Castilla y León1710.140.540.170.330.640.250.280.350.64
Castilla-La Mancha0510.000.380.170.000.450.250.180.230.43
Cataluña0310.000.230.170.000.270.250.130.150.29
Comunidad Valenciana2630.290.460.500.670.550.750.420.420.79
Extremadura1000.140.000.000.330.000.000.050.040.07
Galicia0000.000.000.000.000.000.000.000.000.00
Comunidad de Madrid1100.140.080.000.330.090.000.070.080.14
Región de Murcia2730.290.540.500.670.640.750.440.460.86
Comunidad Foral de Navarra0610.000.460.170.000.550.250.210.270.50
País Vasco2720.290.540.330.670.640.500.390.420.79
La Rioja2610.290.460.170.670.550.250.300.350.64

Resultados

La tabla y el mapa muestran los resultados del Índice de Transparencia en Residencias de Mayores (TRM) al nivel de Comunidad Autónoma. El índice esta compuesto por tres pilares: Estructuras, Procesos y Resultados. Estos pilares reflejan la cantidad de requisitos legales de transparencia que se cumplen en cada Comunidad Autónoma. Estos pilares de transparencia y sus indicadores están explicados a mayor detalle en Pérez-Durán y Hernández-Sánchez (2021). El promedio de los pilares son 0.18 en Estructuras (de 7 indicadores), 0.36 en Procesos (de 14 indicadores) y 0.23 en Resultados (de 6 indicadores). Finalmente, el promedio del Índice TRM es de tan solo 0.25. El caso de Galicia es especialmente preocupante ya que aún no se cumplen con ninguno de los 27 indicadores de transparencia.

Indice de Transparencia en Residencias de Mayores
ComunidadEstructurasProcesosResultadosIndice
Andalucía0.290.380.170.28
Aragón0.140.000.170.10
Principado de Asturias0.290.540.170.33
Islas Baleares0.290.620.330.41
Canarias0.290.690.500.49
Cantabria0.140.150.330.21
Castilla y León0.140.540.170.28
Castilla-La Mancha0.000.380.170.18
Cataluña0.000.230.170.13
Comunidad Valenciana0.290.460.500.42
Extremadura0.140.000.000.05
Galicia0.000.000.000.00
Comunidad de Madrid0.140.080.000.07
Región de Murcia0.290.540.500.44
Comunidad Foral de Navarra0.000.460.170.21
País Vasco0.290.540.330.39
La Rioja0.290.460.170.30
df %>%
  select(Comunidad, est_perc1, pro_perc1, res_perc1, index_act) %>% 
  rename(
    Estructuras = est_perc1,
    Procesos = pro_perc1,
    Resultados = res_perc1,
    Indice = index_act
  ) %>% 
  gather(Indicator, Value, Estructuras:Resultados) %>% 
  ggplot(aes(x = Comunidad, y = Value)) +
  geom_col(aes(fill = Indicator), position = "dodge") +
  geom_col(data = df, aes(x = Comunidad, y = index_act), color = "black", fill = NA) +
  geom_label(data = df, aes(x = Comunidad, y = index_act, label = round(index_act, digits = 2)), 
             color = "black",
             size = 2) +
  coord_cartesian(ylim = 0:1) +
  labs(x = NULL, y = NULL, fill = "Pilar:",
       title = "Índice de Transparencia en Residencias de Mayores",
       caption = "Fuente: Perez-Duran & Hernandez-Sanchez (2021)") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 35, size = 6.5),
        axis.ticks.x = element_line(color = "gray90"),
        axis.ticks.length.x = unit(.5, "cm"),
        panel.grid = element_blank(),
        panel.grid.major.x = element_line(color = "gray90"),
        legend.position = "top",
        plot.background = element_rect(fill = "white", color = NA)
        )  
Pilares en Comunidades Autonomas

Pilares en Comunidades Autonomas

spain_communities %>% 
  ggplot() + 
  geom_sf() + 
  geom_sf(aes(fill = index_act), show.legend = F) +   
  scale_fill_viridis_c(option = "plasma",
                       breaks=c(0,.25,.50,.75,1)) +
  geom_label(aes(X, Y, label = NAME_1, color = index_act), 
             size = 3, 
             fontface = "bold",
             show.legend = F) +
  scale_color_viridis_c(option = "plasma") +
  coord_sf(xlim = c(-19, -13),
           ylim = c(27, 30),
           expand = FALSE) +
  theme_void() +
  theme(plot.background = element_rect(fill = "aliceblue")) -> sub_map1

world %>% ggplot() + geom_sf(color = NA, fill = "antiquewhite") + geom_sf(data = spain_communities, aes(fill = index_act)) + scale_fill_viridis_c(option = "plasma", breaks=c(0,.25,.50,.75,1)) + coord_sf(xlim = c(-10, 5), ylim = c(35, 45), expand = FALSE) + geom_label(data = spain_communities, aes(X, Y, label = NAME_1, color = index_act), size = 3, fontface = "bold", show.legend = F) + scale_color_viridis_c(option = "plasma") + annotation_custom( grob = ggplotGrob(sub_map1), xmin = 0, xmax = 4, ymin = 35, ymax = 37) + theme_void() + labs(fill = "Indice: \n", title = "Índice de Transparencia en Residencias de Mayores", subtitle = sprintf("Promedio: %s, Rango: 0 - 1", round(mean(df$index_act), digits = 2)), caption = "Fuente: Perez-Duran & Hernandez-Sanchez (2021)") + theme(legend.position = "bottom", legend.key.width= unit(1, 'cm'), legend.key.height = unit(.2, 'cm'), legend.text = element_text(size = 7), panel.grid.major = element_line(color = gray(.8), linetype = "dashed", size = 0.3), panel.background = element_rect(fill = "aliceblue", color = NA), plot.background = element_rect(fill = "white", color = NA) )

Mapa de Comunidades Autonomas

Mapa de Comunidades Autonomas

Alfredo Hernandez Sanchez
Alfredo Hernandez Sanchez
Teaching Fellow

Quantitative Text Analysis, Data Visualization, Policy Evaluation

comments powered by Disqus

Related