ggplot2中sec_axis()适配双轴：降水柱状图起始与轴显示问题

核心思路 #

ggplot2的双轴并非独立的两个轴，而是靠数据缩放+轴反向映射实现视觉上的双轴效果。要让降水柱状图从动态计算的温度主Y轴最低刻度开始绘制，必须先把降水数值转换到温度轴的刻度区间内，再通过sec_axis还原成真实降水值。

分步解决方案 #

1. 计算温度主Y轴的动态刻度范围
   先算出你需要的最低刻度y_min，再动态匹配最高刻度y_max（保证覆盖温度数据且和y_min同为5的倍数）：

   # 计算温度主Y轴最低刻度
   y_min <- (round(seq(from = round(min(plot_data$tmin, na.rm = TRUE) - 5), to = 45, by = 5) / 5) * 5)[1]
   # 计算温度主Y轴最高刻度（向上取整到5的倍数）
   y_max <- round(max(plot_data$tmax, na.rm = TRUE) + 5, -1)
   

2. 将降水数据缩放到温度轴区间
   把降水值映射到y_min到y_max的范围内，这样柱状图会自然从y_min位置向上延伸：

   # 计算缩放因子（避免降水最大值为0时除以0）
   max_pcp <- max(plot_data$pcp, na.rm = TRUE)
   scale_factor <- ifelse(max_pcp == 0, 1, (y_max - y_min) / max_pcp)
   # 转换降水数据
   plot_data$pcp_scaled <- y_min + plot_data$pcp * scale_factor
   

3. 绘制双轴图表
   用转换后的pcp_scaled绘制柱状图，通过sec_axis把缩放后的值还原成真实降水数值：

   library(ggplot2)
   
   ggplot(plot_data, aes(x = date)) +
     # 温度折线（主Y轴）
     geom_line(aes(y = tmax, color = "最高温"), linewidth = 1) +
     geom_line(aes(y = tmin, color = "最低温"), linewidth = 1, linetype = "dashed") +
     # 降水柱状图（使用缩放后的数据）
     geom_col(aes(y = pcp_scaled, fill = "降水"), alpha = 0.4, width = 0.8) +
     # 配置主Y轴（温度）
     scale_y_continuous(
       name = "温度 (°C)",
       breaks = seq(y_min, y_max, by = 5),
       limits = c(y_min, y_max)
     ) +
     # 配置副Y轴（降水）
     scale_y_continuous(
       name = "温度 (°C)",
       breaks = seq(y_min, y_max, by = 5),
       limits = c(y_min, y_max),
       sec.axis = sec_axis(
         trans = ~ (. - y_min)/scale_factor,  # 反向转换回真实降水值
         name = "降水量 (mm)",
         breaks = seq(0, max_pcp, by = ifelse(max_pcp > 20, 5, 2))  # 动态调整降水刻度间隔
       )
     ) +
     # 图例与主题优化
     scale_color_manual(values = c("最高温" = "red", "最低温" = "blue")) +
     scale_fill_manual(values = c("降水" = "darkblue")) +
     labs(x = "日期") +
     theme_minimal() +
     theme(legend.position = "top")
   

右侧降水轴异常的修复关键 #

• 之前的异常基本是因为没对降水数据做缩放转换，直接用原始降水值绑定温度轴，导致副轴刻度映射完全混乱。
• 必须保证sec_axis的trans参数是主轴值到降水值的反向计算，和之前的缩放公式完全对应。
• 如果降水最大值偏小，可以调整scale_factor的计算逻辑，比如给温度轴预留更多空间，避免柱状图过于低矮。

额外注意事项 #

• 处理缺失值：计算y_min、y_max、max_pcp时必须加na.rm = TRUE，防止因缺失值导致计算失败。
• 刻度美观：可根据降水数据大小动态调整副轴刻度间隔，比如降水小于20mm时用2mm间隔，大于20mm时用5mm间隔。

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