带有函数的标签点聚集在r中的散点图中

Question

如何在下面的图表中添加按以下方式分组的点的标签：类别（KEY）超过（＆gt;）类别+ 2的平均值？

我设法将标签添加到超过特定值（20）的点（无论类别）。下方。

geom_text(aes(label=ifelse(PRODVENDA>20,as.character(Projeto),'')), 
            hjust=0,vjust=0, show.legend = FALSE

我尝试将功能聚合在一起，但我无法做到。有可能吗？

prodVenda_KEY <- ggplot(dfProjeto, aes(Projeto, PRODVENDA, group=KEY,color=KEY, shape=KEY)) + 
  geom_point(aes(colour = factor(dfProjeto$KEY)), size = 2.5) + 
  labs(title = "Sales productivity") + xlab('')+ ylab('') +
  theme_minimal() +
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(), axis.ticks.x=element_blank()) +
  geom_text(aes(label=ifelse(PRODVENDA>20,as.character(Projeto),'')), 
            hjust=0,vjust=0, show.legend = FALSE)

我的数据的可重复示例：

Projeto    Key            PRODVENDA
(code)     (text)         (number productivity)

2020      Web-service     20
2074      Web-service     15
8787      XLS             12

谢谢！