R - Подсчет повторяющихся значений для каждой строки - PullRequest
Новая
       17

R - Подсчет повторяющихся значений для каждой строки

0 голосов
/ 26 июня 2018

Я работаю над фреймом данных, который требует расчета Каппы Флейса для межрайонных соглашений.Для этого я использую пакет «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

Большое спасибо.

1 Ответ

0 голосов
/ 26 июня 2018

Альтернативное решение, если ваши данные находятся во фрейме данных, называемом 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
...