如何在R中依据rec_status列规则过滤vouchers数据框的issue_slip列？

你需要保留issue_slip分组中rec_status不全为1的所有行，也就是只要分组里存在至少一个0，就保留该组的全部行。以下是两种直接实现的方法：

方法1：使用dplyr包（推荐） #

通过分组后判断组内是否存在0来筛选：

library(dplyr)

vouchers_filtered <- vouchers %>%
  group_by(issue_slip) %>%
  filter(any(rec_status == 0)) %>%
  ungroup()

逻辑说明：any(rec_status == 0)会检查当前issue_slip分组里是否有0值，只要存在就保留整个分组的所有行，自动排除掉全为1的分组。

方法2：使用Base R（无需额外包） #

利用ave函数生成分组标记后筛选：

# 为每个分组生成是否保留的标记
keep_flag <- ave(vouchers$rec_status, vouchers$issue_slip, FUN = function(x) any(x == 0))

# 筛选保留标记为TRUE的行
vouchers_filtered <- vouchers[keep_flag == TRUE, ]

逻辑说明：ave按issue_slip分组，对每个组的rec_status执行判断，返回与原数据等长的标记向量，最后用该向量过滤行。

验证示例 #

假设你的测试数据如下：

vouchers <- data.frame(
  issue_slip = c("IS/001", "IS/001", "IS/001", "IS/002", "IS/002", "IS/002", "IS/003", "IS/003"),
  rec_status = c(0, 1, 1, 0, 0, 1, 1, 1)
)

处理后IS/003（全为1）会被完全移除，IS/001和IS/002的所有行都会保留。

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