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

现在已经修复了。请在 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)
)

生成的图应该是这样的: