Jak oznaczyć pasek barplot dodatnimi i ujemnymi słupkami za pomocą ggplot2

Próbuję narysować znakowany wykres słupkowy za pomocą ggplot2 z dodatnimi i ujemnymi słupkami.

Z normalnym poleceniem wydruku, które działa. Chcę powtórzyć to polecenie w ggplot2:

xpos <- barplot(d, col=mycols, main='Verteilung in Dresden 2004',
         ylab='Anteil in %', xlab='Milieu', names.arg=l, 
         cex.axis=0.7, cex.names=0.7, ylim=c(0,max(d)+0.05))
boxed.labels(xpos,d+0.02,sprintf('%d%s', d*100, '%'),
          bg='transparent', border=FALSE, cex=0.7)

Żeby wyglądało to tak po prostu ... ;-)

Czy ktoś ma jakieś sugestie?

Dziękuję za pomoc.