R中for循环输出大量重复行 如何汇总相关结果构建数据框

• 结果重复打印上千行的核心错误在打印语句的ID取值逻辑：colnames(adult_pref_1)[adult_pref_1$subject]调用了全数据集的subject列，每轮循环会生成和数据集总行数等长的输出向量，导致单被试结果重复输出。
• 原代码仅做即时打印，没有预设结果存储结构，无法直接汇总为标准data.frame。
• 额外逻辑错误：colnames(adult_pref_1)是提取数据集列名，和你要输出的被试ID完全无关，属于写错的取值逻辑。

方案1：修正原生for循环，直接生成目标data.frame #

提前初始化空结果表，循环中逐行追加被试结果，全程无冗余打印，运行完直接得到122行的标准结果表：

# 初始化空结果表
cor_result <- data.frame(
  subject = character(),
  cor_estimate = numeric(),
  p_value = numeric(),
  stringsAsFactors = FALSE
)

# 逐被试计算相关
for (i in unique(adult_pref_1$subject)){
  # 提取当前被试的子集数据
  current_sub <- adult_pref_1[adult_pref_1$subject == i, ]
  cor_res <- cor.test(current_sub$own_pref, current_sub$profile_rating_new)
  # 结果追加到表中
  cor_result <- rbind(
    cor_result,
    data.frame(
      subject = i,
      cor_estimate = as.numeric(cor_res$estimate),
      p_value = cor_res$p.value,
      stringsAsFactors = FALSE
    )
  )
}

运行结束后直接调用cor_result即可查看所有被试的结果，共122行，列分别为被试ID、相关系数估计值、p值。

方案2：分组计算写法（代码更简洁，无需手动管理循环） #

如果已安装dplyr包，可以用分组统计的写法，代码更短、出错概率更低：

library(dplyr)

cor_result <- adult_pref_1 %>%
  group_by(subject) %>%
  summarise(
    cor_estimate = cor.test(own_pref, profile_rating_new)$estimate,
    p_value = cor.test(own_pref, profile_rating_new)$p.value,
    .groups = "drop"
  )

输出结果和方案1完全一致。

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