Labeling qplot Barplot from Melt data
===

I would like to do a bar plot outlined in black with percentages inside the bars.  Is this possible from qplot? I get the percentages to appear but they don't align with the particular bars.

packages: ggplot2, reshape

![created in Illustrator][1]


    x <- data.frame(filename = c("file1", "file2", "file3", "file4"),
                        low = c(-.05,.06,.07,-.14),
                        hi = c(.87,.98,.56,.79),
                        tot = hi+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)


  [1]: http://i.stack.imgur.com/zHqSZ.png