如何添加一个覆盖整个数据而忽略分组的图?

How can I add a plot that covers the whole data ignoring grouping?

我有一个带有变量 delta2 的数据框,我将其剪切为 above and below 0.8 并为两个组绘制 var1 v/s var2。但我还想添加 delta2 = -Inf,Inf 的案例,基本上包括整个数据集并比较相同的 var1 v/s var2。我该如何继续?

sm$dclass <- cut(sm$d, breaks=c(-Inf, 0.8, Inf), labels=c("delta2 < 0.8 ","delta2 >= 0.8"))

ggplot(sm, aes(var1, var2)) +
  facet_wrap(~ dclass) +
  geom_point(aes(colour=factor(dclass))) +
  stat_density_2d()+
  scale_colour_discrete()

一种技术是将重新定义的数据添加到现有绘图中。例如:

library(ggplot2)

ggplot(mtcars, aes(disp, mpg, col=factor(cyl))) +
  geom_point() +
  stat_density_2d() +
  geom_point(data=transform(mtcars, cyl="all")) +
  stat_density_2d(data=transform(mtcars, cyl="all")) +
  facet_wrap(~ cyl)