R ggplot2双Y轴问题：次Y轴与主Y轴刻度一致的原因

架构老林

2026-7-13

问题原因及解决方案

问题根源

你的代码里sec_axis(trans = ~.)只是把主Y轴的刻度直接复制到次轴，但两个变量量级完全不匹配——主轴是百万级美元销售额，次指标是几十到几百的范围，这种写法根本没让次轴映射到指标的真实数值范围，自然会和主轴刻度一致。

ggplot的双Y轴逻辑是次轴基于主轴刻度做转换生成，你得先把指标数据缩放到主轴的量级范围，再在次轴通过反向转换还原指标的真实数值。

修正步骤

计算缩放系数：用主变量（total_dollars）的范围和次变量（循环中的metric）的范围算出比例，把次变量缩放到主变量的量级后绘图，再在次轴反向转换还原真实刻度。
调整循环代码，加入转换逻辑：

修正后的代码

for (metric in metrics) {
  for (brand_name in unique(entire_brand_month_data$Brand)){
    brand_data <- entire_brand_month_data[entire_brand_month_data$Brand == brand_name,]
    
    # 计算缩放系数，把指标量级匹配到销售额范围
    sales_range <- diff(range(brand_data$total_dollars, na.rm = TRUE))
    metric_range <- diff(range(brand_data[[metric]], na.rm = TRUE))
    scale_factor <- sales_range / metric_range
    
    ggplot(brand_data, aes(x=Date)) +
      geom_line(aes(y=total_dollars, color = "Dollar Sales")) +
      # 绘图时将指标乘以缩放系数，适配主Y轴量级
      geom_line(aes(y=get(metric) * scale_factor, color = metric)) +
      scale_y_continuous(
        name = "Dollar Sales",
        # 次轴反向转换，还原指标真实数值
        sec.axis = sec_axis(trans = ~./scale_factor, name = metric)
      ) +
      labs(title = paste("Brand", brand_name, "Sales and", metric),
           x="Date") +
      theme_minimal() + 
      guides(color = guide_legend(title = "Legend")) -> p
    print(p)
  }
}