ordenar - histogramas en r con ggplot2

Agregar etiquetas a ggplot gráfico de barras

Question

Me gustaría hacer un diagrama 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

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)

Answer 1

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()

Answer 2

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 ...