etichette Centro barre in pila (conteggi) ggplot2

Question

che sto cercando di posizionare le etichette su un terreno a barre in pila utilizzando questo approccio (anche se ora c'è un approccio migliore Sono aperto a che cosa mai):

Showing data values on stacked bar chart in ggplot2

Ecco la mia trama originale:

dat <- data.frame(with(mtcars, table(cyl, gear))) 

ggplot(dat, aes(x = gear, fill = cyl)) + 
    geom_bar(aes(weight=Freq), position="stack") + 
    geom_text(position = "stack", aes(x = gear, y = Freq, 
     ymax = 15, label = cyl), size=4) 

Ecco il mio tentativo di centrare le etichette in ogni sezione di riempimento:

dat2 <- ddply(dat, .(cyl), transform, pos = cumsum(Freq) - 0.5*Freq) 

library(plyr) 
ggplot(dat2, aes(x = gear, fill = cyl)) + 
    geom_bar(aes(weight=Freq), position="stack") + 
    geom_text(position = "stack", aes(x = gear, y = pos, 
     ymax = 15, label = cyl), size=4) 

Come faccio a centrare le etichette in ogni sezione di riempimento?

Answer 1

C'è un po 'estranea ddply azione succedendo con questo come ho saputo la soluzione che volevo, ma stava avendo problemi a mantenere le frequenze allineati con le posizioni, ma credo che l'algoritmo per trovare i punti medi di gruppo vale la pena di distacco:

group_midpoints = function(g) { 
    cumsums = c(0, cumsum(g$Freq)) 
    diffs = diff(cumsums) 
    pos = head(cumsums, -1) + (0.5 * diffs) 
    return(data.frame(cyl=g$cyl, pos=pos, Freq=g$Freq)) 
} 

dat3 = ddply(dat, .(gear), group_midpoints) 

ggplot(dat3, aes(x = gear, fill = cyl)) + 
    geom_bar(aes(weight=Freq), position="stack") + 
    geom_text(position = "identity", aes(x = gear, y = pos, ymax = 15, label = cyl), size=4)