根据 R 中跨列出现的 2 次或更多次筛选行

Question

我正在尝试过滤掉仅在单个列中出现的行，并仅显示出现在多个列中的行。

一个示例数据库：

在这种情况下，我希望我的过滤器只返回行2和行3。我一直在尝试使用dplyr和过滤器功能；虽然我还没有找到一种方法来捕捉所有7列。我无法使用< code>rowSums(),因为在这种情况下，实际值并不重要，重要的是另一列旁边的频率。

到目前为止，当专门比较两列的值时，我只准确地捕捉到了我正在寻找的输出

mydata.df %>%
  filter(col1>0 & col2>0)

尽管很容易理解为什么这种方法不可行，尤其是在7列中进行比较。我尝试了串接多个条件以在多个列之间进行比较，但没有成功。除了为每个列的组合单独编写一个过滤器之外，我确信我缺少了一个明显而简单的解决方案？

Answer 1

我们可以将过滤器与rowSums一起使用

library(dplyr)
mydata.df %>% 
   filter(rowSums(. > 0) >=2)
     col1 col2 col3 col4 col5 col6 col7
row2    6    0   42    0    0    0    0
row3    0    0    0    0    1    1    0

或者，如果我们正在检查的是列的成对组合

library(purrr)
mydata.df %>% 
    filter(combn(., 2, FUN = function(x) rowSums(x > 0) == 2, 
         simplify = FALSE) %>% 
      reduce(`|`))
     col1 col2 col3 col4 col5 col6 col7
row2    6    0   42    0    0    0    0
row3    0    0    0    0    1    1    0

mydata.df <- structure(list(col1 = c(1L, 6L, 0L, 0L), col2 = c(0L, 0L, 0L, 
0L), col3 = c(0L, 42L, 0L, 0L), col4 = c(0L, 0L, 0L, 0L), col5 = c(0L, 
0L, 1L, 0L), col6 = c(0L, 0L, 1L, 0L), col7 = c(0L, 0L, 0L, 87L
)), class = "data.frame", row.names = c("row1", "row2", "row3", 
"row4"))