Práctica Estadística: Análisis de la Población de Tlaxcala (INEGI) # Introducción cat(“En esta práctica se analiza la estructura poblacional del estado de Tlaxcala basada en datos oficiales del Censo 2020 del Instituto Nacional de Estadística y Geografía (INEGI). Se realiza un estudio descriptivo sobre la distribución por sexo y grupos de edad, con el objetivo de comprender mejor la composición demográfica actual.”) # Cargar librerías necesarias library(tidyverse) library(readxl) library(ggplot2) # Descargar y cargar datos del INEGI para Tlaxcala url <- “https://www.inegi.org.mx/contenidos/programas/ccpv/2020/datosabiertos/iter/iter_tlaxcala.xlsx” temp <- tempfile(fileext = “.xlsx”) download.file(url, temp, mode = “wb”) # Leer datos (revisar que la hoja 1 contiene la info requerida) datos <- read_excel(temp, sheet = 1) # Echar un vistazo a la estructura para identificar columnas head(datos) # Selección y limpieza de datos # Adaptar según estructura del archivo, aquí asumo columnas: # “Grupo de edad”, “Hombres”, “Mujeres” datos_tlaxcala <- datos %>% filter(!(Grupo de edad %in% c(“Total de la población”, “Total”))) %>% select(Grupo de edad, Hombre = Hombres, Mujer = Mujeres) %>% mutate( Hombre = as.numeric(Hombre), Mujer = as.numeric(Mujer) ) %>% drop_na() # Tabla para pirámide poblacional df_piramide <- datos_tlaxcala %>% pivot_longer(cols = c(Hombre, Mujer), names_to = “Sexo”, values_to = “Poblacion”) %>% mutate( Poblacion = ifelse(Sexo == “Hombre”, -Poblacion, Poblacion), Grupo de edad = factor(Grupo de edad, levels = rev(unique(Grupo de edad))) ) # Gráfica pirámide poblacional ggplot(df_piramide, aes(x = Grupo de edad, y = Poblacion, fill = Sexo)) + geom_bar(stat = “identity”, width = 0.7) + coord_flip() + scale_y_continuous(labels = abs) + labs( title = “Pirámide Poblacional de Tlaxcala, Censo 2020”, x = “Grupo de edad”, y = “Población”, fill = “Sexo” ) + theme_minimal() + scale_fill_manual(values = c(“Hombre” = “skyblue”, “Mujer” = “pink”)) # Análisis descriptivo total_hombres <- sum(datos_tlaxcala\(Hombre, na.rm = TRUE) total_mujeres <- sum(datos_tlaxcala\)Mujer, na.rm = TRUE) total_poblacion <- total_hombres + total_mujeres cat(“de población de Tlaxcala (Censo 2020):”) cat(“Total de hombres:”, total_hombres, “”) cat(“Total de mujeres:”, total_mujeres, “”) cat(“Población total:”, total_poblacion, “”) # Conclusiones cat(“Conclusiones:”) cat(“Los datos revelan que la población de Tlaxcala está distribuida de manera equilibrada entre hombres y mujeres. La pirámide poblacional muestra una base amplia, indicando una alta proporción de jóvenes, lo que sugiere un crecimiento poblacional potencial. Al mismo tiempo, se observa una presencia importante de adultos mayores, lo que resalta la necesidad de políticas públicas que atiendan a todas las edades.”)