Prendendo il voto di maggioranza tra le colonne della matrice in R

Question

mymat <- structure(c(1, 1, 1, -1, -1, -1, -1, 1, -1, 1, 1, 1, 1, 1, -1
), .Dim = c(3L, 5L))

> mymat
     [,1] [,2] [,3] [,4] [,5]
[1,]    1   -1   -1    1    1
[2,]    1   -1    1    1    1
[3,]    1   -1   -1    1   -1

Voglio prendere la maggioranza dei voti sulle colonne di mymat. In questo esempio, i risultati di maggioranza voto attraverso le 5 colonne sono: 1 -1 -1 1 1.

Ho provato a guardare le soluzioni da una domanda simile qui , ma poiché le colonne in mymatsono senza nome, queste soluzioni non hanno funzionato per me.

Answer 1

Possiamo usare la Modefunzione da qui

Mode <- function(x) {
   ux <- unique(x)
   ux[which.max(tabulate(match(x, ux)))]
 }

e utilizzare applycon MARGINcome 2 per l'applicazione a colonne della funzione

apply(mymat, 2, Mode)
#[1]  1 -1 -1  1  1

O usando asplit/sapply

sapply(asplit(mymat, 2), Mode)

NOTA: Entrambe le soluzioni funzionano su un dataset generale e non solo sulla base dei valori mostrati dall'OP

mymat2 <- cbind(c('A', 'B', 'A'), c('e', 'e', 'f'))
sapply(asplit(mymat2, 2), Mode)

Answer 2

Se hai il voto binario del tipo rappresentato dai tuoi dati di esempio puoi usare sign()e colSums():

sign(colSums(mymat))
[1]  1 -1 -1  1  1