使用ggplot添加多个次坐标轴时出现二元运算符非数值参数错误

报错直接原因 #

你的判断完全正确：scale_y_continuous的sec.axis参数不支持传入列表，这是触发non-numeric argument to binary operator错误的核心原因。ggplot2原生仅支持单个副轴，传入多个sec_axis()组成的列表会导致内部类型处理逻辑混乱，引发数值运算错误。

可行修复方案 #

ggplot2的设计理念不推荐使用多副轴（易造成数据解读混淆），如果必须实现，推荐以下两种方案：

方案1：数据重塑+手动刻度映射（原生ggplot2实现） #

先将宽格式数据转为长格式，对不同量级的系列进行缩放统一到主轴范围，再手动配置副轴刻度：

library(tidyverse)

# 转换为长格式数据
Process_Data_long <- Process_Data %>%
  pivot_longer(cols = -length, names_to = "series", values_to = "value")

# 定义各系列的缩放系数（对应原代码中的分母倒数）
scale_map <- list(
  OD = 1,
  WT0 = 46, WT90 = 46, WT180 = 46, WT270 = 46,
  Zone0 = 1, Zone1 = 1,
  rpm = 5,
  speed = 115
)

# 应用缩放，将所有系列值映射到主轴范围
Process_Data_long <- Process_Data_long %>%
  mutate(scaled_value = value * scale_map[[series]])

# 绘制图表
ggplot(Process_Data_long, aes(x = length, y = scaled_value, color = series)) +
  geom_line(linewidth = 0.8) +
  scale_y_continuous(
    name = "OD",
    sec.axis = sec_axis(
      ~ .,
      # 手动设置副轴刻度位置（对应缩放后的值）
      breaks = c(6*46, 7*46, 45, 50, 265, 40*5, 1.5*115),
      # 手动设置副轴刻度标签（对应原始值）
      labels = c("6", "7", "45", "50", "265", "40", "1.5"),
      name = "WT/Zone/RPM/Speed"
    )
  ) +
  theme(
    axis.line = element_line(color = "black"),
    plot.margin = margin(10, 30, 10, 10)
  )

方案2：使用ggside包实现多侧边轴（更清晰） #

ggside扩展包支持在图表侧边添加独立的轴和系列，避免多副轴的刻度重叠问题：

library(ggplot2)
library(ggside)

ggplot(Process_Data, aes(x = length)) +
  # 主Y轴绘制OD、Zone系列
  geom_line(aes(y = OD, color = "OD"), linewidth = 0.8) +
  geom_line(aes(y = Zone0, color = "Zone0"), linewidth = 0.8) +
  geom_line(aes(y = Zone1, color = "Zone1"), linewidth = 0.8) +
  # 右侧侧边轴绘制WT系列
  geom_yside_line(aes(y = WT0, color = "WT0"), linewidth = 0.8) +
  geom_yside_line(aes(y = WT90, color = "WT90"), linewidth = 0.8) +
  geom_yside_line(aes(y = WT180, color = "WT180"), linewidth = 0.8) +
  geom_yside_line(aes(y = WT270, color = "WT270"), linewidth = 0.8) +
  # 右侧侧边轴添加rpm、speed系列（缩放后避免重叠）
  geom_yside_line(aes(y = rpm + 20, color = "rpm"), linewidth = 0.8) +
  geom_yside_line(aes(y = speed * 100 + 40, color = "speed"), linewidth = 0.8) +
  # 配置侧边轴刻度
  scale_yside_continuous(
    breaks = c(6, 7, 20+40, 40+150),
    labels = c("6", "7", "40", "1.5")
  ) +
  theme(
    axis.line = element_line(color = "black"),
    plot.margin = margin(10, 50, 10, 10),
    ggside.panel.scale = 0.3
  )

重要提示 #

• 优先考虑分面绘图（将不同量级的系列拆分为独立子图），这是ggplot2推荐的数据可视化方式，避免多副轴带来的解读歧义。
• 原代码中逐个调用geom_line的方式可以通过数据重塑优化为单个geom_line，提升代码简洁性和可维护性。

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