如何使用ggplot2高亮指定分组内的特定折线？

失效原因说明 #

你之前使用gghighlight未生效，是因为原始代码中将color映射绑定到了Group分组，手动设置的scale_colour_manual和gghighlight的默认颜色覆盖逻辑冲突，导致高亮规则不生效。

推荐实现方案（适配5万级Marker大数据场景） #

优先选择双层geom_line方案，逻辑简单性能优异，无需额外依赖：

library(tidyverse)

# 示例数据构造
dt <- data.frame(Marker = paste0('m', rep(seq(1,10), 10)),
                 Year = rep(1990:1999, each = 10),
                 Ahat = rnorm(100, 0.5, 0.1)) %>% 
  mutate(Group = if_else(Marker %in% c("m1", "m2", "m3"), "A", 
                         if_else(Marker %in% c("m4", "m5", "m6"), "B", 
                         if_else(Marker %in% c("m7", "m8"), "C", "D")) ) )

# 定义需要高亮的Marker列表
highlight_markers <- c("m1", "m9")

ggplot() + 
  # 第一层：渲染所有普通折线，保留原有Group颜色映射，降低透明度
  geom_line(data = dt, 
            aes(x = Year, y = Ahat, 
                group = interaction(as.factor(Group), Marker), 
                color = as.factor(Group)), 
            alpha = 0.3, size = 0.3) +
  # 第二层：仅渲染需要高亮的折线，单独设置高亮样式
  geom_line(data = dt[dt$Marker %in% highlight_markers, ], 
            aes(x = Year, y = Ahat, 
                group = interaction(as.factor(Group), Marker)), 
            color = "black", size = 1) +
  theme_classic() +
  scale_y_continuous(name = "Predicted Value", breaks = scales::pretty_breaks()) +
  scale_colour_manual(name = "Groups", values = c("black", "red", "blue", "orange")) +
  facet_wrap(~Group)

该方案优势：

• 性能优异：5万条折线场景下仅需两次数据遍历，无额外计算开销，渲染速度远快于gghighlight方案
• 自定义灵活：可单独调整高亮折线的颜色、粗细、透明度，不会和原有Group颜色映射冲突
• 兼容性强：无需额外安装扩展包，避免依赖版本冲突问题

gghighlight修正方案（仅适合小数据场景） #

如果要使用gghighlight，需要调整参数关闭冲突逻辑：

library(gghighlight)

highlight_markers <- c("m1", "m9")

ggplot(dt, aes(x = Year, y = Ahat, group = interaction(as.factor(Group), Marker))) + 
  geom_line(aes(color = as.factor(Group)), alpha = 0.5, size = 0.5) +
  gghighlight(Marker %in% highlight_markers,
              unhighlighted_colour = alpha("gray", 0.2),
              use_direct_label = FALSE,
              keep_scales = TRUE) +
  theme_classic() +
  scale_y_continuous(name = "Predicted Value", breaks = scales::pretty_breaks()) +
  scale_colour_manual(name = "Groups", values = c("black", "red", "blue", "orange")) +
  facet_wrap(~Group)

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