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. Działa to do tej pory, ale chciałbym ustawić etykietę poza paskiem, tak aby znajdowała się powyżej lub poniżej paska. Próbowałem ustawić regulacjęvjust = c(x1,...,xn) gdziex jest wartością dodatnią lub ujemną zgodnie z wartością paska wgeom_text(). To nie działa. Właśnie otrzymałem komunikat o błędzie Błąd: „Kiedyoprawa estetyka, mogą przyjmować tylko jedną wartość. Problemy: vjust ”

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.

questionAnswers(1)

yourAnswerToTheQuestion