R语言ggplot2中geom_bar叠加图表优化：position_nudge计算异常问题

嘿，作为R语言新手能尝试用ggplot2做叠加柱状图已经很棒啦！咱们来捋捋你遇到的问题：你用position_nudge(x=0.4)试图分开降水和温度的柱子，但因为没筛选温度数据的有效行，导致ggplot把每个月份下所有温度类型的行都画了出来（大部分是0值），叠加后不仅高度不对，偏移逻辑也偏离了预期。另外你重复设置了标题、坐标轴标签，后面的会直接覆盖前面的，这也会让图表标题混乱。

下面是具体的解决步骤：

1. 先整理温度数据 #

你的数据里每个月份只有一行有效温度值（比如2014-04的COLD对应4月总天数30天，2014-05的COLD对应5月总天数31天），其他温度类型的tem_value都是0。咱们先筛选出tem_value > 0的行，单独用来画温度柱子：

# 筛选有效温度数据，只保留有实际天数的行
temp_data <- complet_w[complet_w$tem_value > 0, ]

2. 优化ggplot代码 #

这里要注意几个关键细节：

• 不要在aes()里写complet_w$列名，直接用列名即可，ggplot会自动继承data参数的数据集
• 降水柱子用默认的堆叠模式，设置合适的宽度
• 温度柱子用筛选后的temp_data，通过position_nudge(x=0.4)偏移到降水柱子右侧，设置更窄的宽度避免重叠
• 统一设置坐标轴标签和标题，避免重复覆盖
• 可以手动设置填充色，区分降水和温度的类型，避免图例混淆

library(ggplot2)

ggplot(data = complet_w, aes(x = year_month, y = pre_value, fill = pre_type)) +
  # 绘制降水堆叠柱状图，宽度设0.4预留温度柱子的位置
  geom_bar(stat = "identity", width = 0.4) +
  # 绘制温度单柱状图，偏移到降水柱子右侧，宽度设0.2
  geom_bar(data = temp_data, 
           aes(x = year_month, y = tem_value, fill = tem_type), 
           stat = "identity", 
           width = 0.2,
           position = position_nudge(x = 0.4)) +
  # 统一设置坐标轴、标题和图例名称
  labs(x = "日期",
       y = "天数",
       title = "月度降水与温度天数统计",
       fill = "类型") +
  # 手动设置填充色（可选，避免降水和温度类型颜色重复）
  scale_fill_manual(values = c("NONE" = "#88CCEE", "HEAVY" = "#117733", 
                               "LIGHT" = "#DDCC77", "MEDIUM" = "#CC6677",
                               "COLD" = "#AA4499", "HOT" = "#DDDDDD")) +
  theme_bw() # 可选，用简洁的主题让图表更清晰

3. 代码逻辑解释 #

• 筛选temp_data后，每个月份只有一行温度数据，画出来的柱子高度就是对应月份的实际天数（30/31天），不会被0值行干扰
• position_nudge(x=0.4)让温度柱子刚好偏移到降水柱子的右侧，两者完全不会重叠
• 用labs()统一设置坐标轴和标题，避免了重复设置导致的覆盖问题
• scale_fill_manual()自定义每种类型的颜色，让降水和温度的类别区分更直观

这样调整后，你就能得到每个月份左侧是堆叠的降水天数柱状图，右侧是对应温度天数（准确达到30/31天）的单柱状图，完全符合你的需求啦！

内容的提问来源于stack exchange，提问作者Elodie P.