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

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

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_);
} ))