您可以使用第二个
geom_crossbar
在其中更轻松地绘制平均线 我使用
width
position_dodge
):
library(ggplot2)
pd <- position_dodge(width = .9)
ggplot(data = df, aes(x = pet, y = mean, fill = sex)) +
geom_crossbar(aes(ymin = ci_lower, ymax = ci_upper),
position = pd, width = 0.8
) +
geom_crossbar(
aes(ymin = mean, ymax = mean),
position = pd, width = 0.85, color = "red"
)