Alan Navarro

La pirámide de población o pirámide demográfica es un histograma o gráfico de barras dispuestas horizontalmente cuya longitud es proporcional a la cantidad de personas que representa la edad y sexo de la población en cada una de dichas barras. En la gráfica de abajo fue tomada del artículo: Asentamientos irregulares, vivienda precaria y población vulnerable al clima en la ciudad de Hermosillo, Sonora: un estudio exploratorio escrito por el Dr. Nicolás Pineda-Pablos y colaboradores el año 2016, en la revista de la Universidad de Sonora: SAVIA (Año 15, Número 14: noviembre 2015-noviembre 2016).
Los autores utilizaron una pirámide poblacional para presentar los datos de personas afectadas por calor en las "invasiones urbanas" estudiadas, la información se categorizó por sexo y grupo de edad. El código de R que aquí se presenta replica dicha gráfica. Los datos se rescataron usando la aplicación "WebPlotDigitizer" de Google Chrome, por lo que pudieran ser diferentes a los que utilizaron los autores.

R code


# Piramides de poblacion
library(XML)
library(reshape2)
library(ggplot2)
library(plyr)

# tutorial basado en:  https://rpubs.com/walkerke/pyramids_ggplot2 

Grupo_quinquenal=c("0-4","5-9","10-14", "15-19", "20-24", "25-29", "30-34",
"35-39", "40-44", "45-49", "50-54", "55-59", "60-64", "65-69", "70-74", "75-79",
"80-84", "85-89", "90-94", "95-99", "100+")
Mujeres=c(7, 11,  6,  5,  1,  1,  2,  5,  1,  6,  3,  1,  2,  2,  3,  1,  0,  0,  0,  0,  0)
Hombres= c(14,  8, 15,  6,  4,  0,  3,  7,  3,  7,  3,  3,  6,  3,  0,  0,  1,  0,  0,  0,  0)
df = data.frame(Grupo_quinquenal, Hombres, Mujeres)       # df is a data frame
########
Grupo_quinquenal=c("0-4","5-9","10-14", "15-19", "20-24", "25-29", "30-34",
                   "35-39", "40-44", "45-49", "50-54", "55-59", "60-64", "65-69", "70-74", "75-79",
                   "80-84", "85-89", "90+")
Mujeres=c(7, 11,  6,  5,  1,  1,  2,  5,  1,  6,  3,  1,  2,  2,  3,  1,  0,  0,  0)
Hombres= c(14,  8, 15,  6,  4,  0,  3,  7,  3,  7,  3,  3,  6,  3,  0,  0,  1,  0,  0)
df = data.frame(Grupo_quinquenal, Hombres, Mujeres)       # df is a data frame
#########

cols <- 2:3
df[,cols] <- apply(df[,cols], 2, function(x) as.numeric(as.character(gsub(",", "", x))))
df$Hombres <- -1 * df$Hombres
df$Grupo_quinquenal <- factor(df$Grupo_quinquenal, levels = df$Grupo_quinquenal, labels = df$Grupo_quinquenal)
df.melt <- melt(df, 
                value.name='Población', 
                variable.name = 'Género', 
                id.vars='Grupo_quinquenal' )
df.melt

piramide1 <- ggplot(df.melt, aes(x = Grupo_quinquenal, y = Población, fill = Género)) + 
  geom_bar(subset = .(Genero == "Mujeres"), stat = "identity") + 
  geom_bar(subset = .(Genero == "Hombres"), stat = "identity") + 
  scale_y_continuous(breaks = seq(-15, 15, 5), 
                     labels = paste0(as.character(c(seq(15, 0, -5), seq(5, 15, 5))), "")) + 
  coord_flip() + 
  scale_fill_brewer(palette = "Set1", direction = -1) + 
  theme_bw()

piramide1 + ylab("Frecuencia")+ xlab("Grupo quinquenal afectado por calor") + 
  theme(axis.text.x = element_text(colour="black"), axis.text.y = element_text(colour="black"))
##################################################################

Volver

Pirámide poblacional

Get in touch