如何在ggplot2条形图中添加沿误差棒分布的重复样本散点

你当前的代码基于分组汇总后的统计结果表（包含分组均值readout、标准差sd）绘制带误差棒的柱状图，要叠加每组6个重复样本的散点，按以下方法调整即可：

• 首先准备原始重复数据：整理一份长格式原始数据表，每一行对应1个独立重复样本，至少包含2列：Condition（分组名，和汇总表的分组命名完全一致）、readout（单个样本的实际吸光度检测值，不要用汇总均值）。
• 散点层优先推荐用ggbeeswarm包提供的蜂群散点几何对象，散点会自动沿分组x轴位置做规整的横向排布，不会重叠，刚好竖直对齐误差棒，比随机抖动的散点更美观整齐。
• 如果不想安装额外拓展包，也可以用ggplot2自带的geom_jitter做小幅随机横向抖动，控制抖动范围不超出柱子宽度即可。

完整修改代码 #

方案1：蜂群散点（推荐，排布更规整） #

先安装加载所需包，再叠加散点层即可：

# 加载包，没装的先运行install.packages(c("ggplot2","ggbeeswarm"))安装
library(ggplot2)
library(ggbeeswarm)

ggplot(df3, aes(x=Condition, y=readout, fill= Condition, width= 0.8))+
  geom_bar(stat="identity", position=position_dodge())+
  # 叠加原始重复散点，将data参数替换为你自己的原始重复数据表名
  geom_beeswarm(
    data = 替换为你的单样本水平原始数据表名,
    aes(x = Condition, y = readout),
    size = 2, # 调整散点大小
    color = "black", # 设置散点颜色
    cex = 0.3 # 控制散点横向排布宽度，数值越小散点越靠近误差棒中线
  ) +
  geom_errorbar(aes(ymin=readout-sd, ymax=readout+sd), width=.2, position=position_dodge(.9))+
  theme_classic()+
  theme(legend.position="none")+
  scale_fill_grey()+
  labs(x=" ", y="Absorbance, arbitrary units")+
  scale_y_continuous(limit = c(0,0.45))

方案2：基础抖动散点（无需安装额外包） #

如果不想装拓展包，把上面代码里的geom_beeswarm层替换为以下geom_jitter层即可：

geom_jitter(
  data = 替换为你的单样本水平原始数据表名,
  aes(x = Condition, y = readout),
  size = 2,
  color = "black",
  width = 0.2 # 控制横向抖动范围，0.2的宽度不会超出0.8宽度的柱子边界
)

注意事项 #

• 不要直接用汇总表df3绘制散点：df3中每个分组仅存1行均值、标准差的汇总结果，无法生成6个重复散点，必须传入单样本水平的原始长表作为散点层的数据源。
• 一定要确保原始重复数据的分组因子水平顺序和汇总表df3的Condition水平顺序完全一致，否则散点会和对应分组的柱子错位。
• 如果散点被柱子或者误差棒挡住，可以调整几何层的绘制顺序：把散点层放在geom_bar之后、geom_errorbar之前，也可以给散点加0.5pt的白色描边提升辨识度。
• 如果需要散点颜色和柱子填充色对应，可以在散点的aes()里加color = Condition，再搭配scale_color_grey()统一灰色系配色即可。

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