如何用R语言dplyr按条件求均值并追加到数据框末尾

你当前的代码没法实现需求，问题出在：group_by(Condition)后直接用bind_rows(mutate(...))的逻辑不对，mutate是给现有行添加列，不是生成包含平均值的新行。下面是修正后的实现方案：

分步实现 #

1. 先处理原始数据，筛选出需要的Condition类别并保留指定列
2. 单独计算Condition为"Media"的OD600平均值
3. 构造一个和原数据列名一致的新行，填充平均值相关信息
4. 将新行追加到处理后的原数据底部

修正代码 #

# 第一步：筛选并保留需要的数据
processed_data <- timepoints_0.2 %>%
  select(Well, Condition, OD600) %>%
  filter(Condition %in% c("Media", "B28B", "K824", "SBP2@2", "ANB28", "alpha_mix", "beta_mix", "gamma_mix", "3_Phage_Cocktail"))

# 第二步：计算Media组的OD600平均值（处理缺失值）
media_avg_value <- processed_data %>%
  filter(Condition == "Media") %>%
  summarise(avg = mean(OD600, na.rm = TRUE)) %>%
  pull(avg)

# 第三步：构造要追加的平均值行（列名必须和原数据一致）
average_row <- tibble(
  Well = "Media_Avg",  # 可以自定义标识，也可以填NA
  Condition = "Media_Average",
  OD600 = media_avg_value
)

# 第四步：合并数据
MOI0.2_72hr <- bind_rows(processed_data, average_row)

关键说明 #

• 用summarise计算平均值，配合pull直接提取数值，避免生成多余的中间列
• 构造新行时，列名必须和原数据完全匹配，否则bind_rows会自动补NA或报错
• 添加na.rm = TRUE是为了规避数据中可能存在的缺失值，保证平均值计算有效

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