使用ggplot绘制带次坐标轴的折线叠堆柱状图失败求助

嘿，我懂你遇到的这个坑！ggplot2的次坐标轴其实有点“虚”——它不是真的让折线直接用另一个独立轴，而是需要你手动把折线的数值映射到主坐标轴的范围里，再反向标注次轴刻度。你之前应该就是漏掉了数值转换这一步，导致折线还是跟着主轴走。

我给你一步步拆解解决方案，结合你的数据结构来：

1. 核心逻辑先搞懂 #

ggplot2不原生支持真正独立的次坐标轴，所有图层都是基于主坐标轴的数值范围绘制的。所以折线要对应次轴的话，得做两步：

• 先把折线的数值按比例缩放，让它适配主坐标轴的数值范围
• 再通过sec_axis()把缩放后的数值还原成原始值，作为次轴的刻度显示

2. 具体代码示例（适配你的数据结构） #

假设你的数据里，折线对应的变量是Rate（你可以替换成自己实际的变量名），代码如下：

首先加载必备工具包：

library(ggplot2)
library(dplyr) # 处理数据更方便，可选但推荐

模拟你的数据结构（直接替换成你的真实数据集即可）：

df <- tibble(
  date = as.Date(c("2018-04-02", "2018-04-03", "2018-04-04")),
  Combine_Shift = c("536 PM_Shift", "537 AM_Shift", "538 PM_Shift"),
  Shift_Type = c("PM", "AM", "PM"),
  Prod = c(1088, 950, 1120), # 柱状图的叠堆数值
  Rate = c(85, 72, 90) # 折线图的次轴对应数值
)

计算主副轴的缩放比例（这是关键一步！）：

# 用主轴最大值除以副轴最大值，得到缩放因子
scale_factor <- max(df$Prod) / max(df$Rate)
# 如果数据有异常值，建议用分位数代替max，避免极端值影响布局：
# scale_factor <- quantile(df$Prod, 0.95) / quantile(df$Rate, 0.95)

绘制最终图表：

ggplot(df, aes(x = date)) +
  # 绘制叠堆柱状图，按Shift_Type分堆
  geom_col(aes(y = Prod, fill = Shift_Type), position = "stack") +
  # 绘制折线，这里必须用缩放后的数值：Rate * scale_factor
  geom_line(aes(y = Rate * scale_factor, color = "Rate"), size = 1.2) +
  geom_point(aes(y = Rate * scale_factor, color = "Rate"), size = 3) +
  # 设置主副坐标轴
  scale_y_continuous(
    name = "Production Volume", # 主坐标轴标题
    # 次坐标轴：把缩放后的数值除以scale_factor，还原成原始Rate
    sec.axis = sec_axis(~ . / scale_factor, name = "Production Rate")
  ) +
  # 美化颜色和标签
  scale_fill_brewer(palette = "Set2") +
  scale_color_manual(values = "#E63946", labels = "Rate") +
  labs(title = "Daily Production & Rate", x = "Date", color = "") +
  theme_minimal()

3. 容易踩的坑再提醒 #

• 折线的y映射必须是缩放后的值，如果直接用原始的Rate，数值太小（或太大）就会贴着主轴底部（或超出范围），看起来像是没用到次轴。
• 叠堆柱状图的position = "stack"不能忘，不然会变成分组柱状图，不符合你的需求。
• 如果次轴的刻度显示不对，检查缩放因子的计算是否正确，确保主副轴的数值范围匹配。

这样调整后，折线就会完美对应右侧的次坐标轴，和左侧的叠堆柱状图搭配正常啦！

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