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() 

Например, здесь я хотел бы график «Ярмарка» отображается среднее «Fair », то в« Хорошем »отображается среднее значение« Хорошее »и т. д.

Кроме того, но это дополнительный параметр, я хотел бы быть расположен относительно x, если среднее значение равно 1.0, тогда как среднее значение отображается при x = 1,0

Answer 1

Существует множество способов получить метки (и позиции для l Абелс). Здесь пакет 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()