如何为ggplot2双轴图表设置Y轴非零最小值？

针对你需要固定双轴Y轴最小值为大于0数值、同时避免截断动态数据集的需求，我们可以修改原有的train_sec函数，通过自定义轴的起始刻度范围+保留全量数据显示的方式实现，具体方案如下：

修改后的核心函数 #

我们给原函数新增自定义最小值参数，让缩放逻辑基于你设定的起始刻度（而非数据本身的最小值），同时保留数据最大值的自适应：

library(scales)
library(ggplot2)

# 支持自定义主、次轴最小值的双轴转换函数
train_sec <- function(primary, secondary, min_primary, min_secondary, na.rm = TRUE) {
  # 自动获取数据的最大值，适配动态数据集
  max_primary <- max(primary, na.rm = na.rm)
  max_secondary <- max(secondary, na.rm = na.rm)
  
  # 自定义缩放的源范围（次轴）和目标范围（主轴）
  from <- c(min_secondary, max_secondary)
  to   <- c(min_primary, max_primary)
  
  # 次变量转主轴刻度的正向函数
  forward <- function(x) {
    rescale(x, from = from, to = to)
  }
  # 主轴刻度转次变量的反向函数
  reverse <- function(x) {
    rescale(x, from = to, to = from)
  }
  list(fwd = forward, rev = reverse)
}

完整绘图代码 #

以economics数据集为例，设定主Y轴（失业人数）起始刻度为1000，次Y轴（个人储蓄率）起始刻度为5（均大于0）：

# 自定义双轴的起始最小值（可根据需求调整）
min_unemploy <- 1000  # 主Y轴起始值
min_psavert <- 5      # 次Y轴起始值

# 生成双轴转换规则
sec_transform <- with(economics, train_sec(unemploy, psavert, 
                                           min_primary = min_unemploy, 
                                           min_secondary = min_psavert))

# 绘制双轴图表
ggplot(economics, aes(date)) +
  geom_col(aes(y = unemploy), color = "blue") +
  geom_line(aes(y = sec_transform$fwd(psavert)), color = "red", linewidth = 1) +
  scale_y_continuous(
    name = "失业人数",
    # 主Y轴显示起始为自定义最小值，NA表示自动适配最大值
    limits = c(min_unemploy, NA),
    oob = identity,  # 关键：不截断超出刻度范围的数据
    sec.axis = sec_axis(
      ~sec_transform$rev(.),
      name = "个人储蓄率",
      # 次Y轴同样设置自定义起始值
      limits = c(min_psavert, NA),
      oob = identity
    )
  ) +
  theme_minimal()

方案说明 #

1. 适配动态数据集：函数会自动获取传入数据的最大值，无需手动更新轴范围，新数据进来直接套用即可
2. 不截断数据：oob = identity参数确保所有数据都会显示，哪怕数值低于自定义的轴起始值（只会延伸到轴刻度下方，不会被截断）
3. 灵活调整起始值：只需修改min_unemploy和min_psavert的数值，就能任意设置大于0的轴起始点

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