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))
)

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.

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

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