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

Question

我正在尝试选择其中至少有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,8）。

有什么建议吗？感谢

Answer 1

尝试

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

或者

 library(reshape2)
 df1[!!rowSums(table(melt(as.matrix(df1))[-2])>=4),]