r - 如何在条形图中添加观察次数？（需要同时显示误差条和意义）

Question

我正在按照教程中的代码构建自己的图表：

library(ggpubr)
data("ToothGrowth")
ggbarplot(ToothGrowth, x = "dose", y = "len", 
          add = c("mean_se", "jitter"),
          color = "supp", palette = "jco",
          position = position_dodge(0.8))

我想显示每列（底部或顶部）的观察次数，以及误差线和重要性。任何人都可以以 ToothGrowth 为例进行这样的绘图吗？

标签： rggplot2ggpubr

Answer 1

你可以试试这个：

ggbarplot(ToothGrowth, x = "dose", y = "len", 
          add = c("mean_se", "jitter"),
          color = "supp", palette = "jco",
          position = position_dodge(0.8)) +
  geom_text(aes(x = factor(dose),
                y = 0,
                label = paste("n =",len,"\n"),
                group = supp),
            aggregate(. ~ dose + supp,ToothGrowth,length),
            position = position_dodge(.8))

我没有找到如何使用这个包为每个组绘制一个错误栏，我不确定是否有可能，通过使用这样的包简化界面，你也会失去灵活性。