我有一个数据框,我想计算每一行中所有列具有相同值的行数。
例如,我有以下数据:
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,因为第二行和第三行分别只有一个唯一值,分别只有
1
和2
。提前致谢。
最佳答案
它使用apply()
来计算每一行中不同元素的数量,应该可以解决这个问题:
sum(apply(cmp, 1, function(x) length(unique(x))==1))
## [1] 2