ordenar - histogramas en r con ggplot2
Agregar etiquetas a ggplot gráfico de barras (2)
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()
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)
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 ...