Как поставить метки над 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))
Затем мы получим:
Похоже, что числовые тексты также расположены в «Dodge» шаблон. Я искалруководство geom_text найти некоторую информацию, но не может заставить ее работать.
Предложения?