R语言如何将数据框指定列中小于等于截断值的数值替换为NA

首先给出示例数据构造代码，方便复现测试：

# 构造示例数据框
df <- data.frame(
  Samples = c("ABC", "EFG", "HIJ"),
  cor1 = c(-1, -0.2, -0.3),
  pval1 = c(-1, -0.3, -0.1),
  cor2 = c(-0.05, 0.2, 0.8),
  pval2 = c(1.2, 0.1, 0.9)
)

实现方案 #

两种常用实现方式，均不会删除原有行，仅修改指定列符合条件的数值：

方法1：基础R实现（无额外依赖，大数据集效率高） #

直接通过向量化操作完成替换，无需加载第三方包：

# 1. 定义需要修改的目标列
target_cols <- c("pval1", "pval2")
# 2. 自定义截断值，可根据实际需求调整
cutoff <- 0.2
# 3. 仅将指定列中<=截断值的数值替换为NA
df[target_cols][df[target_cols] <= cutoff] <- NA

方法2：dplyr实现（适配tidyverse生态，代码可读性高） #

适合习惯tidyverse语法的用户，还支持批量匹配列名，无需手动枚举所有目标列：

library(dplyr)

cutoff <- 0.2
# 手动指定列名实现替换
df <- df %>%
  mutate(across(c(pval1, pval2), ~ifelse(.x <= cutoff, NA, .x)))

# 可选：批量匹配所有pval开头的列做替换，适合列数极多的场景
# df <- df %>%
#   mutate(across(starts_with("pval"), ~ifelse(.x <= cutoff, NA, .x)))

两种方案均保留所有原有行和非目标列的全部数据，仅修改目标列中小于等于截断值的数值为NA，完全符合需求。

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