如何使用ggplot2在R中的每个条形图上在geom_bar上放置标签

Question

我发现了，如何使用ggplot2在R中的geom_bar上放置标签，但是它只是将label（numbers）放在仅一个标签上。假设这是每个x轴的两个条形，该怎么做？我的数据和代码如下所示：dat <- read.table(text = "sample Types Numbersample1 A   3641sample2 A   3119sample1 B   15815sample2 B   12334sample1 C   2706sample2 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手册以查找一些信息，但是无法使其正常工作。有什么建议吗？

Answer 1

尝试这个：

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)

Answer 2

要添加到rcs的答案中，如果您希望在x是POSIX.ct日期时将position_dodge（）与geom_bar（）结合使用，则必须将宽度乘以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)