如何在分面绘图时为两层元素添加gghighlight并移除无关垂直线？

问题描述 #

原本通过gghighlight实现了分面图中对应组线条高亮、其他组线条淡化的效果，但添加geom_vline后，每个分面中出现了不属于当前组的淡化垂直线（比如组b的分面里不该出现2000、2002年的垂直线），需要实现线条和垂直线两层元素都适配gghighlight的高亮逻辑，同时移除分面无关的垂直线。

解决方案 #

核心是让垂直线数据与分面分组绑定，并让gghighlight同时作用于线条和垂直线图层，具体实现方式如下：

完整代码示例 #

library(tidyverse)
library(gghighlight)

# 生成主数据（设置随机种子保证结果可复现）
set.seed(123)
df <- data.frame(
  year = c(rep(2000, 3), rep(2001, 3), rep(2002, 3)),
  my_group = c(rep(letters[1:3], 3)),
  value = c(rnorm(3, 10, 2), rnorm(3, 15, 2), rnorm(3, 20, 2))
)

# 生成各分组对应的垂直线年份数据
df_year <- data.frame(
  my_group = c(letters[1:3]),
  year_of_interest = c(2000, 2001, 2002)
)

# 绘图逻辑
ggplot(df, aes(x = year, y = value, group = my_group)) +
  geom_line(linewidth = 1.5) +
  # 为垂直线添加分组映射，绑定到对应分面
  geom_vline(data = df_year, 
             mapping = aes(xintercept = year_of_interest, group = my_group),
             linewidth = 1.5, colour = "blue") +
  # 指定gghighlight同时作用于线条和垂直线，隐藏非当前组元素
  gghighlight(TRUE, 
              label_key = my_group, 
              use_direct_label = TRUE,
              apply_to = c("line", "vline"),
              unhighlighted_params = list(colour = alpha("grey", 0))) +
  facet_wrap(~my_group)

关键代码说明 #

• geom_vline的aes中加入group = my_group：让垂直线与分组关联，确保gghighlight能识别哪些垂直线属于当前分面组；
• apply_to = c("line", "vline")：指定gghighlight同时对线条和垂直线图层应用高亮逻辑；
• unhighlighted_params = list(colour = alpha("grey", 0))：将非当前组的线条和垂直线设置为完全透明，直接隐藏无关元素，避免出现多余的淡化垂直线；
• set.seed(123)：固定随机种子，保证生成的数值可复现，方便调试。

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