r - 使用列的分类值删除R中的索引

Question

我做了一个简单的数据如下:

data<-data.frame(id=c(1,1,1,2,2,2,3,3,4,4),
                 a=c(0,0,1,0,0,0,1,1,1,1),
                 b=c(1,0,0,0,0,0,0,1,1,0))

id代表一个人的具体身份证号码。我现在想做的是删除整个id如果a等于1。麻生太郎，我想删除整个id如果b等于 1。在此示例中，所需的输出应如下所示:

data<-data.frame(id=c(2,2,2),
                 a=c(0,0,0),
                 b=c(0,0,0))

在我的实际数据中，有数百个id ，所以我想知道执行此操作的方法。

Answer 1

使用基础 R，

data[!(data$id %in% unique(data[(data$a == 1) |  (data$b == 1),"id"])),]

给予，

#       id a b
#     4  2 0 0
#     5  2 0 0
#     6  2 0 0