嵌套循环中用mutate创建评分校验变量出错，寻求修正方案

问题背景 #

现有数据集包含唯一标识的Participant_ID，每个参与者由两位不同的Rater_ID对多个Q类变量（如Q1、Q2、Q3）评分。需求是批量生成新变量，标记两位评分员的评分差值是否超过1分。

示例数据集代码 #

library(tidyverse)

Participant_ID <- rep(1:3,2)
Rater_ID <- c(rep("A",3),rep("B",3))
Q1 <- c(5, 2, 1,3, 3, 4)
Q2 <- c(4, 2, 2,3, 5, 2)
Q3 <- c(4, 3, 3,3, 4, 5)

df <- tibble(Participant_ID, Rater_ID, Q1, Q2, Q3)

单变量手动实现（正确示例） #

逐一定义变量可实现需求，代码如下：

df <- df %>% group_by(Participant_ID) %>%   
  mutate(Check_Q1= ifelse((abs(Q1[1]-Q1[2]) > 1), 1, 0),          
         Check_Q2= ifelse((abs(Q2[1]-Q2[2]) > 1), 1, 0),          
         Check_Q3= ifelse((abs(Q3[1]-Q3[2]) > 1), 1, 0)) %>% ungroup()

预期结果：参与者1的Check_Q1为1，参与者2的Check_Q2为1，参与者3的Check_Q1和Check_Q3为1。

批量实现的错误代码 #

当Q类变量数量较多且动态变化时，尝试嵌套循环批量生成变量，但结果错误（所有Check变量在参与者3处均为1）：

number_of_questions <- 3
questions <- grep("Q", names(df), value=TRUE)

df <-  df %>% group_by(Participant_ID)

for(q in questions){
  for(x in 1:number_of_questions){

      check_varname <- paste0("Check_Q",x)
      
      df <- df %>% 
        mutate(!!check_varname := ifelse((abs(get(q)[1]-get(q)[2]) > 1), 1, 0))   
  }}

df <-  df %>% ungroup()

错误原因 #

1. 嵌套循环逻辑错误：外层循环遍历每个Q变量，内层循环又遍历1到number_of_questions生成Check变量，导致每个Check_Qx被重复赋值。最后一次循环处理的是Q3，所有Check_Q1、Check_Q2、Check_Q3都被覆盖为Q3的差值判断结果，这就是参与者3所有Check变量为1的原因。
2. 索引依赖的重复赋值：虽然分组后每个组仅2行，索引1和2对应两位评分员，但嵌套循环的重复赋值完全破坏了Q变量与Check变量的对应关系。

修正方案 #

方案1：简化单层循环 #

直接遍历每个Q变量，提取变量编号生成对应Check变量，避免重复赋值：

number_of_questions <- 3
questions <- grep("Q", names(df), value=TRUE)

df <- df %>% 
  group_by(Participant_ID) %>% 
  mutate(
    # 遍历每个Q变量，生成对应的Check变量
    !!!map(questions, function(q) {
      q_num <- str_extract(q, "\\d+")
      check_var <- paste0("Check_Q", q_num)
      val <- ifelse(abs(get(q)[1] - get(q)[2]) > 1, 1, 0)
      tibble(!!check_var := val)
    }) %>% bind_cols()
  ) %>% 
  ungroup()

方案2：使用across批量处理（推荐的tidyverse风格） #

利用dplyr::across批量处理所有Q类变量，无需循环，代码更简洁易维护：

df <- df %>% 
  group_by(Participant_ID) %>% 
  mutate(
    across(starts_with("Q"), 
           ~ifelse(abs(first(.) - last(.)) > 1, 1, 0),
           .names = "Check_{.col}")
  ) %>% 
  ungroup()

• starts_with("Q")匹配所有以Q开头的变量；
• first(.) - last(.)获取每组内两位评分员的分数差值（每组仅2行）；
• .names = "Check_{.col}"自动生成Check_Qx格式的新变量名。

验证结果 #

运行修正后的代码，结果与手动实现的预期一致：

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