计算所有列具有相同值的行数

Question

我有一个数据帧,我想计算每行内所有列具有相同值的行数.

例如,我有这些数据:

cmp <- read.table(text = "
A B C D
1 1 1 0
1 1 1 1
2 2 2 2
3 3 3 0", header = TRUE)

这里,计数是2,因为第二行和第三行每个只有一个唯一值,分别只有1s和2s.

提前致谢.

Answer 1

这apply()用于计算每行中不同元素的数量,应该可以解决这个问题:

sum(apply(cmp, 1, function(x) length(unique(x))==1))
## [1] 2