วิธีใส่ป้ายกำกับบน 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))

จากนั้นเราจะได้รับ:

ดูเหมือนว่าข้อความตัวเลขจะอยู่ในรูปแบบ "หลบ" เช่นกัน ฉันได้ค้นหาคู่มือ 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)

ในการเพิ่มคำตอบของ rcs หากคุณต้องการใช้ position_dodge () กับ geom_bar () เมื่อ x เป็นวันที่ POSIX.ct คุณต้องคูณความกว้างด้วย 86400 เช่น

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)