R-选择至少有X列与条件匹配的行

我试图选择至少有4列具有相同值的行。到目前为止，我已经尝试了apply函数，我可以得到任何行或每行匹配的行

team.composition[apply(team.composition, 1, function(X) any(as.numeric(X) == 1)),]

这是我桌子的一个例子

member.1 member.2 member.3 member.4 member.5
   1         3        8       5        3
   2         3        2       2        2
   7         4        8       8        3
   1         8        8       8        8

我想返回第二行（2,3,2,2,2）和第四行（1,8,8,8）

有什么建议吗？谢谢

试试看

df1[apply(df1, 1,function(x) any(table(x)>=4)),]

或

---

那是什么东西？@SabDeM它只是从

行和的二进制输出创建逻辑向量。它可以写成
df1[rowSums（表（melt（as.matrix（df1））[-2]）>=4）！=0，]
 library(reshape2)
 df1[!!rowSums(table(melt(as.matrix(df1))[-2])>=4),]