如何用dplyr/subset正确删除双条件行并保留其余数据

你的核心需求是仅删除ireg等于13且tpens大于2000的行，其余所有行（包括ireg不等于13的所有行，以及ireg等于13但tpens≤2000的行）都保留。以下是正确实现方式：

基础R实现 #

方法1：使用subset函数 #

可以直接写保留行的条件，或者对要删除的条件取反：

# 写法1：明确保留的条件
new <- subset(data, ireg != 13 | (ireg == 13 & tpens <= 2000))

# 写法2：对要删除的条件取反（更直观）
new <- subset(data, !(ireg == 13 & tpens > 2000))

方法2：使用方括号索引 #

逻辑和subset一致，注意正确引用数据列：

# 写法1：明确保留的条件
new <- data[data$ireg != 13 | (data$ireg == 13 & data$tpens <= 2000), ]

# 写法2：对要删除的条件取反
new <- data[!(data$ireg == 13 & data$tpens > 2000), ]

dplyr包实现 #

用filter函数同样可以用两种逻辑写法：

library(dplyr)

# 写法1：明确保留的条件
new <- data %>% 
  filter(ireg != 13 | (ireg == 13 & tpens <= 2000))

# 写法2：对要删除的条件取反
new <- data %>% 
  filter(!(ireg == 13 & tpens > 2000))

你之前的错误在于：

• 第一种写法只保留了ireg=13且tpens≤2000的行，漏掉了所有ireg≠13的数据；
• 第二种写法错误地对ireg=13且tpens≤2000取反，这会删除掉本应保留的行，逻辑完全相反。

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