如何高效存储聚合函数输出至新DataFrame并调整数据格式？

1. 用管道优化聚合与重命名 #

使用dplyr的管道操作可以让代码逻辑更连贯，同时精准完成准确率计算、聚合和重命名：

library(dplyr)

set.seed(101)
# 修正原始代码中样本量不一致的问题（RT为30行，其他列同步设为30行）
df <- data.frame(
  RT = rnorm(30, 100, 20), 
  Condition = sample(c("Green","Red","Blue"), 30, replace = TRUE),
  Image = sample(c("Cow", "Horse", "Giraffe"), 30, replace = TRUE),
  Response = sample(c("Cow", "Horse", "Giraffe"), 30, replace = TRUE)
)

# 管道版流程：计算准确率→按Condition聚合→重命名分组
con_avg_accuracy <- df %>%
  mutate(Accuracy = ifelse(Image == Response, 1, 0)) %>%
  group_by(Condition) %>%
  summarise(Accuracy = mean(Accuracy), .groups = "drop") %>%
  mutate(Condition = case_match(
    Condition,
    "Green" ~ "acc_g",
    "Red" ~ "acc_m",
    "Blue" ~ "acc_n"
  ))

这里用case_match精准匹配原分组名和新名称，避免手动赋值可能出现的顺序错乱问题。

2. 转换为宽格式（新名称作为列） #

如果需要将重命名后的Condition作为列名、准确率作为行值，搭配tidyr的pivot_wider即可实现：

library(tidyr)

wide_acc <- con_avg_accuracy %>%
  pivot_wider(names_from = Condition, values_from = Accuracy)

最终wide_acc会生成一行数据，列名为acc_g、acc_m、acc_n，对应各条件的平均准确率。

3. 一步到位：从原始数据到宽格式 #

可以将所有步骤整合到一个管道中，无需额外中间变量：

library(dplyr)
library(tidyr)

set.seed(101)
wide_acc <- data.frame(
  RT = rnorm(30, 100, 20), 
  Condition = sample(c("Green","Red","Blue"), 30, replace = TRUE),
  Image = sample(c("Cow", "Horse", "Giraffe"), 30, replace = TRUE),
  Response = sample(c("Cow", "Horse", "Giraffe"), 30, replace = TRUE)
) %>%
  mutate(Accuracy = ifelse(Image == Response, 1, 0)) %>%
  group_by(Condition) %>%
  summarise(Accuracy = mean(Accuracy), .groups = "drop") %>%
  mutate(Condition = case_match(
    Condition,
    "Green" ~ "acc_g",
    "Red" ~ "acc_m",
    "Blue" ~ "acc_n"
  )) %>%
  pivot_wider(names_from = Condition, values_from = Accuracy)

关键说明 #

• 修复了原始代码中sample参数size不一致的bug（原代码RT为30行，其他列仅10行，会导致数据框创建失败）
• 管道操作让代码逻辑线性化，可读性和可维护性更强
• case_match确保分组名映射的准确性，避免聚合结果顺序变化导致的错误

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