如何用facet_wrap实现分面高亮目标点且显示全部数据？

要实现每个分面中同时显示全部灰色数据点，并高亮当前分面对应的cyl分组数据，可以通过分层绘制geom_point来实现，具体修改如下：

方法1：统一用固定颜色高亮（如番茄色） #

library(ggplot2)
library(dplyr)

mtcars %>%
  ggplot(aes(x = wt, y = mpg)) +
  # 绘制全部数据点作为灰色背景层
  geom_point(colour = "grey") +
  # 绘制当前分面对应的cyl数据点并高亮
  geom_point(
    data = . %>% filter(cyl == as.integer(cur_facet()$cyl)),
    colour = "tomato",
    size = 2  # 增大尺寸强化高亮效果
  ) +
  facet_wrap(~ factor(cyl)) +
  theme_bw()

方法2：保留原cyl分组配色高亮 #

如果希望高亮颜色和原cyl分组的默认配色一致，可参考以下代码：

library(ggplot2)
library(dplyr)

mtcars %>%
  mutate(cyl_fac = factor(cyl)) %>%
  ggplot(aes(x = wt, y = mpg)) +
  geom_point(colour = "grey") +
  geom_point(
    data = . %>% filter(cyl_fac == cur_facet()$cyl),
    aes(colour = cyl_fac),
    size = 2
  ) +
  facet_wrap(~ cyl_fac) +
  theme_bw()

关键修改说明 #

1. 移除原代码中aes内的colour = factor(cyl)，避免默认按cyl着色，改为统一灰色打底。
2. 利用cur_facet()函数获取当前分面的cyl分组值，过滤出对应数据作为高亮层绘制。
3. 调整size参数可让高亮点更突出，提升视觉区分度。

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