Agregar tags a ggplot gráfico de barras

Me gustaría hacer un diagtwig de barras delineado en negro con porcentajes dentro de los bares. ¿Es esto posible desde qplot? Obtengo los porcentajes que aparecen pero no se alinean con las barras en particular.

paquetes: ggplot2, remodelar

creado en Illustrator

x <- data.frame(filename = c("file1", "file2", "file3", "file4"), low = c(-.05,.06,.07,-.14), hi = c(.87,.98,.56,.79)) x$tot <- x$hi + x$low x <- melt(x, id = 'filename') bar <- qplot(x = factor(filename), y = value*100, fill = factor(variable), data = x, geom = 'bar', position = 'dodge') + coord_flip() bar <- bar + scale_fill_manual(name = '', labels = c('low', 'Hi', "Tot"), values = c('#40E0D0', '#FF6347', "#C7C7C7")) bar <- bar + geom_text(aes(label = value*100))+geom_bar(colour = 'black') bar <- bar + opts(panel.background = theme_rect(colour = NA)) bar <- bar + opts(legend.justification = 'bottom') print(bar) 

Aqui tienes:

 library(scales) ggplot(x, aes(x = filename, fill = variable)) + geom_bar(stat="identity", ymin=0, aes(y=value, ymax=value), position="dodge") + geom_text(aes(x=filename, y=value, ymax=value, label=value, hjust=ifelse(sign(value)>0, 1, 0)), position = position_dodge(width=1)) + scale_y_continuous(labels = percent_format()) + coord_flip() 

enter image description here

Esta sería una buena oportunidad para que comiences a qplot usar qplot , a favor de ggplot . Esto será mucho más fácil a largo plazo, créanme.

Aquí hay un comienzo:

 library(scales) ggplot(data = x,aes(x = factor(filename),y = value)) + geom_bar(aes(fill = factor(variable)),colour = "black",position = 'dodge') + coord_flip() + scale_fill_manual(name = '', labels = c('low', 'Hi', "Tot"), values = c('#40E0D0', '#FF6347', "#C7C7C7")) + scale_y_continuous(labels = percent_format()) 

Por razones filosóficas, te dejaré la anotación …