R语言ggplot图表图例缺失：如何添加geom_bar与geom_line的图例？

问题根源 #

ggplot2的图例基于**美学映射（aesthetic mapping）**生成，如果你直接在geom_bar()或geom_line()里设置fill/color而非放入aes()中，ggplot不会将其识别为需要生成图例的属性。双Y轴场景下，还需确保两个图层的映射能被图例系统正确识别。

解决方案代码示例 #

假设你的数据包含Date、Usage、Scaled_Weather列，修改后的代码如下：

library(ggplot2)

# 替换为你的真实数据
df <- data.frame(
  Date = seq.Date(as.Date("2023-01-01"), as.Date("2023-01-10"), by = "day"),
  Usage = sample(50:100, 10),
  Scaled_Weather = scale(sample(10:30, 10))[,1]
)

ggplot(df, aes(x = Date)) +
  # 柱状图：将fill映射到"Usage"，放入aes中触发图例生成
  geom_bar(aes(fill = "Usage"), stat = "identity", alpha = 0.7) +
  # 折线图：将color映射到"Scaled Weather"，放入aes中，同时设置线条样式
  geom_line(aes(y = Scaled_Weather, color = "Scaled Weather"), size = 1.2, linetype = "solid") +
  # 双Y轴配置（按需使用）
  scale_y_continuous(
    name = "Usage",
    sec.axis = sec_axis(~., name = "Scaled Weather")
  ) +
  # 手动指定各图例项的颜色
  scale_fill_manual(values = "#2E86AB") +
  scale_color_manual(values = "#F24C4E") +
  # 调整图例标题与布局
  labs(fill = "", color = "") +
  theme(legend.position = "top",
        legend.box = "horizontal")

关键修改点 #

• 把图例标识放入aes()：柱状图的fill、折线图的color都要在aes()内指定对应名称（如fill = "Usage"），让ggplot识别为图例项。
• 手动绑定颜色：用scale_fill_manual()和scale_color_manual()为每个图例项设置目标颜色，确保与图层样式匹配。
• 双Y轴适配：如果使用sec.axis，只要图层映射正确，图例会自动包含两个元素，无需额外配置。
• 图例细节优化：通过labs()移除冗余图例标题，用theme()调整图例位置和排列方式。

额外优化提示 #

若想让图例中同时正确显示柱状和折线符号，可添加guides()统一调整：

guides(
  fill = guide_legend(override.aes = list(shape = NA)),
  color = guide_legend(override.aes = list(fill = NA))
)

这样能避免图例中柱状与折线符号互相干扰，显示更精准。

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