GGPLOT2在幾個圖

Question

我嘗試用每個圖形的平均比以紀念我的圖表標註方式：

ggplot(diamonds, aes(x = carat, fill=cut)) + 
stat_density(aes(ymax = ..density.., ymin = -..density..), 
    geom = "ribbon", position = "identity") + 
    facet_grid(. ~ cut) + 
    xlim(0,2.5) + 
    geom_text(data = NULL, x = 0.6, y = 0, label = mean(carat), size=5) + 
    coord_flip() 

例如，在這裏，我想「廣交會」的曲線圖顯示的「大路貨「，」好「的顯示平均值爲」良好「等。

另外，但是這是一個額外的，我想如果平均值爲1.0，則定位爲x，而平均值顯示在x = 1.0時

Answer 1

有很多方法可以獲得標籤（和l的位置abels）。在這裏，dplyr包用於總結diamonds數據幀;即獲得所需的手段。另請注意，標籤的格式是兩位小數。在下面的代碼中，diamonds2數據幀包含手段和標籤，用於撥打geom_text。

library(ggplot2) 
library(dplyr) 

diamonds2 = transform(summarise(group_by(diamonds, cut), label = mean(carat)), 
    Label = sprintf("%.02f", label)) 

ggplot(diamonds, aes(x = carat, fill=cut)) + 
stat_density(aes(ymax = ..density.., ymin = -..density..), 
    geom = "ribbon", position = "identity") + 
facet_grid(. ~ cut) + 
xlim(0, 2.5) + 
geom_text(data = diamonds2, aes(label = Label, x = label, y = 0), size=5) + 
coord_flip()