如何在ggplot中选择图例项同时保留scale_color_manual()指定的颜色刻度

这个问题的核心是要同时实现两个目标：给所有有序因子曲线分配正确颜色，同时只在图例中展示首尾两个因子。你之前遇到的灰色曲线问题，大概率是因为颜色向量没有和因子进行绑定（即不是命名向量），导致使用breaks过滤图例后，中间因子丢失了颜色映射。

下面是具体的解决方案：

关键思路 #

使用命名颜色向量将每个有序因子与对应的颜色一一绑定，这样即使通过breaks指定只显示部分图例项，ggplot依然能为所有因子匹配到正确的颜色，不会出现灰色曲线。

完整代码示例 #

1. 模拟带有序因子的数据 #

library(ggplot2)

set.seed(123) # 保证结果可复现
# 创建包含有序因子的数据集
df <- expand.grid(
  x = 1:10,
  group = ordered(letters[1:5]) # 有序因子，从a到e
)
# 生成y值，不同组有不同均值
df$y <- rnorm(nrow(df), mean = as.numeric(df$group), sd = 0.5)

2. 定义命名颜色向量 #

注意每个颜色值都对应一个因子名称，确保颜色和因子绑定：

color_map <- c(
  "a" = "#E63946",  # 第一个因子的颜色
  "b" = "#457B9D",
  "c" = "#1D3557",
  "d" = "#A8DADC",
  "e" = "#F1FAEE"   # 最后一个因子的颜色
)

3. 绘制图表并控制图例 #

两种等价的方式实现需求：

方式一：在scale_color_manual中指定breaks

ggplot(df, aes(x = x, y = y, color = group)) +
  geom_line(linewidth = 1) +
  scale_color_manual(
    values = color_map,  # 为所有因子分配颜色
    # 指定图例仅显示首尾两个有序因子
    breaks = c(levels(df$group)[1], levels(df$group)[length(levels(df$group))]),
    labels = c("首组", "尾组") # 可选：自定义图例显示的文字
  ) +
  theme_minimal()

方式二：通过guides()控制图例显示

ggplot(df, aes(x = x, y = y, color = group)) +
  geom_line(linewidth = 1) +
  scale_color_manual(values = color_map) +
  guides(
    color = guide_legend(
      breaks = c(levels(df$group)[1], levels(df$group)[length(levels(df$group))]),
      labels = c("First Group", "Last Group")
    )
  ) +
  theme_minimal()

为什么之前的方法失效？ #

如果你的颜色向量是普通的无命名向量（比如colors <- c("red", "blue", "green")），当使用breaks过滤图例时，ggplot会只保留breaks对应的颜色值，中间因子无法匹配到颜色，就会显示默认的灰色（NA值颜色）。而命名向量会直接通过因子名称匹配颜色，不受breaks的影响。

动态适配任意数量的有序因子 #

如果你的有序因子数量不固定，可以用levels(df$group)[1]和levels(df$group)[length(levels(df$group))]自动获取首尾因子，无需硬编码具体的因子名称。

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