web-dev-qa-db-fra.com

Positionner geom_text sur un barplot esquivé

J'ai essayé de rendre le titre explicite, mais voici - les données d'abord:

dtf <- structure(list(variable = structure(c(1L, 1L, 2L, 2L, 3L, 3L, 
4L, 4L, 5L, 5L), .Label = c("vma", "vla", "ia", "fma", "fla"), class = "factor"), 
    ustanova = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
    2L), .Label = c("srednja škola", "fakultet"), class = "factor"), 
    `(all)` = c(42.9542857142857, 38.7803203661327, 37.8996138996139, 
    33.7672811059908, 29.591439688716, 26.1890660592255, 27.9557692307692, 
    23.9426605504587, 33.2200772200772, 26.9493087557604)), .Names = c("variable", 
"ustanova", "(all)"), row.names = c(NA, 10L), class = c("cast_df", 
"data.frame"), idvars = c("variable", "ustanova"), rdimnames = list(
    structure(list(variable = structure(c(1L, 1L, 2L, 2L, 3L, 
    3L, 4L, 4L, 5L, 5L), .Label = c("vma", "vla", "ia", "fma", 
    "fla"), class = "factor"), ustanova = structure(c(1L, 2L, 
    1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("srednja škola", 
    "fakultet"), class = "factor")), .Names = c("variable", "ustanova"
    ), row.names = c("vma_srednja škola", "vma_fakultet", "vla_srednja škola", 
    "vla_fakultet", "ia_srednja škola", "ia_fakultet", "fma_srednja škola", 
    "fma_fakultet", "fla_srednja škola", "fla_fakultet"), class = "data.frame"), 
    structure(list(value = structure(1L, .Label = "(all)", class = "factor")), .Names = "value", row.names = "(all)", class = "data.frame")))

Et je voudrais créer un barplot esquivé, faites le coord_flip et placez des étiquettes de texte dans les barres:

ggplot(bar) + geom_bar(aes(variable, `(all)`, fill = ustanova), position = "dodge") +
 geom_text(aes(variable, `(all)`, label = sprintf("%2.1f", `(all)`)), position = "dodge") +
 coord_flip()

vous pouvez voir la sortie ici .

enter image description here

Je pense que je demande quelque chose de trivial. Je veux que les étiquettes de texte "suivent" les barres empilées. Les étiquettes sont placées correctement sur l'axe des y, mais comment les positionner correctement sur l'axe des x?

rplotggplot2bar-chart
73
aL3xa

C'est ce que tu veux?

ggplot(bar) + 
  geom_bar(aes(variable, `(all)`, fill = ustanova), position = "dodge") +
  geom_text(aes(variable, `(all)`, label = sprintf("%2.1f", `(all)`)), 
            position = position_dodge(width = 1)) + 
  coord_flip()

La clé utilise position = position_dodge(width = 1) au lieu de position = "dodge", Qui est juste un raccourci sans aucun paramètre.

enter image description here

Dans ggplot2_2.0.0 Vous trouverez plusieurs exemples dans ?geom_text Sur la façon de positionner geom_text Sur des barres esquivées ou empilées (le bloc de code nommé "# Aligning labels and bars"). Le Q&A - Quel est l'argument largeur dans position_dodge? fournit une description plus approfondie du sujet.

119
kohske