R 如何使用ggplot2使用值的平均值标记图形

我已经创建了一个

geom_点

图，其中y轴点是每个x轴值的平均值。当我尝试用平均值来标记点时，我得到的是所有的值

这就是我到目前为止所做的：

ggplot(test, aes(x=reorder(Type, Rating, mean), y=Rating, label=Rating)) +
       stat_summary(fun.y="mean", geom="point") +
       geom_text()

---

您可以将stat_summary和geom_文本组合如下：

d <- data.frame(grp=gl(3,5, labels=letters[1:3]), v=rnorm(15))
ggplot(d, aes(grp, v)) + 
  stat_summary(fun.y=mean, geom="point") +
  stat_summary(aes(label=..y..), fun.y=mean, geom="text", size=8)

---

您可能想在

geom_text

中使用

hjust

和

vjust

，以便在点和文本之间留出一些空间。

ggplot(transform(ddply(d, .(grp), summarize, v=mean(v)), V=sprintf("%.02f", v)), 
  aes(grp, v)) +
  geom_point() + geom_text(aes(label=V))