superponer - Cómo colocar etiquetas sobre geom_bar para cada barra en R con ggplot2

superponer graficas en r ggplot

Question

He encontrado esto, Cómo poner etiquetas sobre geom_bar en R con ggplot2 , pero solo pone etiquetas (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:

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?

Answer 1

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)

Answer 2

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)