如何在R数据框中将两列均为NA的行替换为0

首先，咱们先把示例数据框构建出来，方便复现你的场景：

# 创建目标示例数据框
df <- data.frame(
  "Col 1" = c(1, 3, NA, 3, NA, NA),
  "Col 2" = c(1, 2, NA, NA, 3, NA)
)

核心需求是仅当两列同时为NA时，将该行的两个值都替换为0，单NA的行保持不变。下面提供两种实用方法，你可以根据习惯选择：

方法一：用dplyr包（代码更直观，推荐） #

如果已经安装了dplyr，可以通过mutate+if_all组合快速实现：

library(dplyr)

df_processed <- df %>%
  mutate(across(c(`Col 1`, `Col 2`), 
                ~ifelse(if_all(c(`Col 1`, `Col 2`), is.na), 0, .x)))

简单解释下逻辑：

• across(c(Col 1, Col 2))：指定要操作的两列
• if_all(c(Col 1, Col 2), is.na)：判断当前行的这两列是否全为NA
• 满足条件就替换为0，否则保留原始值（.x代表当前列的原始数据）

方法二：基础R实现（无需额外加载包） #

如果不想用第三方包，用基础R的索引筛选也能搞定：

# 筛选出两列都为NA的行索引
na_double_rows <- which(is.na(df$`Col 1`) & is.na(df$`Col 2`))

# 对这些行的两列赋值为0
df_processed <- df
df_processed[na_double_rows, ] <- 0

这个逻辑非常直接：先定位双NA行的位置，再批量替换值。

最终结果验证 #

运行任意一种方法后，输出df_processed就能得到你想要的结果：

Col 1 Col 2
1     1     1
2     3     2
3     0     0
4     3    NA
5    NA     3
6     0     0

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