Cách đặt nhãn trên geom_bar cho mỗi thanh trong R với ggplot2

Tôi đã tìm thấy điều này, Cách đặt nhãn trên geom_bar trong R với ggplot2 , nhưng nó chỉ đặt nhãn (số) trên chỉ một thanh.

Đây là, giả sử, hai thanh cho mỗi trục x, làm thế nào để làm điều tương tự?

Dữ liệu và mã của tôi trông như thế này:

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

Sau đó, chúng tôi sẽ nhận được:

Có vẻ như các văn bản số cũng được định vị trong mô hình "né tránh". Tôi đã tìm kiếm hướng dẫn sử dụng geom_text để tìm một số thông tin, nhưng không thể làm cho nó hoạt động.

Gợi ý?

Thử cái này:

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)

Để thêm vào câu trả lời của rcs, nếu bạn muốn sử dụng position_dodge () với geom_bar () khi x là ngày POSIX.ct, bạn phải nhân chiều rộng với 86400, ví dụ:

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*86400), vjust=-0.25)