R - Подсчёт наиболее часто встречающегося элемента в векторе
Примеры на языке RВ следующем примере мы используем пользовательскую функцию, чтобы найти элемент, который встречается чаще всего в векторе.
Пример
# Создать вектор
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
# Числовой вектор
v <- c(2,1,2,3,1,2,3,4,1,5,5,3,2,3)
# Вычислить результат
result <- getmode(v)
print(result)
# Строковый вектор
charv <- c("google","example","taobao","example","example")
# Вычислить результат
result <- getmode(charv)
print(result)
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
# Числовой вектор
v <- c(2,1,2,3,1,2,3,4,1,5,5,3,2,3)
# Вычислить результат
result <- getmode(v)
print(result)
# Строковый вектор
charv <- c("google","example","taobao","example","example")
# Вычислить результат
result <- getmode(charv)
print(result)
Выполнение приведённого выше кода даёт следующий результат:
[1] 2 [1] "example"Другие расширения