highlight_facet.md

library(tidyverse)
library(gghighlight)

mtcars %>%
  select(mpg,cyl,disp,hp,drat) %>%
  gather(variable, value, -disp, -hp, -drat, -cyl) %>%
  mutate(cyl = factor(cyl)) %>% 
  ggplot(aes(disp,value,color=factor(drat))) +
  facet_wrap( ~ cyl, labeller = label_both, drop = FALSE) +
  geom_point() +
  gghighlight(drat >= 4, use_group_by = FALSE) +
  theme_bw()

^{Created on 2018-10-24 by the reprex package (v0.2.1)}