[解決済み] Rでggplot2を使って各バーにgeom_barの上にラベルを貼る方法

質問

これを見つけたのですが Rでggplot2を使ってgeom_barの上にラベルを貼る方法 というのを見つけましたが、1本の棒にラベル(数字)を貼るだけでした。

これは、例えば、各x軸に2つのバーがある場合、同じことを行うにはどうすればよいですか？

私のデータとコードはこのような感じです。

dat <- read.table(text = "sample Types Number
sample1 A   3641
sample2 A   3119
sample1 B   15815
sample2 B   12334
sample1 C   2706
sample2 C   3147", header=TRUE)

library(ggplot2)
bar <- ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
  geom_bar(position = 'dodge') + geom_text(aes(label=Number))

では

番号テキストも"dodge"のパターンで配置されるようです。 検索してみたところ geom_text マニュアル を検索して情報を探しましたが、うまくいきません。

ご提案お願いします。

どのように解決するのですか？

これを試してみてください。

ggplot(data=dat, aes(x=Types, y=Number, fill=sample)) + 
     geom_bar(position = 'dodge', stat='identity') +
     geom_text(aes(label=Number), position=position_dodge(width=0.9), vjust=-0.25)

<イグ