R语言众数函数分析

兮兮能吃能睡2025-10-26 11:14

r 复制代码

get_mode <- function(x) {
  ux <- unique(x)
  ux[which.max(tabulate(match(x, ux)))]
}
get_mode(mtcars$cyl)

我来逐行解析这个R语言函数：

r 复制代码

get_mode <- function(x) {
  # 这是一个计算众数（出现频率最高的值）的自定义函数

r 复制代码

ux <- unique(x)
# unique() 函数返回向量中的唯一值（去重）
# 例如：如果 x = c(1,2,2,3,3,3)，则 ux = c(1,2,3)

r 复制代码

ux[which.max(tabulate(match(x, ux)))]
# 这个复合表达式分解如下：

match(x, ux)
- 将x中的每个元素匹配到ux中的位置
- 例如：x = c(1,2,2,3,3,3), ux = c(1,2,3)
- match(x, ux) 返回：c(1,2,2,3,3,3)
tabulate(match(x, ux))
- 统计每个整数出现的频率
- 返回：c(1,2,3) # 1出现1次，2出现2次，3出现3次
which.max(tabulate(...))
- 找到最大频率值的位置索引
- 返回：3 # 因为第3个位置的频率最高
ux[...]
- 用索引从ux中提取对应的值
- ux[3] = 3

r 复制代码

get_mode(mtcars$cyl)
# 计算mtcars数据集中cyl列的众数
# mtcars$cyl包含汽车气缸数：4,6,8缸

对于mtcars$cyl数据：

这个函数简洁高效地实现了众数的计算，但要注意：如果有多个众数，它只返回第一个遇到的众数。