调整ggplot图例：实现经济周期标识与经济变量标注

调整后完整代码 #

library(ggplot2)

ggplot(Alldata, aes(Date)) + 
  # 经济周期阴影层
  geom_tile(aes(alpha = Recession, y = 1), 
            fill = "grey", height = Inf) +
  # 自定义阴影区域图例
  scale_alpha_continuous(
    name = "经济周期",
    range = c(0, 1), 
    breaks = c(0, 1),
    labels = c("经济扩张", "经济衰退")
  ) +
  # 通胀预期折线
  geom_line(aes(y = stdINFEX, color = "Inflation Expectations"), size = .8) +
  # CLI折线
  geom_line(aes(y = CLI, color = "CLI"), size = .8) +
  # 自定义经济变量图例
  scale_color_manual(
    name = "经济变量",
    values = c("Inflation Expectations" = "red", "CLI" = "green")
  ) +
  ylab('') +
  theme(
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank()
  )

关键调整说明 #

• 阴影区域图例调整：在scale_alpha_continuous中新增name参数设置图例标题为「经济周期」，通过labels参数将0、1的数值映射为「经济扩张」「经济衰退」的文字说明，完全匹配阴影显示逻辑
• 经济变量图例新增：不再直接在geom_line的外层参数写颜色值，而是把颜色关联放到aes()映射中，再通过scale_color_manual手动绑定标签和对应颜色，自动生成独立的经济变量图例

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