如何使用mutate_if在a>25条件下将b列对应值替换为NA

首先澄清mutate_if()的适用场景误区：
mutate_if()是dplyr的列作用域函数，它的第一筛选条件是针对整列属性的，用来筛选需要修改的列，而非筛选要修改的行，所以你描述的「仅修改b列、按a列的行条件赋值」需求，并不适合直接用mutate_if()实现，更简洁的标准写法是搭配if_else()的普通mutate()调用。

你的需求的标准实现代码 #

library(tidyverse)

# 示例数据
tbl <- tibble(a = c(10, 20, 30, 40, 10, 60),
              b = c(12, 23, 34, 45, 56, 67))

# 按条件修改b列
tbl <- tbl %>%
  mutate(b = if_else(a > 25, NA_real_, b))

运行后输出结果如下：

# A tibble: 6 × 2
      a     b
  <dbl> <dbl>
1    10    12
2    20    23
3    30    NA
4    40    NA
5    10    56
6    60    NA

mutate_if()的正确适用场景演示 #

如果你有多个列需要统一按a>25的条件替换为NA，这时候mutate_if()就能发挥列筛选的优势：

# 多列示例数据
tbl_multi <- tibble(a = c(10, 20, 30, 40, 10, 60),
                    b = c(12, 23, 34, 45, 56, 67),
                    c = c(2, 3, 4, 5, 6, 7),
                    d = c("文字1", "文字2", "文字3", "文字4", "文字5", "文字6"))

# 对所有数值型、且不是a列的字段，统一按a>25的条件替换为NA
tbl_multi_result <- tbl_multi %>%
  mutate_if(
    .predicate = ~ is.numeric(.) && cur_column() != "a", # 筛选要修改的列
    .funs = ~ if_else(a > 25, NA_real_, .) # 对选中列执行的赋值逻辑
  )

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