只保留符合条件的列

我有一个大数据框,它的值是 TRUE , FALSE 或 NA .我只想保留至少包含一个 符合事实的 价值你如何做到这一点?

下面是一个简单的例子:

df <- data.frame(
   c1 = c(FALSE,FALSE,FALSE,FALSE),
   c2 = c(FALSE,TRUE,FALSE,NA),
   c3 = c(FALSE,NA,TRUE,NA),
   c4 = c(FALSE,FALSE,NA,NA)
 )
> df
     c1    c2    c3    c4
1 FALSE FALSE FALSE FALSE
2 FALSE  TRUE    NA FALSE
3 FALSE FALSE  TRUE    NA
4 FALSE    NA    NA    NA

我想删除列 c1 和 c4 ,只保留 c2 和 c3 .我知道 符合事实的 值存在于我原来较大的数据框中(使用 table(df==TRUE) ),但我不知道使用哪个函数来标识它们的列。