如何在ggplot2中映射多几何图形及改造时序图并保留图例

嘿，我来帮你搞定这两个需求！咱们一步步来：

一、给现有图表添加图例 #

你现在的代码是逐个图层指定美学映射，但没有把系列名称关联到图例的核心美学属性（比如color或fill），所以ggplot不会自动生成图例。只需要给每个图层的aes里加上对应映射，再统一设置图例样式就行：

# 假设你的数据框是base，包含periodo、tasa、inflacion、real2列
ggObj <- ggplot(base) +
  # 给每条折线指定color映射，值为系列名称
  geom_line(aes(x = periodo, y = tasa, color = "Tasa")) +
  geom_line(aes(x = periodo, y = inflacion, color = "Inflación")) +
  # 给柱状图指定fill映射，值为系列名称
  geom_bar(aes(x = periodo, y = real2, fill = "Interés Real"), 
           stat = "identity", alpha = .7) +
  geom_hline(yintercept = 0, linetype = 2, size = 1) +
  # 统一颜色和填充的手动设置，名称一致时图例自动合并
  scale_color_manual(name = "系列", 
                     values = c("Tasa" = "darkblue", "Inflación" = "darkred")) +
  scale_fill_manual(name = "系列", 
                    values = c("Interés Real" = "forestgreen")) +
  # 可选：调整图例位置等样式
  theme(legend.position = "bottom")

这样就能得到包含三个系列的统一图例了，你可以根据喜好修改颜色值。

二、用单个变量映射不同几何图形（推荐长数据格式） #

更规范易维护的做法是把宽数据转换成长格式（tidy data），这样只用一次核心美学映射，就能对应不同的几何图形：

第一步：转换数据格式 #

用tidyr::pivot_longer把多列数值转换成「类别+数值」的结构：

library(tidyr)
base_long <- base %>%
  pivot_longer(cols = c(tasa, inflacion, real2),
               names_to = "Tipo",
               values_to = "Valor")

转换后的数据结构示例：

第二步：基于长数据绘制图表 #

现在可以通过过滤Tipo来分别指定几何图形，同时自动生成图例：

library(dplyr)
ggObj <- ggplot(base_long) +
  # 绘制折线：仅针对tasa和inflacion系列
  geom_line(data = . %>% filter(Tipo %in% c("tasa", "inflacion")),
            aes(x = periodo, y = Valor, color = Tipo)) +
  # 绘制柱状：仅针对real2系列
  geom_bar(data = . %>% filter(Tipo == "real2"),
           aes(x = periodo, y = Valor, fill = Tipo),
           stat = "identity", alpha = .7) +
  geom_hline(yintercept = 0, linetype = 2, size = 1) +
  # 重命名图例和系列显示名称，更友好
  scale_color_discrete(name = "系列",
                       labels = c("tasa" = "Tasa", "inflacion" = "Inflación")) +
  scale_fill_discrete(name = "系列",
                       labels = c("real2" = "Interés Real")) +
  theme(legend.position = "right")

这种方法的好处是后续添加新系列时，只需要调整数据转换部分，不用重复新增geom_*图层，代码扩展性更强。

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