R语言ggplot2同一分组下如何为散点和文本标签设置不同颜色

两个图层共用了同一个颜色标度。geom_point和geom_text都将color映射到Group字段时，ggplot2会默认合并同类型美学为统一标度，由于Group只有3个取值，scale_color_manual传入的6个颜色只会被读取前3个，后3个暗色系没有匹配的映射层级，不会生效。

方法1：使用ggnewscale拆分独立颜色标度（逻辑最清晰） #

通过ggnewscale包给散点、文本分别创建独立的颜色映射规则，互不干扰：

# 首次使用请先运行安装：install.packages("ggnewscale")
library(ggplot2)
library(ggnewscale)

# 固定随机种子方便复现结果
set.seed(123)
plot_df <- data.frame(
  Year = 2013:2022,
  Value = round(rnorm(10), 1),
  Group = sample(letters[1:3], 10, replace = TRUE)
)

ggplot(plot_df, aes(Year, Value)) +
  # 散点层配置亮色系配色
  geom_point(aes(color = Group), size = 2) +
  scale_color_manual(
    values = c(a = "red", b = "green", c = "blue"),
    name = "分组"
  ) +
  # 重置颜色标度，后续color映射使用全新独立标度
  new_scale_color() +
  # 文本标签层配置暗色系配色
  geom_text(
    aes(label = Value, color = Group),
    vjust = -1,
    show.legend = FALSE
  ) +
  scale_color_manual(values = c(a = "darkred", b = "darkgreen", c = "darkblue"))

方法2：无需额外安装包的实现方式 #

提前给每行数据匹配好标签对应的暗色值，文本层直接传入颜色参数，不做美学映射：

library(ggplot2)
set.seed(123)
plot_df <- data.frame(
  Year = 2013:2022,
  Value = round(rnorm(10), 1),
  Group = sample(letters[1:3], 10, replace = TRUE)
)
# 提前匹配分组对应的标签暗色
text_color_map <- c(a = "darkred", b = "darkgreen", c = "darkblue")
plot_df$text_col <- text_color_map[plot_df$Group]

ggplot(plot_df, aes(Year, Value)) +
  geom_point(aes(color = Group), size = 2) +
  scale_color_manual(values = c(a = "red", b = "green", c = "blue"), name = "分组") +
  geom_text(aes(label = Value), color = plot_df$text_col, vjust = -1)

两种方式运行后都能实现3组散点对应红/绿/蓝、同组数值标签对应暗红/暗绿/暗蓝的效果。

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