如何在ggplot坐标轴上自动标记数据的最小值与最大值？

需求概述 #

需要在ggplot2的反转y轴上自动包含数据的最小值和最大值作为刻度，同时生成数量合适的中间刻度，代码需适配不同数据集，无需手动指定breaks参数。

当前场景代码：

# 场景代码
library(ggplot2)
dat <- data.frame(x = sample(letters), y = 1:26)
ggplot(dat, aes(x, y)) + 
  geom_tile() + 
  scale_y_reverse()

期望效果（自动实现类似手动指定breaks = c(1, 10, 20, 26)的效果）：

# 期望输出
ggplot(dat, aes(x, y)) + 
  geom_tile() + 
  scale_y_reverse(breaks = c(1, 10, 20, 26))

可行解决方案 #

方法1：自定义breaks函数 #

编写一个自定义函数，结合pretty()生成美观的中间刻度，同时强制包含数据的极值：

# 自定义刻度生成函数
custom_breaks <- function(x) {
  # 生成默认的美观刻度
  pretty_vals <- pretty(x)
  # 合并极值与中间刻度，去重后排序
  unique(sort(c(min(x), pretty_vals, max(x))))
}

# 应用到绘图中
ggplot(dat, aes(x, y)) + 
  geom_tile() + 
  scale_y_reverse(breaks = custom_breaks)

方法2：使用scales包的扩展刻度函数 #

借助scales包的extended_breaks()函数，通过include参数指定必须包含的极值：

library(scales)

ggplot(dat, aes(x, y)) + 
  geom_tile() + 
  scale_y_reverse(breaks = extended_breaks(include = range(dat$y)))

这两种方法都能自动适配不同数据集：既保证极值出现在刻度上，又能生成数量合适的中间刻度，无需手动配置。

原尝试问题说明 #

• 用seq()指定步长的方式：步长计算逻辑不合理，导致刻度数量不足
• 直接设置n.breaks = nrow(dat)-1：会生成过多刻度，无法适配大数据集
• 修改expand参数：仅调整坐标轴范围，不影响刻度生成逻辑，因此无效

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