如何在不考虑分组的情况下添加覆盖整个数据的图？

Question

我有一个变量为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()

Answer 1

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

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)