如何用ggplot2将Y轴最大值设为计数最大值加至少5的固定值？

我用ggplot2绘制带计数标签的计数条形图，数据来自定期更新的数据库，计数会随时间变化。希望生成图表时，Y轴最大值始终至少比当前最大计数高5，但只会手动设置坐标轴，求实现方法。

示例代码：

library(ggplot2)

x<- c("A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B")

df %>% 
  mutate(x = as.factor(x)) %>% 
  ggplot(aes(x))+
  geom_bar()+ 
  geom_text(stat='count', aes(label=..count..), hjust=-1)

默认效果：

期望效果：

有两种简洁的实现方式，都能自动随数据更新调整Y轴上限：

方法1：提前统计数据最大值 #

先统计出当前数据的最大计数，再动态设置Y轴上限：

library(ggplot2)
library(dplyr)

# 模拟数据库数据（实际替换为你的数据库读取代码）
x <- c("A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B")
df <- data.frame(x)

# 统计最大计数
max_count <- df %>% count(x) %>% pull(n) %>% max()
y_upper <- max_count + 5

# 绘制图表
df %>% 
  mutate(x = as.factor(x)) %>% 
  ggplot(aes(x)) +
  geom_bar() + 
  geom_text(stat='count', aes(label=..count..), hjust=-1) +
  scale_y_continuous(limits = c(0, y_upper), expand = c(0, 0))

方法2：利用ggplot内部统计函数 #

无需提前统计，直接在scale_y_continuous中用函数动态计算上限：

library(ggplot2)
library(dplyr)

# 模拟数据库数据
x <- c("A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B","A", "B","B","A","B","B","A","B","B","A","B","B","A","B","B","A","B","B")
df <- data.frame(x)

df %>% 
  mutate(x = as.factor(x)) %>% 
  ggplot(aes(x)) +
  geom_bar() + 
  geom_text(stat='count', aes(label=..count..), hjust=-1) +
  scale_y_continuous(
    limits = function(axis_range) c(0, max(axis_range) + 5),
    expand = c(0, 0)
  )

说明 #

两种方法都能实现：每次数据库数据更新后，代码自动计算当前最大计数，将Y轴上限设为最大值加5，确保计数标签完全显示，无需手动调整坐标轴参数。

内容的提问来源于stack exchange，提问作者BPL