Preciso calcular a MODA dos valores em linha em um data.frame. Como no R
não existe uma função já definida para MODA, usei uma função customizada:
moda = function(x) {
z = table(as.vector(x))
names(z)[z == max(z)]
}
teste1 = moda(c(1,2,3,4,5,5,5))
print(teste1)
[1] 5
A função moda
funciona muito bem por sinal, agora vamos para um outro caso:
teste2 = moda(c(1,1,1,2,3,4,5,5,5))
print(teste2)
[1] "1" "5"
No teste2, o vetor possui valor bimodal e a função moda
exibe dois valores. Agora vamos para o terceiro caso usando um data.frame:
print(DADOS)
Linha A B C D E
L1 4 3 2 1 4
L2 1 11 1 1 1
L3 0 1 2 2 4
L4 2 0 0 8 0
Neste caso vou ter que criar mais uma coluna com valores de cada linha calculados pela MODA:
DADOS = DADOS %>%
rowwise() %>%
mutate(MODA = moda(c(A,B,C,D,E)))
print(DADOS)
Linha A B C D E MODA
L1 4 3 2 1 4 4
L2 1 11 1 1 1 1
L3 0 1 2 2 4 2
L4 2 0 0 8 0 0
Funcionou perfeitamente, porém chegamos na "situação problema". Neste último caso vou usar um data.frame diferente:
print(DADOS_2)
Linha A B C D E
L1 4 3 2 2 4
L2 1 11 1 1 1
L3 0 1 2 3 4
L4 2 0 0 8 0
Como no caso anterior vou ter que criar mais uma coluna com valores de cada linha calculados pela MODA:
DADOS_2 = DADOS_2 %>%
rowwise() %>%
mutate(MODA = moda(c(A,B,C,D,E)))
print(DADOS_2)
Error: Column `MODA` must be length 1 (the group size), not 2
O R
me exibe a mensagem de erro, porque na base DADOS_2
a linha L1
traz um exemplo claro de valor bimodal L1=(4,3,2,2,4). E por se tratar de um valor bimodal, o R
não consegue atribuir dois valores em uma coluna só.
O que devo fazer nesse caso? Como posso calcular a MODA em linha com valor bimodal em um data.frame?