gghighlight与ggplot分面绘图配合失效问题求助

问题场景 #

现有包含2个连续变量（x、y）、2个因子（slope、intercept）的数据框，目标是绘制分面图并高亮y < 1.5的数据，同时将未高亮数据设为深灰色。尝试两种写法均存在问题：

• 写法一：高亮生效，但未高亮的深灰色数据完全不显示
• 写法二：能显示深灰色未高亮数据，但每个分面会展示全部数据集，不符合分面逻辑

数据生成代码 #

library(ggplot2)
library(gghighlight)

n = 50
x = runif(n)
slope = sample(c(2,4), n, replace = TRUE)
intercept = sample(c(0, 0.5), n, replace = TRUE)
y <- slope * x + intercept

df <- data.frame(x = x, y = y, slope = slope, intercept = intercept)
df$slope <- as.factor(df$slope) 
df$intercept <- as.factor(df$intercept)

问题原因分析 #

• 写法一问题：gghighlight放在geom图层之前时，会先过滤数据集，仅保留满足高亮条件的数据传入后续geom图层，未高亮数据被直接排除，因此无法显示深灰色样式。
• 写法二问题：未设置calculate_per_facet = TRUE，gghighlight默认对整个数据集进行高亮判断，导致所有分面都会加载全部数据，破坏分面逻辑。

修正后的代码 #

ggplot(df, aes(x, y)) +
  # 先绘制所有数据的线和点
  geom_line(aes(group = interaction(slope, intercept), colour = slope)) +
  geom_point(aes(shape = intercept, colour = slope)) +
  # 按分面计算高亮，同时设置未高亮样式
  gghighlight(y < 1.5, 
              unhighlighted_params = list(colour = "darkgrey"),
              calculate_per_facet = TRUE) +
  facet_wrap(~ slope)

关键参数说明 #

• calculate_per_facet = TRUE：让gghighlight在每个分面内独立判断高亮条件，确保每个分面仅显示对应分面的数据集，避免跨分面数据混入。
• 图层顺序：将geom图层放在gghighlight之前，确保gghighlight能对已绘制的全部数据应用高亮/未高亮样式，未高亮数据的深灰色设置才能生效。

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