R语言教程实例：计算向量中出现最多次的元素

# 创建向量
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/26453.html

# 数字向量
v <- c(2,1,2,3,1,2,3,4,1,5,5,3,2,3)文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/26453.html

# 计算结果
result <- getmode(v)
print(result)文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/26453.html

# 字符串向量
charv <- c("google","runoob","taobao","runoob","runoob")文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/26453.html

# 计算结果
result <- getmode(charv)
print(result)文章源自菜鸟学院-https://www.cainiaoxueyuan.com/ymba/26453.html