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?

• ¿Cuál es el argumento de ancho en position_dodge?
• Reemplazar valores de una columna usando una condición en R
• Longitud máxima para un vector en R
• Generar una lista de todas las combinaciones posibles de elementos del vector
• ¿Qué significa la función%>% en R?

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:

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?

 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) 

 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)