Estoy intentando colocar etiquetas en un gráfico de barras apiladas utilizando este enfoque (aunque si ahora hay un mejor enfoque, estoy abierto a lo que sea):

Mostrando valores de datos en el gráfico de barras apiladas en ggplot2

Aquí está mi trama original:

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)

Aquí está mi intento de centrar las etiquetas en cada sección de relleno:

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)

¿Cómo puedo centrar las etiquetas en cada sección de relleno?