ggplot2线条颜色分配错误问题求助（附最小复现代码）

问题现象 #

• 预期效果：Left线条为红色（向下倾斜），Middle线条为蓝色（近似水平），Right线条为绿色（向上倾斜）
• 实际效果：向下倾斜线条显示为蓝色，水平线条显示为红色，仅绿色线条符合预期；图例的标签与颜色对应关系完全混乱

最小复现代码 #

library(ggplot2)
N  <- 10
mu <- 10
ones <-  rep(1, 3*N)

x1 <- c(rnorm(N) - mu, rnorm(N), rnorm(N) + mu)
x2 <- c(rnorm(N) - mu, rnorm(N), rnorm(N) + mu)
z1 <- c(rep(1, N), rep(0, N), rep(0, N)) * mu
z2 <- c(rep(0, N), rep(1, N), rep(0, N)) * mu
z3 <- c(rep(0, N), rep(0, N), rep(1, N)) * mu 

df <- data.frame(Intercept = ones, 
                 x1 = x1, 
                 x2 = x2, 
                 z1 = z1, 
                 z2 = z2, 
                 z3 = z3)

coef1 <- lm(z1 ~ x1 + x2, df)$coef
coef2 <- lm(z2 ~ x1 + x2, df)$coef
coef3 <- lm(z3 ~ x1 + x2, df)$coef
coeff <- cbind(coef1, coef2, coef3)

X = as.matrix(df[, c("Intercept", "x1", "x2")])
Y = as.matrix(df[, c("z1", "z2", "z3")])

lines <- as.data.frame(X %*% coeff)
colnames(lines) <- c("Left", "Middle", "Right")
df <- cbind(df, lines)

ggplot(df, aes(x = x1, y = x2)) +
  geom_point() +
  geom_line(aes(y = Left, color = "red")) +
  geom_line(aes(y = Middle, color = "blue")) +
  geom_line(aes(y = Right, color = "green"))

错误原因 #

问题出在geom_line的颜色赋值方式：在aes()内部直接传入"red"这类颜色字符串时，ggplot2会将其视为离散分类变量的标签，而非直接指定颜色。

ggplot2会自动收集所有color参数的标签值，按字母顺序排序后，映射到默认调色板的颜色。这里标签的字母排序为"blue"→"green"→"red"，对应默认调色板的颜色依次是蓝色、绿色、红色。但线条的绘制顺序是Left→Middle→Right，最终导致：

• 标记为"red"的Middle线条被分配红色
• 标记为"blue"的Left线条被分配蓝色
• 标记为"green"的Right线条被分配绿色
  完全违背了预期的颜色对应关系。

修复方案 #

有两种标准修复方式，可根据是否需要图例选择：

方式1：直接指定颜色（无图例） #

将color参数放在aes()外部，直接为线条指定颜色：

ggplot(df, aes(x = x1, y = x2)) +
  geom_point() +
  geom_line(aes(y = Left), color = "red") +
  geom_line(aes(y = Middle), color = "blue") +
  geom_line(aes(y = Right), color = "green")

方式2：手动映射标签与颜色（带图例） #

先在aes()中使用有意义的线条名称作为标签，再通过scale_color_manual()手动指定颜色映射：

ggplot(df, aes(x = x1, y = x2)) +
  geom_point() +
  geom_line(aes(y = Left, color = "Left")) +
  geom_line(aes(y = Middle, color = "Middle")) +
  geom_line(aes(y = Right, color = "Right")) +
  scale_color_manual(values = c(Left = "red", Middle = "blue", Right = "green"))

更规范的长数据写法 #

符合ggplot2“长数据”规范的做法是先将数据转换为长格式，仅需调用一次geom_line：

# 转换为长格式（需加载tidyr包）
df_long <- tidyr::pivot_longer(df, cols = c(Left, Middle, Right), 
                               names_to = "Line", values_to = "y_val")

ggplot(df_long, aes(x = x1, y = x2)) +
  geom_point() +
  geom_line(aes(y = y_val, color = Line)) +
  scale_color_manual(values = c(Left = "red", Middle = "blue", Right = "green"))

修复效果 #

以上方案均可实现：Left线条显示红色（向下倾斜），Middle线条显示蓝色（近似水平），Right线条显示绿色（向上倾斜），图例标签与颜色完全匹配。

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