R语言绘制带独立次坐标轴的多系列数据图表方案问询

嘿，完全不用放弃ggplot2！虽然它对次坐标轴的设计确实有点“死板”——默认要求次轴是主轴的固定倍数，但对付动态数据的双Y轴需求，咱们还是有办法绕开这个限制的。

核心思路是：手动将其中一个系列的数据转换到另一个系列的数值范围内，然后在次坐标轴上反转这个转换逻辑，这样不管数据怎么动态变化，次轴都能准确对应原数据的真实值。

具体步骤和代码示例 #

首先，咱们先把原始数据里的格式统一成数值类型（毕竟原数据里的百分比是字符串，得先转成数字才能计算）：

# 处理数据类型：去掉百分号、转成数值
df$Series1_num <- as.numeric(sub("%", "", df$Series1))
df$Series2_num <- as.numeric(sub("%", "", df$Series2))
df$Series3_num <- as.numeric(df$Series3)

接下来，动态计算转换系数——这个系数会把Series3的数值范围映射到Series1/Series2的范围内，完全适配动态数据：

# 计算两个Y轴系列的数值范围
y_left_range <- range(c(df$Series1_num, df$Series2_num))
y_right_range <- range(df$Series3_num)

# 计算线性转换的系数和截距：y_left = coeff * y_right + intercept
coeff <- diff(y_left_range) / diff(y_right_range)
intercept <- y_left_range[1] - coeff * y_right_range[1]

# 转换Series3的数据到左侧Y轴的范围
df$Series3_transformed <- coeff * df$Series3_num + intercept

最后，用ggplot画图，同时设置次坐标轴来反转转换逻辑：

library(ggplot2)

ggplot(df, aes(x = Quarters)) +
  # 绘制左侧Y轴的两个系列
  geom_line(aes(y = Series1_num, color = "Series1"), linewidth = 1) +
  geom_line(aes(y = Series2_num, color = "Series2"), linewidth = 1) +
  # 绘制右侧Y轴的系列（用转换后的数据）
  geom_line(aes(y = Series3_transformed, color = "Series3"), linewidth = 1, linetype = "dashed") +
  # 设置左侧Y轴，同时添加次坐标轴并反转转换
  scale_y_continuous(
    name = "Series1 & Series2 (%)",
    sec.axis = sec_axis(
      trans = ~ (. - intercept)/coeff,  # 反转转换公式，得到Series3的真实值
      name = "Series3"
    )
  ) +
  # 自定义颜色和图例
  scale_color_manual(
    values = c("Series1" = "#2196F3", "Series2" = "#F44336", "Series3" = "#4CAF50"),
    labels = c("Series1 (%)", "Series2 (%)", "Series3")
  ) +
  labs(x = "Quarters") +
  theme_minimal() +
  theme(legend.title = element_blank(), legend.position = "bottom")

关键说明 #

• 这个方法的核心是线性转换，不管你的动态数据怎么变，转换系数和截距都会自动重新计算，完全不需要依赖固定比例。
• 要注意：ggplot官方其实不太推荐使用双Y轴，因为它很容易让读者误解数据之间的关系。如果场景允许，更推荐用分面图（比如把Series3单独做成一个子图放在下方）来展示，会更清晰。但如果业务上必须用双Y轴，上面的方案完全可行。

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