r - ggpubr/ggbarplot 中的错误栏突然合并（没有代码更改），我怎样才能再次将它们分开？

Question

我有以下代码：

ggbarplot(Text1, x = "Page", y = "IA_REGRESSION_OUT_COUNT", 
          color = "Modified", add = "mean_se", fill = "Modified", 
          width = .6, position = position_dodge(0.8)) +  
  stat_compare_means(method = "t.test", aes(group = Modified), 
                     label = "p.signif", label.y = 0.3, na.rm = TRUE) + 
  labs(x = "Page number", y = "Avg Regression Count", 
       caption = "* = p value < 0.5; **** = p value < 0.0001") + 
  scale_color_manual(values=c("black", "black")) + 
  scale_fill_manual(values=c("#CCCCCC","#FFFFFF")) + 
  theme_minimal()

产生了这个情节

但是，由于今天出现了这种情况，也许是因为一些更新？

知道如何解决此问题并将其与每列的错误栏一起返回吗？

Answer 1

我找到了解决方案。只需添加以下代码。

add.params = list(group = "type"), position = position_dodge(0.8)

Answer 2

现在已解决此问题。请在 GitHub 上安装最新的开发版本（https://github.com/kassambara/ggpubr/issues/109）并尝试以下操作：

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

生成的图应如下所示：