Значение с максимальной частотой

[VistaSV30]

Добрый день!

В векторе нужно найти значение с максимальной частотой

Код: Выделить всё

set.seed(1)
x = c(sample(0:5, 1000, T))
table(x)

x
  0   1   2   3   4   5 
170 164 152 174 176 164

Вопрос вроде бы простой, но ни как не получается написать код, который бы по результатам обработки данного вектора вернул бы четверку.
Подскажите, что делать?

Спасибо!

[antonv]

VistaSV30, попробуйте

Код: Выделить всё

which(max(x))

Выражение должно вернуть порядковый номер максимального элемента в векторе.

[VistaSV30]

Извиняюсь, не совсем корректно сформулировал свой вопрос.

В векторе x четвёрка встречается чаще других значений.
table(x) показывает, что в векторе x всего 176 четвёрок.

У меня не получается получить значение 4 из функции table().

[antonv]

VistaSV30,

Код: Выделить всё

getmode <- function(v) {
   uniqv <- unique(v)
   uniqv[which.max(tabulate(match(v, uniqv)))]
}

v <- c(...)

result <- getmode(v)
print(result)

[VistaSV30]

Работает!
Спасибо!

[nickleb]

.. а вот такая "кракозябра" тоже, вроде, как работает:

Код: Выделить всё

as.numeric(names(which(table(x) == max(table(x)))))

[VistaSV30]

as.numeric(names(which(table(x) == max(table(x)))))

Да, спасибо!