ENCUESTA: HAGAMOS DE UNIVALLE UN JARDÍN (VARIABLE EDAD)

Resultados de la variable edad, correspondiente a la encuesta: hagamos de Univalle un jardín.

E<-read.csv("DATOS.csv", sep = ";")
tab.Edad<-as.data.frame(prop.table(table(E$EDAD))*100)
colnames(tab.Edad)<-c("EDAD", "PORCENTAJE")
l<-c("[15 a 24] años", "[25 a 35] años", "[36 a 46] años", "[47 a 55] años", "Mayor a 55 años")
n<-c("0", "1", "2", "3", "4")
library(ggplot2)
ggplot(tab.Edad, aes(x = EDAD, y = PORCENTAJE, fill = EDAD)) + geom_bar(stat = "identity", width = 0.8) + scale_fill_discrete(name = "", breaks = n, labels = l) + theme(legend.position = "right", legend.background = element_rect(fill = "white", size = 0.5, linetype = "solid", colour = "darkgrey")) + ggtitle("PORCENTAJE DEL RANGO DE EDADES") + xlab("RANGO DE EDADES") + ylab("% ENCUESTADOS") + theme(plot.title = element_text(hjust = 0.5)) + geom_text(aes(y = PORCENTAJE, label = paste(round(PORCENTAJE, 2), "%")), position = position_dodge(width = 0.5), size=4, vjust=-0.5, hjust=0.5 ,col="black") + scale_x_discrete(breaks = n, labels = c("", "", "", "", "")) + scale_y_continuous(breaks = seq(0, 70, by = 10), limits = c(0,70)) 

En la gráfica se observa que más de la mitad de los encuestados se encuentran en un rango de edad entre los 15 y 24 años, lo que nos indica que la muestra no es representativa.