En este reporte se examina la distribución de la población de 5 años y más de edad con discapacidad en la ciudad de Asunción, según el tipo de discapacidad (motriz, visual, auditiva y cuidado personal) y el barrio de residencia, basándose en los datos del Censo Nacional de Población y Viviendas 2022.
A continuación, cargamos los datos desde la planilla Excel provista por el INE y seleccionamos los principales barrios para su análisis:
library(readxl)
library(ggplot2)
library(dplyr)
library(tidyr)
# Cargar datos desde el archivo Excel
datos <- read_excel("datos_discapacidad.xlsx", skip = 4)
# Asignar los nombres a las 6 columnas de la tabla
colnames(datos) <- c("Barrio", "Total", "Motriz", "Visual", "Auditiva", "Cuidado_Personal")
# Filtrar barrios válidos y convertir datos a formato numérico
datos_barrios <- datos %>%
filter(!is.na(Barrio), Barrio != "Total") %>%
mutate(across(Total:Cuidado_Personal, as.numeric))
El siguiente gráfico muestra la comparación del tipo de discapacidad en los 10 barrios con mayor población con discapacidad:
# Seleccionar los 10 barrios con mayor población con discapacidad
top10_barrios <- datos_barrios %>%
arrange(desc(Total)) %>%
slice(1:10)
# Reorganizar los datos para el gráfico
datos_largos <- top10_barrios %>%
pivot_longer(
cols = c(Motriz, Visual, Auditiva, Cuidado_Personal),
names_to = "Tipo_Discapacidad",
values_to = "Cantidad"
)
# Generar gráfico de barras
ggplot(datos_largos, aes(x = reorder(Barrio, Cantidad), y = Cantidad, fill = Tipo_Discapacidad)) +
geom_bar(stat = "identity", position = "dodge") +
coord_flip() +
labs(
title = "Discapacidad por Tipo en Top 10 Barrios de Asunción",
x = "Barrio",
y = "Cantidad de Personas",
fill = "Tipo de Discapacidad"
) +
theme_minimal() +
scale_fill_brewer(palette = "Set2")
El análisis permite visibilizar la prevalencia de los distintos tipos de discapacidad en las zonas con mayor densidad de Asunción, siendo las discapacidades motriz y visual las de mayor frecuencia observada. Esta información es crucial para orientar políticas públicas locales de accesibilidad e inclusión social.