要实现「调整线条绘制顺序但保留原有图例顺序」，核心思路是把控制绘制顺序的变量和控制颜色/图例的变量分离开——不用修改原始factor的levels，而是通过ggplot的group参数单独指定绘制顺序，让color参数继续使用原始的factor来维持图例顺序。

分步实现（结合你的示例） #

首先还原你的数据和基础设置：

library(ggplot2)
dat <- data.frame(id = rep(factor(letters[1:3]),3), y = c(1:3,3,2,1,1,3,1), x = rep(1:3,each = 3))
# 固定颜色映射，确保颜色和原始图例对应
cols <- c("a" = 1, "b" = 2, "c" = 3)

方法1：创建独立的绘制顺序变量

我们可以给数据新增一个draw_order列，它的levels按照我们想要的绘制顺序定义（越靠前的level，线条绘制越早，位于底层），但不修改原始的id变量：

# 定义绘制顺序：c最先画（底层），然后a，最后b（顶层）
dat$draw_order <- factor(dat$id, levels = c("c", "a", "b"))

然后在绘图时，用color = id维持图例顺序，用group = draw_order控制绘制顺序：

ggplot(dat, aes(x = x, y = y, color = id, group = draw_order)) +
  geom_line(size = 2) +
  scale_colour_manual("id", values = cols)

方法2：直接在aes中定义绘制顺序（更简洁）

如果不想新增列，可以直接在ggplot的aes里临时定义group的factor顺序：

ggplot(dat, aes(x = x, y = y, color = id, 
                group = factor(id, levels = c("c", "a", "b")))) +
  geom_line(size = 2) +
  scale_colour_manual("id", values = cols)

效果说明 #

• 线条绘制顺序：和你用relevel后的效果一致——c线位于底层，b线位于顶层。
• 图例顺序：完全保留原始的a → b → c顺序，不会随绘制顺序改变。

原理拆解 #

• color = id：使用原始factor的levels，因此图例的排序严格遵循levels(dat$id)的原始顺序。
• group = [自定义顺序的factor]：ggplot会根据group变量的levels顺序决定绘制优先级——levels越靠前，线条绘制时间越早，会被后续绘制的线条覆盖；levels越靠后，绘制时间越晚，会处于顶层。

这样就完美实现了「绘制顺序调整」和「图例顺序保留」的需求，还不会修改原始数据的结构，避免影响其他分析工作。

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