如何用ggplot2绘制自动计算均值的分组柱状图并支持数据复用

嗨，我来帮你搞定这个分组柱状图的需求！你现在的问题核心是数据格式的问题——你的数据是宽格式（Inner/Middle/Outer作为单独列），而ggplot2更擅长处理长格式数据，同时我们可以用stat_summary自动计算均值，完全不用手动汇总数据。下面是可复现的完整解决方案：

步骤1：准备环境与数据 #

首先加载tidyverse包（它包含了ggplot2和数据转换需要的tidyr工具），然后把你提供的数据片段转换成可复用的数据集：

# 加载必要的包
library(tidyverse)

# 构造你的示例数据集（可替换成你自己的真实数据）
Survival <- data.frame(
  Treatment = rep(c("RAD", "HUTS", "RGD"), each = 3),
  Inner = c(317, 323, 236, 1411, 1922, 1478, 1433, 1400, 1222),
  Middle = c(373, 217, 255, 1844, 1756, 1711, 1489, 1500, 1333),
  Outer = c(354, 174, 261, 1978, 1856, 1433, 1633, 1544, 1444)
)

步骤2：转换数据格式 #

把宽格式数据转成长格式，这样我们可以用Location作为统一的分组变量：

# 宽转长：将Inner/Middle/Outer列整合为Location和SurvivalRate两列
Survival_long <- Survival %>%
  pivot_longer(
    cols = Inner:Outer,  # 指定要转换的列范围
    names_to = "Location",  # 新的分组列名
    values_to = "SurvivalRate"  # 数值对应的列名
  )

步骤3：绘制分组均值柱状图 #

现在用stat_summary自动计算每个(Treatment, Location)组合的均值，同时实现分组并排的效果：

ggplot(Survival_long, aes(x = Treatment, y = SurvivalRate, fill = Location)) +
  stat_summary(fun = mean, geom = "bar", position = position_dodge(width = 0.9)) +
  # 添加均值标签（可选，让结果更直观）
  stat_summary(fun = mean, geom = "text", position = position_dodge(width = 0.9), 
               vjust = -0.5, size = 3.5) +
  # 美化图表
  labs(
    title = "不同药物处理组的细胞存活率均值",
    x = "药物处理组",
    y = "细胞存活率均值",
    fill = "解剖位置"
  ) +
  theme_minimal()

关键说明 #

• 无需手动计算均值：stat_summary(fun = mean)会自动帮你计算每个分组的均值，省去手动汇总的步骤。
• 代码可复用：如果换其他结构相似的数据集，只要修改pivot_longer里的cols参数（比如你的位置列名不同），或者调整aes里的变量名即可，完全适配同类型的宽格式数据。
• 分组并排效果：position_dodge(width = 0.9)确保同一Treatment下的不同Location柱子不会重叠，宽度可以根据需求调整。

这样你就能得到3个药物处理组，每组3个对应解剖位置的均值柱状条，完全符合你的需求！

内容的提问来源于stack exchange，提问作者Philippe D'Onofrio