R ggplot循环:在ggplot直方图的for循环中，如何根据最大频率自动设置y轴比例？

install.packages("ggplot2")
library(ggplot2)

dataset <- data.frame(values = c(1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5))

max_freq <- 0  # 用于存储最大频率的变量

for (i in 1:3) {  # 假设我们要创建3个直方图
  p <- ggplot(data = dataset, aes(x = values)) +
    geom_histogram()  # 创建直方图
  
  # 获取当前直方图的最大频率
  current_freq <- max(p$data$counts)
  
  # 更新最大频率
  if (current_freq > max_freq) {
    max_freq <- current_freq
  }
  
  # 设置y轴比例为最大频率
  p <- p + ylim(0, max_freq)
  
  # 打印直方图
  print(p)
}