Вы можете попробовать это:
ggbarplot(ToothGrowth, x = "dose", y = "len",
add = c("mean_se", "jitter"),
color = "supp", palette = "jco",
position = position_dodge(0.8)) +
geom_text(aes(x = factor(dose),
y = 0,
label = paste("n =",len,"\n"),
group = supp),
aggregate(. ~ dose + supp,ToothGrowth,length),
position = position_dodge(.8))
![enter image description here](https://i.stack.imgur.com/Ffnt6.png)
Я не нашел, как построить одну полосу ошибок для каждой группы с этим пакетом,и я не уверен, что это возможно, упрощая интерфейс с таким пакетом, вы также теряете гибкость.