有没有办法使用 ggpubr 手动添加错误栏？

Question

我正在使用 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 值？从手册中看，我没有看到任何方法，但想确定。

Answer 1

是的，您可以像将 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-07-21 创建

有没有办法使用 ggpubr 手动添加错误栏？

Is there a way to add error bars manually using ggpubr?

r

ggplot2

ggpubr