R中矩阵的每一行中唯一值的数量

Question

我有这个玩具矩阵：

m
     [,1] [,2] [,3] [,4] [,5] [,6] [,7]
[1,]    1    3    1    6    8    8    8
[2,]    2    2    5    7    9    7    4
[3,]    1    2    3    4    5    6    7
[4,]    1    2    3    4    5    6    7
[5,]    1    2    3    4    5    6    7

我只想保留具有4唯一元素的行。

我最初的策略是使用...

apply(m, 1, function(x) unique(x))
[[1]]
[1] 1 3 6 8

[[2]]
[1] 2 5 7 9 4

[[3]]
[1] 1 2 3 4 5 6 7

[[4]]
[1] 1 2 3 4 5 6 7

[[5]]
[1] 1 2 3 4 5 6 7

...这将告知R每行中的唯一元素。

然后它就像m[length(apply(m, 1, function(x) unique(x)))==4, ] 。

但是，并不是那么容易... apply()的输出，至少在这种情况下，是一个列表，因此，我不能使用此技巧。

你能帮我吗？