如何为ggplot的facet_wrap设置刻度间隔下限？

要实现不同分面的y轴刻度间隔自适应（大数值分面间隔不低于指定值，小数值分面保持合理刻度），可以通过自定义y轴刻度生成函数来实现，具体步骤如下：

1. 编写自定义刻度函数
   这个函数会根据每个分面的y轴数据最大值判断：如果最大值小于指定阈值（比如10），使用默认刻度逻辑；如果大于等于阈值，生成间隔为10的刻度序列。

   custom_y_breaks <- function(x) {
     max_val <- max(x, na.rm = TRUE)
     if (max_val < 10) {
       scales::extended_breaks()(x)  # 小数值用默认扩展刻度
     } else {
       seq(0, ceiling(max_val / 10) * 10, by = 10)  # 大数值用间隔10的刻度
     }
   }
   

2. 在ggplot中应用该函数
   将自定义函数传入scale_y_continuous的breaks参数，结合scales='free'的分面设置：

   library(ggplot2)
   library(dplyr)
   
   # 生成示例数据
   class = c(rep(1,200), rep(2,200), rep(3,200))
   x = c(rnorm(200, mean = 5, sd = 1), rnorm(200, 5, 4), rnorm(200, 5, 9))
   df = data.frame(x, class)
   
   # 绘制直方图
   df %>% 
     ggplot(aes(x = x))+
     geom_histogram(color = 'black', fill = 'steelblue', binwidth = 1)+
     facet_wrap(~class, scales = 'free')+
     scale_y_continuous(breaks = custom_y_breaks)
   

这样处理后，class2和class3的y轴刻度间隔会自动设为10，而class1的刻度会保持符合其数据范围的合理间隔，完全满足需求。如果需要调整阈值（比如把间隔下限改成20），只需修改函数中的10为对应数值即可。

内容的提问来源于stack exchange，提问作者Théodore Targerian