如何让ggplot图例背景色与图表背景色匹配？

你的核心问题是未通过统一的美学映射关联同一类别的点和折线，导致图例无法正确匹配图表中的元素样式。下面提供两种解决方案，优先推荐第一种更简洁的长数据格式写法：

方案1：合并数据集（推荐） #

将多个数据集整合成一个带类别标记的长数据框，让ggplot自动处理颜色映射和图例：

library(ggplot2)
library(dplyr)

# 1. 统一列名并添加类别标识
Food <- Food %>% rename(Month = X) %>% mutate(category = "Food")
Gasoline <- Gasoline %>% rename(Month = Year) %>% mutate(category = "Gasoline")
Energy <- Energy %>% rename(Month = X) %>% mutate(category = "Energy")

# 2. 合并所有数据
combined_data <- bind_rows(Food, Gasoline, Energy) %>%
  mutate(Month = as.numeric(Month))

# 3. 绘图：通过category统一映射颜色
ggplot(combined_data, aes(x = Month, y = X2022, color = category)) +
  geom_point() +
  geom_smooth(se = FALSE) +
  ylim(0, 450) +
  labs(x = "Months", y = "Consumer Price Index") +
  # 可选：自定义颜色（按需调整）
  scale_color_manual(values = c(
    "Food" = "#1f77b4",
    "Gasoline" = "#ff7f0e",
    "Energy" = "#2ca02c"
  )) +
  # 可选：隐藏图例标题
  theme(legend.title = element_blank())

方案2：不合并数据，手动调整图例 #

如果不想修改数据结构，可通过guides()强制图例同时显示点和折线样式：

library(ggplot2)

ggplot() +
  # 统一将x转为numeric，避免映射不一致
  geom_point(data = Food, aes(x = as.numeric(X), y = X2022, color = "Food")) +
  geom_smooth(data = Food, aes(x = as.numeric(X), y = X2022, color = "Food"), se = FALSE) +
  geom_point(data = Gasoline, aes(x = as.numeric(Year), y = X2022, color = "Gasoline")) +
  geom_smooth(data = Gasoline, aes(x = as.numeric(Year), y = X2022, color = "Gasoline"), se = FALSE) +
  geom_point(data = Energy, aes(x = as.numeric(X), y = X2022, color = "Energy")) +
  geom_smooth(data = Energy, aes(x = as.numeric(X), y = X2022, color = "Energy"), se = FALSE) +
  ylim(0, 450) +
  labs(x = "Months", y = "Consumer Price Index") +
  # 移除图例标题
  scale_color_discrete(name = NULL) +
  # 强制每个图例条目同时显示点（shape=16）和折线（linetype=1）
  guides(color = guide_legend(override.aes = list(shape = 16, linetype = 1)))

问题原因说明 #

你原本的代码中，每个geom单独设置color = "类别名"，ggplot会将每个元素的颜色视为独立映射，无法关联同一类别的点和折线，导致图例要么样式缺失（比如只有点没有线），要么颜色匹配混乱。通过统一映射或手动调整图例样式，就能让图例与图表元素的颜色、样式完全对应。

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