如何在R中使用stat_summary（ggplot2）调整误差棒宽度

你遇到的问题是因为geom="pointrange"不支持width参数——这个参数是专门给带横向帽的误差棒（geom="errorbar"）设计的，用来控制帽的宽度。要实现带可调节宽度帽的误差棒，需要分开绘制均值点和误差棒：

# 将dose转换为因子变量
ToothGrowth$dose <- as.factor(ToothGrowth$dose)

# 绘制带可控宽度误差棒的散点图
ggplot(data = ToothGrowth, aes(x = dose, y = len, color = dose)) +
  geom_jitter(position = position_jitter(0.2), size = 2, alpha = 0.3) +
  # 绘制均值点
  stat_summary(fun = mean, geom = "point", size = 3) +
  # 绘制带帽误差棒，通过width参数控制帽的宽度
  stat_summary(fun.data = mean_se, geom = "errorbar", width = 0.2, size = 1.2)

如果你坚持使用pointrange（它只有竖线没有横向帽），只能通过size参数调整竖线的粗细，无法设置横向宽度。

内容的提问来源于stack exchange，提问作者goshawk