Estoy haciendo pruebas con el dataset esoph
datos<-esoph
He cogido la variable agegp (que son los grupos de edad) y he intentado hacer un diagrama de sectores con los porcentajes que he calculado así:
prop.table(table(datos$agegp))*100
Para hacer el diagrama de sectores:
porcentaje<-c(17.0,17.0,18.2,18.2,17.0,12.5)
label<-paste(porcentaje,"%",sep = "")
color<-c("lightblue","pink","green","yellow","grey","blue")
pie((prop.table(table(datos$agegp))*100),
col = color,
main = "PORCENTAJES AGEGP",
labels = label)
legend("topright", c("25-34","35-44","45-54","55-64","64-74","75+"), cex=0.7, fill = color)
Me gustaría saber, para este diagrama con porcentajes, he tenido que crear, los porcentajes en una variable (de forma manual), label (para poder separar el porcentaje y añadirle el símbolo de porcentaje (%) y una leyenda aparte, añadiendo los datos manualmente...
¿Habría forma de hacerlo más sencillo y menos manual? ¿Se podría hacer con ggplot usando las variables agegp y ncases, por ejemplo?
Gracias.