在geom_point图中添加大于或小于0的点计数注释

Question

全部！

我已经成功地使用ggplot2生成了如下图，该图具有每个组中的总点数。 如果我要分别添加大于或小于0的点数，该怎么做？

谢谢！

give.n <- function(x){ 
  return(c(y = 10, label = length(x)))
  }


ggplot(dta, aes(x=type, y=foldChange, fill=grp)) +       
  geom_point(size=1,alpha=0.2,position = position_jitterdodge(jitter.width = .2),aes(col=grp)) + 
  geom_boxplot(alpha=0,outlier.shape=NA) + guides(fill=FALSE) + theme_bw() + xlab("") +
  geom_hline(yintercept = 0,col="red") +
  stat_summary(fun.data = give.n, geom = "text", fun.y = median, position = position_dodge(width = 0.75))

Answer 1

您可以在ggplot函数中子集化以绘制所需的任何内容。在您的情况下，如果您想要的值> 0

ggplot(subset(dta, foldChange > 0), aes(x=type, y=foldChange, fill=grp))

我不确定稍后再添加这些点是什么意思，但这至少应该过滤掉您想要的点。