使用ggplot2为面积图添加图例并设置右侧位置遇问题求助

问题背景 #

我在使用ggplot2绘制面积图时，尝试添加图例却无法成功显示，也没法将图例定位到图表右侧。当前实现代码如下：

library(ggplot2)

df <- read.csv("/home/pronostico_gas.csv")
gas <- as.data.frame(df[, 1:3])

ggplot(gas) +
  geom_area(aes(x = año, y = qg),
            colour = "#E2E418", fill = "#E2E418", alpha = 0.7, show.legend = TRUE) +
  geom_line(aes(x = año, y = np),
            colour = "#C5B21D", size=1, linetype = "dashed", show.legend = TRUE) +
  scale_x_continuous(breaks = gas$año) +
  scale_y_continuous(breaks = seq(0, 250, 40)) +
  labs(title = "Title", x = "año", y = "qo") +
  theme_classic() + 
  theme(plot.title = element_text(hjust = 0.5))

当前图表仅展示了面积区域和虚线，但无图例，无法区分两个数据系列。

解决方案 #

问题根源是你没有将数据系列的标识映射到aes()中，而是直接在图层外部指定颜色、线型，导致ggplot无法识别需要生成图例的维度。以下提供两种修正方案：

方案1：转换为长格式数据（推荐，符合ggplot2最佳实践）

将宽格式数据转换为长格式，统一映射系列变量，再手动指定样式：

library(ggplot2)
library(tidyr) # 用于转换数据格式

df <- read.csv("/home/pronostico_gas.csv")
gas <- as.data.frame(df[, 1:3])

# 转换为长格式：将qg、np列合并为series和value列
gas_long <- pivot_longer(gas, cols = c(qg, np), names_to = "series", values_to = "value")

ggplot(gas_long) +
  geom_area(aes(x = año, y = value, fill = series), alpha = 0.7) +
  geom_line(aes(x = año, y = value, color = series, linetype = series), size = 1) +
  # 手动设置每个系列的颜色、填充色、线型
  scale_fill_manual(values = c("qg" = "#E2E418")) +
  scale_color_manual(values = c("qg" = "#E2E418", "np" = "#C5B21D")) +
  scale_linetype_manual(values = c("qg" = "solid", "np" = "dashed")) +
  scale_x_continuous(breaks = gas$año) +
  scale_y_continuous(breaks = seq(0, 250, 40)) +
  labs(title = "Title", x = "año", y = "qo") +
  theme_classic() + 
  theme(
    plot.title = element_text(hjust = 0.5),
    # 将图例定位到右侧
    legend.position = "right",
    # 可选：移除图例标题
    legend.title = element_blank()
  )

方案2：不转换数据，手动映射系列名称

如果不想调整数据格式，可以在每个图层的aes()中手动指定系列名称，再统一配置样式：

library(ggplot2)

df <- read.csv("/home/pronostico_gas.csv")
gas <- as.data.frame(df[, 1:3])

ggplot(gas) +
  # 将fill和color绑定到"qg"，让ggplot识别为一个系列
  geom_area(aes(x = año, y = qg, fill = "qg", color = "qg"), alpha = 0.7) +
  # 将color和linetype绑定到"np"，识别为另一个系列
  geom_line(aes(x = año, y = np, color = "np", linetype = "np"), size = 1) +
  # 手动指定各系列的样式，统一图例名称（这里设置为空）
  scale_fill_manual(values = c("qg" = "#E2E418"), name = "") +
  scale_color_manual(values = c("qg" = "#E2E418", "np" = "#C5B21D"), name = "") +
  scale_linetype_manual(values = c("np" = "dashed"), name = "") +
  scale_x_continuous(breaks = gas$año) +
  scale_y_continuous(breaks = seq(0, 250, 40)) +
  labs(title = "Title", x = "año", y = "qo") +
  theme_classic() + 
  theme(
    plot.title = element_text(hjust = 0.5),
    # 定位图例到右侧
    legend.position = "right"
  )

关键修改说明 #

• 映射系列变量：必须将fill/color/linetype移入aes()，并关联到系列名称，这样ggplot才会生成对应图例
• 手动指定样式：通过scale_*_manual()设置每个系列的颜色、线型等，保证样式符合需求
• 图例定位：使用theme(legend.position = "right")将图例固定在图表右侧，也可设置为"top"/"bottom"/"left"调整位置

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