如何在ggplot2中固定（锁定）y轴刻度以对比多幅图表？

安全阿岳

2026-5-26

解决ggplot多图y轴恒定的问题

嗨，这问题我熟！要让5幅对比图的y轴刻度完全一致，关键就是手动固定y轴的范围，不让ggplot自动根据单图数据调整。我给你一步步说怎么弄：

第一步：先确定全局最大极值

你得先找出所有5个数据集里的关键最大值，这样才能把y轴上限设成足够覆盖所有图的数值，避免柱子或折线被截断：

先找所有数据集里count（频率）的最大值：

# 假设你的5个数据集是df1、df2、df3、df4、df5
max_count <- max(df1$count, df2$count, df3$count, df4$count, df5$count)

再考虑温度折线（percipitation*14）的最大值，避免折线超出y轴：

max_line_value <- max(df1$percipitation*14, df2$percipitation*14, df3$percipitation*14, df4$percipitation*14, df5$percipitation*14)
# 取两者的最大值作为y轴上限
max_y <- max(max_count, max_line_value)

第二步：修改ggplot代码固定y轴

接下来把固定y轴的参数加到你的绘图代码里，这里有两个实用方法，按需选择：

方法1：用`ylim()`直接锁定范围

这个方法会直接限制y轴显示范围，超出范围的数据会被过滤（如果你的柱子/折线超出的话）：

ggplot(df) +
  geom_bar(aes(hours, count), stat = "identity", fill = "gray92", colour = "gray92") +
  geom_line(aes(hours, percipitation*14), stat = "identity", size = 1.2) +
  theme(panel.grid.major = element_blank()) + # 补全你原来的theme设置
  ylim(0, max_y) # 用全局最大值固定y轴

方法2：用`coord_cartesian()`缩放显示（更推荐）

这个方法只是缩放绘图区域，不会过滤数据——哪怕柱子/折线超出y轴，数据依然保留，只是看不到超出部分（适合担心数据丢失的场景）：

ggplot(df) +
  geom_bar(aes(hours, count), stat = "identity", fill = "gray92", colour = "gray92") +
  geom_line(aes(hours, percipitation*14), stat = "identity", size = 1.2) +
  theme(panel.grid.major = element_blank()) +
  coord_cartesian(ylim = c(0, max_y)) # 仅缩放，保留所有数据