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","runoob","taobao","runoob","runoob")
# 计算结果
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","runoob","taobao","runoob","runoob")
# 计算结果
result <- getmode(charv)
print(result)
执行以上代码输出结果为：
[1] 2[1] "runoob"