如何根据 R 中的图更改 scale_y_continuous 的限制？

Question

我想绘制顶部观察次数的箱线图。问题在于，根据信息和异常值，y 轴会发生变化。出于这个原因，我想自动更改scale_y_continuous 的限制。是否有可能做到这一点？

这是一个可重现的例子：

library(dplyr)
library(ggplot2)

myFreqs <- mtcars %>%  
  group_by(cyl, am) %>% 
  summarise(Freq = n()) 
myFreqs

p <- ggplot(mtcars, aes(factor(cyl), drat, fill=factor(am))) +
  stat_boxplot(geom = "errorbar") +
  geom_boxplot() +
  stat_summary(geom = 'text', label = paste("n = ", myFreqs$Freq), fun = max, position = position_dodge(width = 0.77), vjust=-1)

p

这个想法是至少增加+1到具有最高y轴值的图的最大值（在上面解释的情况下，这将是n = 8的第二个箱线图）

我尝试使用scale_y_continuous 更改 y 轴，如下所示：

p <- p + scale_y_continuous(limits = c(0, 5.3))
p

但是，我不想自己设置限制，我想找到一种根据我拥有的地块修改限制的方法。 （因为……如果信息发生变化怎么办？）。 有没有办法做这样的事情？ min 和 max --> scale_y_continuous(limits = c(min(x), max(x)))

首先十分感谢

Answer 1

感谢@teunbrand 和@caldwellst，我得到了我需要的解决方案。

有 3 种解决方案可以完美运行：

1-

p + scale_y_continuous(limits = function(x){
  c(min(x), (max(x)+0.1))
    })
p

2-

library(tidyverse)

p + scale_y_continuous(limits = ~ c(min(.x), max(.x) + 0.1))

3-

p + scale_y_continuous(limits = function(x){
  c(min(x), ceiling(max(x) * 1.1))
})