r - R - 计算每行的重复值

Question

我正在研究一个数据框，该数据框需要计算 Fleiss 的 Kappa 以实现评估者间协议。我为此使用了“irr”包。

除此之外，对于每个观察，我需要计算有多少评分者是一致的。

我的数据如下所示：

  a b c
1 1 1 1
2 1 2 2
3 2 3 2
4 3 3 1
5 4 2 1

我期待这样的事情，其中​​ count 代表达成一致的评估者人数

  a b c count
1 1 1 1 3 
2 1 2 2 2
3 2 3 2 2
4 3 3 1 2
5 4 2 1 0

非常感谢。

Answer 1

如果您的数据位于名为的数据框中，则替代解决方案abc：

as.numeric(apply(abc,1,function(x) { 
    ux<-unique(x); 
    tab <- tabulate(match(x, ux)); 
    mode <- ux[tab == max(tab)];
    ifelse(length(mode)==1,length(which(x==mode)),NA_character_);
} ))

当你运行它给出：

[1]  3  2  2  2 NA