如何识别R中所有列具有相同值的行号？

Question

对于以下数据

> data
   x1 x2 x3
1   1  0  0
2   0  1  0
3   0  0  1
4   1  0  1
5   1  0  0
6   0  1  1
7   1  0  0
8   0  1  0
9   1  1  1
10  1  0  0

如何识别所有列中具有相同值的行。对于data，行号4 ，并6没有列相同的值1 & 3，并2 & 3分别和行号9对所有列相同的值。如何在R中标识这些行号。不胜感激。

Answer 1

另一种选择是检查每行的方差。方差为0的行的所有值都相同

data[apply(data, 1, var) == 0, ]
#  x1 x2 x3
#9  1  1  1