这是一个使用MTCARS数据集的曲线图，其中一个级别的Cyl以不同的 colored颜色 高亮显示，并在所有点的顶部重新绘制.
data %>%
ggplot() +
aes(
x = wt,
y = mpg
) +
geom_point(
colour = "grey"
) +
geom_point(
data = data %>% filter(cyl == 4),
colour = "tomato"
) +
theme_bw()
有没有这样一种方法，如果我要像下面这样创建一个facet_print，我可以像上面那样突出显示一个小平面中的每个点，而不是仅仅自己绘制它们？
data %>%
ggplot() +
aes(
x = wt,
y = mpg,
colour = factor(cyl)
) +
geom_point() +
facet_wrap(
~ factor(cyl)
) +
theme_bw()
