我如何添加图例来计数ggplot2中某个值之上或之下的点？火山图

Question

我正在尝试制作一个火山图（点图），其中某个y值以上的点根据其x值从红色到绿色以渐变的方式上色，并添加一个图例，该图例指定了上面的点数这些值。

我有与此类似的代码：

set.seed(123)
x <- runif(600, -3, 3)
y <- runif(600, 0, 0.6)
df<- as.data.frame(cbind(x,y))

df %>% ggplot(aes(x, -log10(y), color=x)) +
  geom_point()+
  geom_hline(yintercept=1.3, color="darkgrey")+
  scale_fill_gradient(low="red",high="green", aesthetics = "color") 

（使用我的数据）生成此图：

[volcano plot] 1

但是我想让图例分别计算y> 1.3＆x> 0和y> 1.3＆x <0的点数（不显示颜色栏），并且我希望线下的点为黑色。

有人可以帮我吗？

谢谢！!!!

Answer 1

需要注意的一点：ggplot中的图例仅用于解释美学的表示方式。为了使图例显示结果或数据（例如信息的总计），您必须使用与ggplot2内置的方法不同的方法。