Как поместить метки над полосой geom _для каждой полосы в R с помощью ggplot2

Я нашел это, Как поместить метки над полосой geom _в R с помощью ggplot2 , но он просто поместил метки (числа )только на одну полосу.

Вот, допустим, по две полосы на каждую ось х -, как сделать то же самое?

Мои данные и код выглядят так:

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

Тогда мы получим:

Кажется, что тексты чисел также расположены в шаблоне «уклонения». Я искал geom _текстовое руководство , чтобы найти некоторую информацию, но не могу заставить его работать.

Предложения?