如何简化带条件的多前缀后缀变量组合的dplyr mutate代码？

可以利用dplyr的across()结合字符串操作，精准匹配对应后缀的列，同时用if_else()限定仅在cond == 1的行执行计算，简化重复代码：

ResultsTable <- ResultsTable %>%
  mutate(across(starts_with("V_"), 
                ~ if_else(cond == 1, 
                          as.integer(.x + get(str_replace(cur_column(), "V_", "h2_"))),
                          .x)
                )
         )

关键逻辑说明 #

• starts_with("V_")：自动匹配所有以V_开头的列（也就是你的V_a到V_f）；
• cur_column()：获取当前正在处理的列名，比如处理V_a时拿到字符串"V_a"；
• str_replace(..., "V_", "h2_")：把列名里的前缀替换成h2_，得到对应的h2_a；
• get()：根据字符串形式的列名，提取对应列的数值；
• if_else(cond == 1, ..., .x)：只有当cond等于1时才执行相加转整数的操作，其他行直接保留原数值，确保所有行都被保留。

更精准的写法（避免误匹配） #

如果你的数据里还有其他以V_开头的列，可以先明确指定要处理的列后缀，避免误操作：

# 先定义要处理的后缀列表
target_suffixes <- c("a", "b", "c", "d", "e", "f")
v_cols <- paste0("V_", target_suffixes)
h2_cols <- paste0("h2_", target_suffixes)

ResultsTable <- ResultsTable %>%
  mutate(across(all_of(v_cols), 
                ~ if_else(cond == 1, 
                          as.integer(.x + get(h2_cols[match(cur_column(), v_cols)])),
                          .x)
                )
         )

这种方式先锁定要处理的列集合，完全避免误匹配其他无关列，适合列名复杂的场景。

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