如何使用ggplot2標記圖形的平均值

Question

我創建了一個geom_point圖表，其中y軸點是各個x軸值的平均值。當我試圖用平均數來標記這個觀點時，我得到的是所有的價值觀。

這是我到目前爲止有：

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

Answer 1

你可以結合stat_summary和geom_text這樣的：

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) 

，但可能最好是事先聚集和格式化標籤：

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