Zliczanie za pomocą table()

table(x) zlicza, ile razy występuje każda wartość. Wynik jest nazwany wartościami, posortowanymi alfabetycznie, więc liczba wystąpień danej wartości to t[["value"]]:

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

Wynik:

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

sort(t, decreasing = TRUE) porządkuje liczebności od największej do najmniejszej. which.max(t) zwraca pozycję największej liczebności; gdy liczebności są takie same, wybiera pierwszą, czyli alfabetycznie pierwszą wartość:

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

Wynik:

[1] "coffee"
[1] 2

Wartość, która nigdy nie występuje, w ogóle nie znajduje się w tabeli, więc przed jej odczytaniem sprawdź za pomocą %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")
}

Wynik:

A 2 
B 1 
C 0 

table() zlicza również liczby i wartości logiczne. Aby zliczyć pojedynczą wartość, sum(x == value) jest krótsze niż tworzenie tabeli:

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

Wynik:

[1] 3
[1] 3