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