如何在ggplot中使用两个scale_color_manual设置不同元素颜色？

在ggplot2中，同一个美学属性（比如color）默认只能绑定一套刻度系统，所以你后续的scale_color_manual会覆盖之前的配置。下面提供两种可行的解决方法：

方法一：使用ggnewscale包创建独立颜色刻度 #

这个方法可以保留两组颜色的图例，适合需要同时展示散点和文本颜色对应关系的场景：

1. 先安装并加载ggnewscale包（如果未安装过）
2. 在geom_text前添加new_scale_color()，重置颜色美学的刻度上下文

示例代码：

library(ggplot2)
library(dplyr)
library(ggnewscale)

data2 <- mtcars |> mutate(color = sample(3, size = nrow(mtcars), replace = TRUE))

mtcars |> 
  ggplot(aes(mpg, disp, color = factor(am))) +
  scale_color_manual(values = c("black", "red")) + # 散点的颜色映射
  geom_point() +
  new_scale_color() + # 开启新的颜色刻度上下文
  geom_text(data = data2, aes(mpg - 1, disp, label = cyl, color = factor(color))) +
  scale_color_manual(values = c("green", "blue", "orange")) # 文本标签的颜色映射

方法二：手动指定文本颜色（无需图例） #

如果不需要展示文本标签的颜色图例，可以直接在geom_text中设置color参数，不使用美学映射：

示例代码：

library(ggplot2)
library(dplyr)

data2 <- mtcars |> mutate(color = sample(3, size = nrow(mtcars), replace = TRUE))
# 定义与color水平对应的颜色向量
text_colors <- c("green", "blue", "orange")

mtcars |> 
  ggplot(aes(mpg, disp, color = factor(am))) +
  scale_color_manual(values = c("black", "red")) +
  geom_point() +
  geom_text(
    data = data2, 
    aes(mpg - 1, disp, label = cyl), 
    color = text_colors[data2$color] # 直接指定颜色，不纳入全局映射
  )

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