ggplot2中sec.axis双Y轴刻度适配问题技术求助

Got it, let's break down why your dual Y-axis plots are acting up when you adjust the primary Y-axis lower limit or switch from geom_col to geom_line. The core issue here is that you're calculating the linear transformation between your two scales, but you aren't forcing ggplot2 to stick to your custom ylim.prim range—ggplot automatically adjusts the Y-axis based on the data, which breaks the transformation math you set up with a and b.

The Fix: Lock the Primary Y-Axis Limits #

To make the dual axes align correctly every time, you need to add limits = ylim.prim to scale_y_continuous. This ensures the primary axis uses exactly the range you defined, so your linear transformation between the two scales stays valid.

Let's apply this to each of your test cases:

1. Original geom_col with Robust Axis Alignment

Your first code works when ylim.prim starts at 0, but explicitly locking the limits makes it reliable:

library(tibble)
library(ggplot2)

climate <- tibble(
  Month = 1:12,
  Temp = c(23,23,24,24,24,23,23,23,23,23,23,23),
  Precip = c(101,105,100,101,102, 112, 101, 121, 107, 114, 108, 120)
)

ylim.prim <- c(0, 125) # Precipitation range
ylim.sec <- c(15, 30)  # Temperature range

# Linear transformation: convert Temp values to Precip's scale
b <- diff(ylim.prim)/diff(ylim.sec)
a <- b*(ylim.prim[1] - ylim.sec[1])

ggplot(climate, aes(Month, Precip)) +
  geom_col() +
  geom_line(aes(y = a + Temp*b), color = "red") +
  scale_y_continuous(
    "Precipitation",
    limits = ylim.prim,  # Critical: lock primary axis to your custom range
    sec.axis = sec_axis(~ (. - a)/b, name = "Temperature")
  ) +
  scale_x_continuous("Month", breaks = 1:12)

This ensures the primary axis never shifts, so the red temperature line stays perfectly aligned with the secondary Y-axis.

2. Switching to geom_line Without Scale Drift

When you replace geom_col with geom_line, ggplot might try to shrink the Y-axis to fit the data. Locking the primary limits prevents this:

ylim.prim <- c(0, 125)
ylim.sec <- c(15, 30)
b <- diff(ylim.prim)/diff(ylim.sec)
a <- b*(ylim.prim[1] - ylim.sec[1])

ggplot(climate, aes(Month, Precip)) +
  geom_line() +
  geom_line(aes(y = a + Temp*b), color = "red") +
  scale_y_continuous(
    "Precipitation",
    limits = ylim.prim,  # Lock primary range here too
    sec.axis = sec_axis(~ (. - a)/b, name = "Temperature")
  ) +
  scale_x_continuous("Month", breaks = 1:12)

Now both lines will align correctly with their respective axes, no more secondary scale misalignment.

3. Primary Y-Axis with Non-Zero Lower Limit

This is where things break most often—without locking limits, ggplot ignores your ylim.prim and adjusts the axis, breaking the transformation. Here's the fixed version:

ylim.prim <- c(95, 125)  # Non-zero lower limit for precipitation
ylim.sec <- c(15, 30)
b <- diff(ylim.prim)/diff(ylim.sec)
a <- b*(ylim.prim[1] - ylim.sec[1])

ggplot(climate, aes(Month, Precip)) +
  geom_line() +
  geom_line(aes(y = a + Temp*b), color = "red") +
  scale_y_continuous(
    "Precipitation",
    limits = ylim.prim,  # Mandatory lock to keep transformation valid
    sec.axis = sec_axis(~ (. - a)/b, name = "Temperature")
  ) +
  scale_x_continuous("Month", breaks = 1:12)

Now the secondary temperature axis will correctly map to your desired 15-30 range, even though the primary axis starts at 95.

Key Takeaway #

The linear transformation (a and b) depends entirely on the exact range you define for both axes. If ggplot adjusts the primary axis range automatically (which it does by default), the transformation no longer matches, leading to misaligned secondary axes. Always use limits = ylim.prim to enforce your custom range, and your dual axes will stay in sync every time.

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