有没有办法使用 ggpubr 手动添加误差线？

如何解决有没有办法使用 ggpubr 手动添加误差线？

我正在使用 ggpubr 包中的 ggbarplot 函数来生成条形图。我想继续使用 ggpubr 而不是 ggplot2，因为它提供了一种添加分组重要性条 (http://www.sthda.com/english/articles/24-ggpubr-publication-ready-plots/76-add-p-values-and-significance-levels-to-ggplots/) 的好方法。

我想添加我自己的手动误差条，就像通常在 ggplot2 中使用 ymax 和 ymin 参数所做的那样：

geom_errorbar(aes(ymax = upper_errorbar,ymin = lower_errorbar))

有没有办法使用 ggpubr 手动为误差条添加等效的 ymin 和 ymax 值？从手册中我看不出有什么办法，但想确定一下。

解决方法

是的，您可以像将 geom 添加到 ggplot 一样将 geom 添加到 ggpubr 图中。

最小可重现示例：

library(tidyverse)
library(ggpubr)

data("ToothGrowth")
df <- ToothGrowth %>%
  group_by(dose,supp) %>%
  mutate(mean_len = mean(len)) %>%
  mutate(upper_ci = mean_len + sd(len)/sqrt(length(len)),lower_ci = mean_len - sd(len)/sqrt(length(len)))

ggbarplot(df,x = "dose",y = "len",fill = "supp",merge = TRUE,add = "mean") +
  geom_errorbar(aes(group = supp,ymax = upper_ci,ymin = lower_ci),position = position_dodge(width = 0.8),width = 0.25)

^{由 reprex package (v2.0.0) 于 2021 年 7 月 21 日创建}