grafico - leyenda en ggplot2

¿Cómo etiqueto un gráfico de barras apiladas en ggplot2 sin crear un cuadro de datos de resumen?

Question

El siguiente código proporciona un maravilloso gráfico de barras apiladas

cls.grp <- gl(n=4,k=20,labels=c("group a","group b","group c", "group d"))
ser <- sample(x=c("neg","pos"),size=80,replace=TRUE, prob=c(30,70))
syrclia <- data.frame(cls.grp,ser)
ggplot(syrclia, aes(cls.grp, fill=ser))+ geom_bar()

Esperaba que con geom_text o stat_summary pudiera etiquetar el porcentaje que era negativo en cada grupo y ponerlo en la barra correspondiente. He intentado muchas permutaciones y no puedo hacer que funcione. Incluso he intentado ingresar manualmente los porcentajes y forzar las etiquetas donde los quiero, pero no funciona. Espera 80 etiquetas y solo quiero dar cuatro que sean negativas o quizás 8 (si una incluye las etiquetas del porcentaje que son positivas).

¿Realmente tengo que hacer un marco de datos agregado de mi Syrclia y trazar eso?

Answer 1

geom_bar usa stat_bin por defecto. Por lo tanto, debe usar stat_bin para trazar los números, dígale que use geom_text y use la nueva ..count.. como etiqueta.

    cls.grp <- gl(n=4,k=20,labels=c("group a","group b","group c", "group d"))
    ser <- sample(x=c("neg","pos"),size=80,replace=TRUE, prob=c(30,70))
    syrclia <- data.frame(cls.grp,ser)
    library(ggplot2)
    total <- ddply(syrclia, .(cls.grp), function(x) nrow(x))[, 2]
    ggplot(syrclia, aes(cls.grp, fill=ser))+ geom_bar() + 
      stat_bin(geom = "text", 
               aes(label = paste(
                   ..count../get("total", envir = .GlobalEnv)*100,"%")))

HTH