R：是否可以在 ggplot 中為 mean_cl_boot 添加標簽？

Question

我正在嘗試在抖動 plot 中添加表示均值的標簽，我在 stat_summary 中使用了 mean_cl_boot function，均值顯示在 plot 上，但我想添加顯示實際值的標簽，我在有點失落。

抖動 plot

這是我的代碼

lisbondata %>% 
  ggplot(aes(q1b,exage)) +
  stat_summary(fun.data = "mean_cl_boot",colour="red") +
  geom_jitter(alpha=0.2) +
  labs(title = "Age distribution between Yes/No votes",
        x = "Vote",
        y = "Age") +
  theme_bw()

Answer 1

您可以將不同的統計信息和幾何組合在一起。 如果你有stat_summary() ，你可以通過設置geom = "label"將它與geom_label()結合起來。 然后，您可以通過使用after_stat()延遲label美學的分配來告訴 label 是平均值。

library(ggplot2)

ggplot(iris, aes(Species, Sepal.Length)) +
  geom_jitter(colour = "grey50") +
  stat_summary(
    fun.data = "mean_cl_boot", colour = "red"
  ) +
  stat_summary(
    fun.data = "mean_cl_boot",
    geom = "label",
    aes(label = after_stat(scales::number(y))),
    hjust = 1.2
  )

^{由reprex package (v2.0.1) 創建於 2022-02-19}