ggplot双Y轴柱状图问题：NDVI未对应右侧Y轴求助

你的代码核心问题是仅创建了右侧Y轴，但未将NDVI数据与该轴关联，且转换逻辑方向错误：NDVI值（0.15-0.3）远小于LST（22-26），需要先把NDVI放大到LST的量级来匹配左侧轴刻度，再通过右侧轴还原回真实值，而非缩小LST。

修正步骤与代码 #

1. 计算转换系数：将NDVI值放大到LST的数值范围，确保柱子高度在同一坐标系下可见
2. 分别绘制LST和NDVI的柱状图，NDVI使用放大后的值映射左侧轴
3. 右侧轴通过反向转换，将放大后的数值还原为真实NDVI值

# 计算适配LST范围的转换系数
lst_vals <- mun_ndvi_lst_long$Variable[mun_ndvi_lst_long$Type == "LST"]
ndvi_vals <- mun_ndvi_lst_long$Variable[mun_ndvi_lst_long$Type == "NDVI"]
coeff <- diff(range(lst_vals)) / diff(range(ndvi_vals))

ggplot(mun_ndvi_lst_long, aes(x = Municipality)) +
  # 绘制LST柱状图，使用原始值对应左侧Y轴
  geom_col(
    aes(y = Variable, fill = "LST"),
    position = position_dodge(width = 0.9),
    width = 0.4
  ) +
  # 绘制NDVI柱状图，先放大数值适配左侧轴范围
  geom_col(
    aes(y = Variable * coeff, fill = "NDVI"),
    position = position_dodge(width = 0.9),
    width = 0.4
  ) +
  # 设置双Y轴：左侧为LST，右侧反向转换回NDVI
  scale_y_continuous(
    name = "LST (°C)",
    sec.axis = sec_axis(~ . / coeff, name = "NDVI")
  ) +
  # 自定义填充色区分两类数据
  scale_fill_manual(values = c("LST" = "#4682B4", "NDVI" = "#228B22")) +
  # 旋转X轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

关键说明 #

• 分开绘制两组柱状图，确保NDVI数据经过缩放后能在同一坐标系下显示
• position_dodge参数保证LST和NDVI的柱子在同一X轴标签下错开排列
• 右侧轴的转换公式是左侧轴数值除以系数，还原出真实的NDVI值

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