Как поставить метки над geom_bar для каждого бара в R с помощью ggplot2

Я нашел это,Как поместить метки поверх geom_bar в R с помощью ggplot2, но он просто помещает метки (цифры) только на одну полосу.

Вот, скажем, два столбца для каждой оси X, как сделать то же самое?

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

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

Затем мы получим: enter image description here

Похоже, что числовые тексты также расположены в «Dodge» шаблон. Я искалруководство geom_text найти некоторую информацию, но не может заставить ее работать.

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

Ответы на вопрос(2)

Ваш ответ на вопрос