If you consider this code
ggbarplot(ToothGrowth, x = "dose", y = "len", add = "mean_se", color = "supp", pal