我相信有不同的方法可以做到这一点。实现具体目标的一种方法是使z成为一个因子，并将'abcde'作为因子水平（不会出现在数据中），然后在色标中使用drop == FALSE。

dat <- data.frame(x = 1:5, y = rnorm(5), z = c('a', 'b', 'c' , 'd' , 'e')) 
dat$z <- factor(dat$z, levels = c(letters[1:5], 'abcde'))
ggplot(dat, aes(x = x, y = y, color = z)) + 
  geom_point() +
  scale_color_manual(values = c(rep("black",5), "red"), drop = FALSE)

第二种选择是通过色标的limits参数添加一个额外的类别，对于后者，我使用scale_color_manual，就像@AndreasM的方法一样：

set.seed(123)
dat <- data.frame(x = 1:5, y = rnorm(5), z = c("a", "b", "c", "d", "e"))

library(ggplot2)

ggplot(dat, aes(x = x, y = y, color = z)) +
  geom_point() +
  scale_color_manual(
    values = c(rep("black", 5), "red"),
    limits = \(x) c(x, "abcde")
  )