满足数据文件中的每个逻辑条件

Question

我有一个有6,000枚的data.frame

SubjectID  : int   1,2,3,4...
Arthritis  : logi  FALSE FALSE TRUE FALSE FALSE
Stroke     : logi  TRUE FALSE FALSE FALSE FALSE
Diabetes   : logi  TRUE FALSE FALSE FALSE FALSE
Cancer     : logi  FALSE FALSE FALSE FALSE TRUE

我试图找出每一种疾病都没有的地方。我可以用它来治疗一种疾病：

subset(RHV.FINAL, Arthritis=="FALSE")

我已经尝试过所有的疾病，但这是很麻烦的：

subset(RHV.FINAL, Arthritis=="FALSE" & Stroke=="FALSE" & Diabetes=="FALSE" & Cancer=="FALSE")

有没有更有说服力的解决办法？

Answer 1

你能不使用rowSums吗？很难用str来分辨你的数据，因为你已经发布了它。在R会话中重新创建一个小示例是很好的(dput)。

df [rowSums( df ) == 0 , ]

例如..。

set.seed(123)
df <- data.frame( id = 1:5,
            A = sample( c(T,F) , 5 , repl = T ),
            B = sample( c(T,F) , 5 , repl = T ),
            C = sample( c(T,F) , 5 , repl = T ))

  id     A     B     C
1  1  TRUE  TRUE FALSE
2  2 FALSE FALSE  TRUE
3  3  TRUE FALSE FALSE
4  4 FALSE FALSE FALSE
5  5 FALSE  TRUE  TRUE


# df[,-1] to exclude id variable in first column (thanks @DidzisElferts)
df[ rowSums(df[,-1]) == 0 , ] 
  id     A     B     C
4  4 FALSE FALSE FALSE