为何使用mutate_if将离群值替换为NA的代码未达预期

• 测试数据构造存在语法错误：定义Tsoil_13字段时，c()函数缺少闭合的右括号，导致整个数据框无法正常生成，后续代码运行直接报错，无法完成计算。
• 替换逻辑与实际需求不匹配，即使修正语法错误也达不到替换效果：
  1. 你的核心目标是精准替换固定取值为-888.88的异常值，但原代码是通过箱线图的统计离群值规则做匹配，属于动态计算的判定逻辑，和固定值替换的需求没有直接关联。
  2. 你的测试数据每列仅3个样本，R内置的boxplot.stats对该数据的计算结果显示离群值集合为空：比如Tsoil_13列的三个值c(5.45,5.47,-888.88)，因为样本量太小，分位数计算时会把-888.88纳入“正常取值范围”，根本不会被标记为离群点，原代码的替换判断永远触发不了，自然看不到任何替换效果。

# 加载依赖包
library(dplyr)

# 修正语法错误后可正常运行的数据框定义
df <- structure(
  list(
    Tsoil_11 = c(5.25, 5.27, 5.25), 
    Tsoil_12 = c(5.53, 5.55, 5.55), 
    Tsoil_13 = c(5.45, 5.47, -888.88), 
    Tsoil_14 = c(5.36, 5.34, -888.88), 
    Tsoil_21 = c(5.7, 5.72, 5.7), 
    Tsoil_22 = c(5.83, 5.81, -888.88)
  ), 
  row.names = c(NA, 3L), 
  class = "data.frame"
)

# 精准匹配固定值-888.88，批量替换所有数值列中的对应异常值为NA
df_clean <- df %>% 
  mutate(across(
    .cols = where(is.numeric),
    .fns = ~replace(.x, .x == -888.88, NA)
  ))

注意：如果后续需要在固定值替换的基础上，同时叠加箱线图识别的统计离群值替换，可以将判断条件调整为 .x == -888.88 | .x %in% boxplot.stats(.x)$out，但样本量过小的场景下不建议依赖箱线图规则判定离群值，避免误判。

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