在ggplot中，如何将计数仅打印在条形图中的指定栏之上？

Question

我已经找到并被引导到了无数的帖子中，展示了如何将统计数据放在ggplot中的所有条形图之上，但我还没有找到一个显示如何只显示条形图中一个条形图以上的计数/百分比的帖子。

• R中每条使用ggplot2的条形图
• R中带ggplot2的条形图
• 条形图上注释：
• 如何在百分比条形图上添加百分比或计数标签？

例如，使用以下情节：

ggplot(mtcars, aes(x = gear)) + geom_bar() +
  geom_text(stat='count',aes(label=..count..),vjust=-1)

​

​

我怎么能把"12“印在中间栏上，然后印上"5”和"15“。我想显示上面的计数的栏将因图而异(例如，在另一个图中，我想显示在第四大的5栏中)。

Answer 1

我找不到一个使用geom_text r geom_bar的，但是?annotate中的例子看起来很漂亮straighforward>

ggplot(mtcars, aes(x=gear, group = gear)) + geom_bar(fill=c("red", "green","blue")) + 
     annotate("text", x=4, y = 13, label = "12")