R ggplot-将所有数据点添加到所有构面

到目前为止，我找不到合适的答案，这是我关于R中的ggplot2的简短问题:

data(mtcars)
ggplot(data=mtcars, aes(x=mpg, y=wt, fill=factor(cyl))) +
scale_fill_manual(values=c("red","orange","blue"))+
geom_point(size=2, pch=21)+
facet_grid(.~cyl)

一切都很好，现在我想要每个面中的所有数据点(无论cyl有多少数字)(例如，点下方有平滑的灰色)吗？

谢谢迈克尔

最佳答案

这是一个略微的简化，使生活变得更加轻松。您唯一需要做的就是从提供给背景geom_point()层的数据中删除构面变量。

library(tidyverse)
ggplot(data=mtcars, aes(x=mpg, y=wt)) +
  geom_point(data=select(mtcars,-cyl), colour="grey") +
  geom_point(size=2, pch=21, aes(fill=factor(cyl))) +
  scale_fill_manual(values=c("red","orange","blue")) +
  facet_wrap(~cyl)

关于R ggplot-将所有数据点添加到所有构面，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/36714752/