Distrito Capital. Indicadores de género
Beatriz Valdez
Tomando como referencia información de censo 2011 sobre el Distrito Capital, grafico algunos indicadores de género.
Empleo dotcharts y el paquete lattice.
Preparo los elementos necesarios para explorar gráficamente el primer indicador de género del Distrito Capital. Lo primero que hago es apilar las variables, con lo cual el marco de datos pasar de ancho a largo, preparo las etiquetas y las ordenos de acuerdo con el valor de la categoría. Finalmente, asigno colores específicos a cada género: azul para hombres; rojo para las mujeres.
ae2 <-stack(asistenciaEscolarEsp[,3:4])
ae2$etiqueta <- rep(asistenciaEscolarEsp$indicador, 2)
ae2 <- ae2[order(ae2$values),]
ae2$color<-ifelse(ae2$ind == "hombre","blue4",
"firebrick" )
dotchart(ae2$values,
labels = ae2$etiqueta,
pch = c(16, 18),
groups = as.factor(toupper(ae2$ind)),
gcolor = "gray15",font=2,
col = ae2$color,
main="Asistencia escolar según edad y sexo")
Se observa fácilmente que las mujeres asisten en mayor proporción que los hombres entre los 3 y 6 años, pero la situación se revierte en los otros grupos de edades. Las edades se ordenan en el gráfico de acuerdo con el porcentaje de asistencia. El siguiente gráfico nos muestra que la asistencia escolar de las mujeres está muy debajo de la asistencia de los hombres. Este gráfico en realidad puede ser tan engañoso como un gráfico de sectores. La diferencia en la asistencia entre hombres y mujeres no es tan amplia como parece sugerir el gráfico.
dotchart(ae$values, labels=c("Total","Hombre", "Mujer"),
pch=16, col=c("darkmagenta","blue4",
"firebrick"),
main= "Asistencia escolar segun sexo")
No hay comentarios.:
Publicar un comentario