ggplot2绘制不同刻度双Y轴时sec_axis缩放问题求助

ggplot2的sec_axis()生成的次轴不支持独立设置刻度范围，仅为主Y轴的线性映射镜像，这是现有代码无法得到预期效果的核心原因。

实现步骤 #

• 先计算两个指标的缩放换算系数，保证小量级的销售率（通常为0-1或0-100的比率）和大量级的销售额数值显示范围匹配

# 换算系数 = 销售额最大值 / 销售率最大值
coef <- max(mydf$Sales, na.rm = TRUE) / max(mydf$SalesRate, na.rm = TRUE)

• 修正绘图代码，对销售率做缩放适配，次轴反向映射还原真实刻度

library(ggplot2)
ggplot(mydf)  +
  geom_bar(aes(x = Month, y = Sales), stat = "identity", fill = "blue") +
  # 销售率乘以系数后与销售额数值范围对齐，可正常显示在线条图层
  geom_line(aes(x = Month, y = SalesRate * coef), color = "red", linewidth = 1) +
  scale_y_continuous(
    name = "销售额（Sales）",
    # 次轴将主Y轴的销售额数值除以系数，还原为真实销售率刻度
    sec.axis = sec_axis(~ . / coef, name = "销售率（SalesRate）")
  ) +
  # 可选配置：轴标签和对应图形同色，降低识别成本
  theme(
    axis.title.y.left = element_text(color = "blue"),
    axis.title.y.right = element_text(color = "red")
  )

如需主Y轴显示销售率，只需反转换算逻辑：将缩放系数改为销售率最大值除以销售额最大值，柱状图的y值乘以系数，次轴映射改为~ . * coef即可。

可选优化 #

• 若销售率为百分比格式，可在sec_axis中增加参数labels = scales::percent_format(accuracy = 1)，自动将数值转换为百分比样式显示
• 可额外添加geom_point(aes(x = Month, y = SalesRate * coef), color = "red")图层，让销售率的节点数据更清晰

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