如何在ggplot中高亮单个数据集，其余保留自动配色并自定义样式？

我在论坛上找过类似问题，但都不符合我的需求。我用ggplot2绘制了包含8个数据集的点线图，希望高亮其中一个数据集（比如把CR5设置为黑色虚线样式），剩下的数据集让软件自动配色。后续可能会添加更多数据集，所以不想手动设置所有颜色，只需要自定义目标数据集的颜色和样式，有没有快速实现的方法？

当前使用的代码： #

data = data.frame(A = c("CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR1","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR2","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","CR3","Target","Target","Target","Target","Target","Target","Target","Target","Target","Target","Target","Target","Target","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR5","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR6","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7","CR7")
                         ,TIME = c(0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18,0,0.33,0.67,1,1.5,2,3,4,7,10,13,16,18)
,
VAL = c(0,0.2062,0.3171,0.4032,0.5071,0.5931,0.7325,0.8381,1.0332,1.0945,1.0958,1.0958,1.0893,0,0.1192,0.1822,0.2314,0.2969,0.3583,0.4605,0.5571,0.7956,0.9577,1.0322,1.042,1.0413,0,0.1934,0.3049,0.3936,0.4999,0.5915,0.7453,0.8774,1.0571,1.0694,1.0657,1.0627,1.0658,0,0.0954,0.1427,0.1846,0.2418,0.2972,0.4113,0.5353,0.8212,0.9717,1.0038,1.0002,1.004,0,0.1095,0.1491,0.1875,0.2372,0.278,0.3608,0.4382,0.6466,0.807,0.8972,0.9325,0.9476,0,0.1025,0.1499,0.1884,0.239,0.2848,0.3689,0.4538,0.6884,0.8525,0.947,0.9714,0.9743,0,0.1213,0.1741,0.2158,0.2758,0.3251,0.4297,0.5286,0.785,0.9463,1.0264,1.044,1.0541
))


ggplot (data) +
  geom_point( aes(x = TIME, y = VAL, group = A, color = A )) + 
  geom_line(aes(x = TIME, y = VAL, group = A, color = A )) +
  theme_classic()

当前绘图效果： #

解决方案 #

核心思路是把目标数据集和其他数据分开处理，既保留自动配色，又能单独自定义目标组样式，后续新增数据集也不用手动调整颜色。

方法一：分图层绘制（直观易理解） #

library(ggplot2)

# 定义需要高亮的组名
highlight_group <- "CR5"

# 获取所有非高亮组的名称
non_highlight_groups <- unique(data$A)[unique(data$A) != highlight_group]
# 为非高亮组自动生成和ggplot默认一致的配色
auto_colors <- setNames(scales::hue_pal()(length(non_highlight_groups)), non_highlight_groups)
# 合并高亮组的自定义颜色
custom_colors <- c(auto_colors, setNames("black", highlight_group))

ggplot() +
  # 绘制所有非高亮组的点和线，使用自动配色
  geom_point(data = subset(data, A != highlight_group),
             aes(x = TIME, y = VAL, group = A, color = A)) +
  geom_line(data = subset(data, A != highlight_group),
            aes(x = TIME, y = VAL, group = A, color = A)) +
  # 绘制高亮组的点和线，自定义样式
  geom_point(data = subset(data, A == highlight_group),
             aes(x = TIME, y = VAL, group = A, color = A),
             color = "black") +
  geom_line(data = subset(data, A == highlight_group),
            aes(x = TIME, y = VAL, group = A, color = A),
            color = "black", linetype = "dashed") +
  # 统一图例颜色，确保所有组都显示正确
  scale_color_manual(values = custom_colors) +
  theme_classic()

说明：

• 用subset()将数据拆分为高亮组和普通组，分别绘制图层
• 普通组使用默认的color = A，配合scales::hue_pal()自动生成配色，和ggplot默认效果一致
• 高亮组单独指定color = "black"和linetype = "dashed"实现高亮
• 新增数据集时，只需修改highlight_group变量，无需调整其他颜色设置

方法二：通过尺度函数直接设置（更简洁） #

library(ggplot2)

highlight_group <- "CR5"

ggplot(data) +
  geom_point(aes(x = TIME, y = VAL, group = A, color = A)) +
  geom_line(aes(x = TIME, y = VAL, group = A, color = A, linetype = A)) +
  # 自定义颜色：高亮组为黑色，其余自动配色
  scale_color_manual(values = function(x) {
    cols <- scales::hue_pal()(length(x))
    cols[x == highlight_group] <- "black"
    cols
  }) +
  # 自定义线型：高亮组为虚线，其余为实线
  scale_linetype_manual(values = function(x) {
    ifelse(x == highlight_group, "dashed", "solid")
  }) +
  theme_classic()

说明：

• 利用scale_color_manual和scale_linetype_manual的values参数，通过条件判断直接为目标组设置样式
• 普通组自动使用ggplot默认的配色和实线样式，代码更紧凑，新增数据集无需额外调整

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