如何在条形图中添加观察数？ （需要同时显示错误栏和重要性）

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为例绘制这样的图？

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

我没有找到如何使用此程序包为每个组绘制一个误差线，而且我不确定是否有可能通过简化此类程序包的界面而失去灵活性。