R语言ggplot双轴折线图问题：次级轴数据及趋势线无法显示

问题根源 #

ggplot的次级轴仅为视觉辅助层，所有图层的绘制逻辑都基于左侧主轴的刻度范围。你的代码直接使用per_emp原始值绘制，但它的数值范围（0-7000）和主轴Amount（0-6000000）差距极大，导致per_emp的折线和趋势线被压缩到主轴底部，几乎不可见。

解决步骤 #

必须将per_emp的数值通过转换公式映射到主轴的刻度区间，再通过次级轴的反向公式还原真实刻度。

修正后的完整代码 #

# 定义主轴和次级轴的数值范围
ylim.prim <- c(0, 6000000)  # Amount的取值范围
ylim.sec <- c(0, 7000)      # per_emp的取值范围

# 计算转换系数：将次级轴数据映射到主轴范围的公式为 y = x*b + a
b <- diff(ylim.prim) / diff(ylim.sec)
a <- ylim.prim[1] - b * ylim.sec[1]

ggplot(data, aes(x = month)) +
  # 主轴：Amount折线及趋势线
  geom_line(aes(y = Amount, colour = 'Expenses')) +
  geom_smooth(method = 'lm', se = FALSE, aes(y = Amount, colour = 'Expenses Trend')) +
  # 次级轴：先将per_emp转换到主轴范围再绘制
  geom_line(aes(y = per_emp * b + a, colour = 'per_emp')) +
  geom_smooth(method = 'lm', se = FALSE, aes(y = per_emp * b + a, colour = 'per_emp Trend')) +
  # 配置双轴：次级轴用逆运算还原真实刻度
  scale_y_continuous(
    name = "Expenses",
    limits = ylim.prim,
    sec.axis = sec_axis(~ (. - a)/b, name = "per_emp")
  ) +
  # 手动设置图例颜色映射
  scale_colour_manual(
    name = "Series",
    values = c(
      "Expenses" = "black",
      "Expenses Trend" = "blue",
      "per_emp" = "red",
      "per_emp Trend" = "green"
    )
  ) +
  theme_minimal()

关键细节说明 #

• 所有次级轴相关图层的y值必须使用转换结果：per_emp * b + a，确保数据落在主轴的刻度范围内，才能正常显示。
• sec_axis中的~ (. - a)/b是转换公式的逆运算，用于将主轴刻度转换为次级轴的真实数值。
• 显式设置limits = ylim.prim可以避免ggplot自动调整轴范围导致的图层偏移。

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