Подсчёт с помощью table()

table(x) подсчитывает, сколько раз встречается каждое значение. Результат именуется значениями, отсортированными в алфавитном порядке, поэтому количество некоторого значения — это t[["value"]]:

votes <- c("tea", "coffee", "tea", "juice", "tea")
t <- table(votes)
print(t[["tea"]])
print(names(t))
print(as.vector(t))

Вывод:

[1] 3
[1] "coffee" "juice"  "tea"   
[1] 1 1 3

sort(t, decreasing = TRUE) упорядочивает количества от наибольшего к наименьшему. which.max(t) возвращает позицию наибольшего количества; если количества совпадают, выбирается первое, то есть значение, которое находится первым в алфавитном порядке:

votes <- c("tea", "coffee", "tea", "juice", "coffee")
t <- table(votes)
print(names(t)[which.max(t)])
print(max(t))

Результат:

[1] "coffee"
[1] 2

Значение, которое никогда не встречается, вообще отсутствует в таблице, поэтому перед его чтением проверьте с помощью %in% names(t):

t <- table(c("A", "B", "A"))
for (grade in c("A", "B", "C")) {
  n <- if (grade %in% names(t)) t[[grade]] else 0
  cat(grade, n, "\n")
}

Вывод:

A 2 
B 1 
C 0 

table() также подсчитывает числа и логические значения. Чтобы подсчитать одно значение, sum(x == value) короче, чем создание таблицы:

rolls <- c(6, 2, 6, 6, 1)
print(sum(rolls == 6))
print(table(rolls > 3)[["TRUE"]])

Результат:

[1] 3
[1] 3