如何在R中保留NA值并删除含x/y负值的数据行？

原始数据集 #

先构建示例数据：

database <- data.frame(
  ID = 1:6,
  x = c(23, 2, -2, NA, NA, NA),
  y = c(-3, 51, 45, 2, -2, NA)
)

错误原因分析 #

你之前的代码存在三个关键问题：

1. 使用了标量逻辑运算符&&/||：这两个运算符仅比较向量的第一个元素，无法对数据框的每行做逐元素判断，应改用逐元素运算符&/|。
2. 错误判断NA：database$x != "NA"是把NA当成字符串处理，实际NA是R的特殊缺失值，必须用is.na()函数判断。
3. 数据框索引遗漏逗号：database[!(...)]会将数据框转为向量，正确的行索引格式应为database[行条件, ]（逗号用于保留所有列）。

可行解决方法 #

方法1：基础R原生代码 #

核心逻辑是保留x为NA或非负且y为NA或非负的行：

filtered_db <- database[(is.na(database$x) | database$x >= 0) & (is.na(database$y) | database$y >= 0), ]

方法2：dplyr包（更直观） #

如果习惯tidyverse风格，可使用dplyr的filter()函数：

# 首次使用需先安装dplyr
# install.packages("dplyr")
library(dplyr)

filtered_db <- database %>%
  filter((is.na(x) | x >= 0) & (is.na(y) | y >= 0))

验证结果 #

运行后得到的结果与预期一致：

ID  x  y
2  2  2 51
4  4 NA  2
6  6 NA NA

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