本記事は ggplot2逆引きプロジェクトの一環として、Stack Overflow の下記記事を翻訳したものです。
ggplot: geom_text with dodged barplot

質問

タイトル通りのことをやりたくて、自分でやってみたのですが、ダメです。

まずはデータを用意します。

R

data <- data.frame(
  variable = gl(5, 2, labels = c("vma", "vla", "ia", "fma", "fla")),
  ustanova = gl(2, 1, 10, labels = c("srednja skola", "fakultet")),
  all = c(42.9, 38.7, 37.8, 33.7, 29.5, 26.1, 27.9, 23.9, 33.2, 26.9)
)

data

結果

   variable      ustanova  all
1       vma srednja skola 42.9
2       vma      fakultet 38.7
3       vla srednja skola 37.8
4       vla      fakultet 33.7
5        ia srednja skola 29.5
6        ia      fakultet 26.1
7       fma srednja skola 27.9
8       fma      fakultet 23.9
9       fla srednja skola 33.2
10      fla      fakultet 26.9

集合棒グラフを作り、coord_flip() で横向きにして、棒の内側にテキストを付けたいのですが、

R

library(ggplot2)
ggplot(data) + 
  geom_bar(aes(x=variable, y=all, fill=ustanova), position="dodge", stat="identity") +
  geom_text(aes(x=variable, y=all, label=sprintf("%2.1f", all))) + 
  coord_flip()

結果はこのようになります。

私の質問は非常に基礎的なことかもしれません。
テキストラベルが棒に「ついていく」ようにしたいのです。
ラベルは y 軸に対しては正しく配置されています。
しかし、どのようにすれば x 軸に対しても正しく配置されるのでしょうか？

回答

こういうことかな？

R

ggplot(data) + 
  geom_bar(aes(x=variable, y=all, fill=ustanova), stat="identity", position="dodge") +
  geom_text(aes(x=variable, y=all, group=ustanova, label=sprintf("%2.1f", all)), 
            position=position_dodge(width=0.9)) +
  coord_flip()

ポイントは position = "dodge" の代わりに position = position_dodge(width=0.9) を使うことと、geom_text() の中で group を指定してやることです。
position = "dodge" は position_dodge() のパラメータを指定しない単なるショートカットにすぎません。

補足

テキストラベルを棒の「内側に」表示したい場合は、hjust や vjust を使います。

R

ggplot(data) + 
  geom_bar(aes(x=variable, y=all, fill=ustanova), stat="identity", position="dodge") +
  geom_text(aes(x=variable, y=all, group=ustanova, label=sprintf("%2.1f", all), hjust=1.4), 
            position=position_dodge(width=0.9)) +
  coord_flip()

また、積み上げ棒グラフに対して同様のことを行うには、次のように書きます。

R

ggplot(data) + 
  geom_bar(aes(x=variable, y=all, fill=ustanova), stat="identity", position="stack") +
  geom_text(aes(x=variable, y=all, label=sprintf("%2.1f", all)), position="stack") +
  coord_flip()

参考

関連

ggplot2で積み重ね棒グラフに値を表示させたい