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”的图表显示“Fair”的平均值，“Good”的图表显示“Good”的平均值等。

另外，但这是额外的，如果平均值为 1.0，我希望相对于 x 定位，而平均值显示在 x = 1.0

Answer 1

有多种方法可以获取标签（以及标签的位置）。这里使用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()