Cómo colocar tags sobre geom_bar para cada barra en R con ggplot2

He encontrado esto, Cómo poner tags sobre geom_bar en R con ggplot2 , pero solo pone tags (números) en solo una barra.

Aquí hay, digamos, dos barras para cada eje x, ¿cómo hacer lo mismo?

Mis datos y código se ven así:

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

Entonces, obtendremos: enter image description here

Parece que los textos numéricos también se ubican en el patrón “esquivar”. He buscado el manual geom_text para encontrar información, pero no puedo hacerlo funcionar.

Sugerencias?

Prueba esto:

 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)

salida ggplot

Para agregar a la respuesta de rcs, si desea usar position_dodge () con geom_bar () cuando x es una fecha POSIX.ct, debe multiplicar el ancho por 86400, por ejemplo,

 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)