如何在geom_density2d中为2个类别绘制黑线？

Question

这是代码

dfr<-rbind(data.frame(hd=rnorm(100, 0.05, 0.1), bit.cnt=rnorm(100, 5000, 2000), type="a"),
      data.frame(hd=rnorm(300, 0.45, 0.1), bit.cnt=rnorm(300, 3000, 2000), type="b")
      )
ggplot(data=dfr, aes(x=hd, y=bit.cnt, colour=type)) + geom_point(alpha=0.5) + geom_density2d()

它产生蓝色和红色密度线。是否可以将这些线条变黑，同时保持点的颜色？

Answer 1

您需要定义group=type，然后将颜色设置为＆＃39;黑色＆＃39;在geom_density2d。

内

ggplot(data=dfr, aes(x=hd, y=bit.cnt, colour=type, group=type)) + 
    geom_point(alpha=0.5) + geom_density2d(color='black')