R语言按分组将test行的type值赋值给组内所有行的实现方法

分组后直接匹配组内value为test对应的type值，填充到全组即可，代码如下：

library(dplyr)
df <- df %>%
  # 按指定字段分组
  group_by(participant, group) %>%
  # 提取组内value为test的type值，[1]适配单组有多个test的场景，默认取第一个匹配值
  mutate(test_type = type[value == "test"][1]) %>%
  ungroup()

用分组统计函数ave即可实现相同逻辑：

df$test_type <- with(df, ave(seq(nrow(df)), participant, group, FUN = function(idx) {
  type[idx[value[idx] == "test"]][1]
}))

library(data.table)
# 转换为data.table格式
setDT(df)
# 分组赋值
df[, test_type := type[value == "test"][1], by = .(participant, group)]

以上三种方法均可以输出你给出的预期结果，如果你对应的业务场景中存在单组有多个value = "test"的记录，调整代码中的[1]为对应的取值逻辑（如取最后一个、取最大值等）即可适配。

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