r - r 如何显示模式以及模式出现的频率？

Question

我有一个数据集，其中列为选票，行为议员。我想计算一致指数，因此需要模式的频率。

一列看起来像像这样

V1
1
3
2
1
1
2
1

我知道下面的代码告诉我模式

getmode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}

而且我知道 R 如何显示值的频率

a <- table(df$V1)
print(a)

有没有一种方法可以让 R 在我的示例 1 中采用模式，并在我的示例 4 中显示它的频率？

Answer 1

你可以这样做

a <- table(df$V1)
max(a)

或者使用你的getmode函数

sum(df$V1 == getmode(df$V1))