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","runoops","taobao","runoops","runoops")

# 计算结果
result <- getmode(charv)
print(result)