如何在R长数据框中为每个参与者添加唯一汇总计数（其余填NA）

错误原因分析 #

你遇到的报错核心是赋值数据与原数据行数不匹配：

• 第一个方法中，group_by() %>% filter() %>% count() 会生成仅包含每个参与者一行的汇总表（142行），但原数据有66619行，直接赋值给dfl$Hits时，R无法将短向量匹配到长数据列中。
• 第二个方法存在两个问题：统计逻辑错误（sum(!is.na(SpaceREsponseType == "Hit")) 是判断等式结果是否非NA，而非统计Hit数量），且最终将整个数据框赋值给dfl$Hits，结构不匹配。

正确解决方案 #

方法一：分组后直接赋值（推荐） #

使用dplyr分组后，先计算每组的Hit总数，再仅在每组第一行保留数值，其余行设为NA：

library(dplyr)

dfl <- dfl %>%
  group_by(participant) %>%
  # 仅每组第一行赋值Hit计数，其余为NA
  mutate(Hits = ifelse(row_number() == 1, sum(SpaceREsponseType == "Hit", na.rm = TRUE), NA)) %>%
  ungroup()

方法二：先汇总再连接 #

先生成参与者的Hit计数表，再左连接到原数据，最后处理NA：

library(dplyr)

# 生成每个参与者的Hit计数汇总表
hit_summary <- dfl %>%
  group_by(participant) %>%
  summarise(Hits = sum(SpaceREsponseType == "Hit", na.rm = TRUE)) %>%
  ungroup()

# 连接到原数据，并仅保留每组第一行的计数
dfl <- dfl %>%
  left_join(hit_summary, by = "participant") %>%
  group_by(participant) %>%
  mutate(Hits = ifelse(row_number() == 1, Hits, NA)) %>%
  ungroup()

关键说明 #

• sum(SpaceREsponseType == "Hit", na.rm = TRUE)：正确统计每组中SpaceREsponseType为"Hit"的数量，na.rm=TRUE避免NA值干扰统计。
• row_number() == 1：指定仅在每组的第一行保留计数，其余行填充NA，完全符合你“每个参与者仅对应一个计数值”的要求。

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