Вы можете найти наиболее частую запись, используя table()
и which.max()
, затем вы можете индексировать исходный вектор с помощью логического вектора, содержащего неравные записи, например: data [data! = Mostfrequent]. Вы можете получить помощь по ?table()
и ?which.max()
, пожалуйста, прокомментируйте, если вам нужно больше.
Ваш образец вектора
x <- c(378, 380, 380, 380, 380, 360, 187, 380)
Найдите частоту каждого числа в нем с помощью table
. Для удобства позже мы преобразуем его в фрейм данных.
counts <- as.data.frame(table(x), stringsAsFactors = FALSE)
which.max
позволяет нам найти модальное значение (наиболее распространенное).
modal_value <- which.max(counts$Freq)
Другие значения затем можно найти с помощью индексации.
as.numeric(counts[-modal_value, "x"])