ggplot双Y轴图表问题：次坐标轴刻度调整与X轴对齐修复

问题原因分析 #

1. X轴偏移：柱状图中x = factor(month)将月份转为离散型变量，对应X轴位置为1、2...；而折线图中x = month是数值型，直接使用原始月份值（如4、5）作为X轴位置，导致两者错位。
2. 次Y轴未关联：sec_axis()仅定义了次轴的显示刻度转换，并未将折线数据的Y值映射到次轴，折线仍使用主Y轴的刻度范围，导致数据显示异常。

修复步骤与代码 #

修复后的完整代码 #

ggplot() +
  # 柱状图主体配置，保持X轴为离散型factor(month)
  geom_col(data = f400weight, 
           aes(x = factor(month), y = avg_weight, fill = factor(fruit_origin), color = factor(fruit_origin)), 
           position = "dodge", alpha = 0.7) +
  # 补回原柱状图的误差棒
  geom_errorbar(data = f400weight,
                aes(x = factor(month), ymin = avg_weight - error, ymax = avg_weight + error, group = factor(fruit_origin)),
                position = position_dodge(0.9), width = 0.25, show.legend = FALSE) +
  # 主/次Y轴配置，建立数值映射关系
  scale_y_continuous(
    name = "Average Fruit Weight (g)",
    limits = c(0, 50),
    # 次轴转换：主Y轴数值除以24.75（主Y轴最大值50/次Y轴最大值2.02≈24.75）
    sec.axis = sec_axis(~ ./24.75, name = "Total Weekly Yield (kg)")
  ) +
  # 折线图配置：X轴对齐离散型月份，Y轴按比例转换适配主Y轴
  geom_line(data = montgomery, 
            aes(x = factor(month), y = yield * 24.75, group = 1), 
            size = 0.5, color = "black") +
  # 添加折线数据点提升可读性
  geom_point(data = montgomery, 
             aes(x = factor(month), y = yield * 24.75), 
             size = 1.5, color = "black") +
  # 主题与图例配置
  labs(x = "Month of Production") +
  theme_bw() +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) +
  scale_fill_manual(values = c('deepskyblue1','forestgreen', 'navyblue', 'blueviolet')) +
  scale_color_manual(values = c('grey4', 'grey4', 'grey4', 'grey4')) +
  guides(fill = guide_legend(title = "Fruit Origin"), color = guide_legend(title = "Fruit Origin"))

关键修改说明 #

• 统一X轴类型：折线图的x参数改为factor(month)，与柱状图的离散型X轴完全对齐，彻底解决偏移问题。
• 次Y轴数值映射：
  • 计算主/次Y轴转换系数：以主Y轴最大值50、次Y轴最大值2.02为基准，得到系数≈24.75。
  • 折线的y值设置为yield * 24.75，将产量数据按比例放大适配主Y轴刻度；次轴通过~ ./24.75反向转换，实现数据与次轴的精准关联。
• 补全误差棒：原合并代码遗漏了柱状图的误差棒，补回后保持图表完整性。

注意事项 #

ggplot2官方不推荐使用双Y轴，不同轴的刻度易造成数据解读混淆。若场景允许，建议将两个指标拆分到独立图表，或使用分面布局展示。

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