r - 在 ggplot 中，如何仅在箱线图中的特定条形上方打印计数？

Question

我已经找到并被引导到许多帖子，这些帖子展示了如何在 ggplot 中的条形图中将统计信息放在所有条形上方，但我还没有找到一篇说明如何仅在一个条形上方显示计数/百分比的帖子条形图。

• How to put labels over geom_bar for each bar in R with ggplot2
• How to put labels over geom_bar in R with ggplot2
• Annotationabove bars:
• How to add percentage or count labels abovepercentage bar plot?

例如下面的情节:

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

我怎么能只在中间条上方打印“12”并禁止打印“5”和“15”。我想在上面显示计数的条形图会因地 block 而异(例如，在另一个图中，我想在 5 个条形图中显示第 4 个以上的统计数据)。

Answer 1

您可以使用 stat() 计算计数并为 geom_text() 定义您想要的任何条件

library(ggplot2)
library(dplyr)

# Select the gear with the second highest count
g <- mtcars %>% group_by(gear) %>% summarise(n = n()) %>% arrange(rev(n)) %>% .[2, 1]

ggplot(mtcars, aes(x = gear)) +
    geom_bar() +
    geom_text(stat='count',
          aes(label=stat(ifelse(x == !!g, count, NA))), # Apply condition
          color = "blue",
          vjust=-1) +
    NULL

^{由 reprex package 创建于 2018-10-13 (v0.2.1)}