Compter avec table()

table(x) compte combien de fois chaque valeur apparaît. Le résultat est nommé d’après les valeurs, triées par ordre alphabétique, donc le nombre d’occurrences d’une valeur est t[["value"]] :

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

Sortie :

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

sort(t, decreasing = TRUE) classe les comptes du plus élevé au plus faible. which.max(t) donne la position du compte le plus élevé ; en cas d’égalité, il choisit le premier, c’est-à-dire la valeur qui vient en premier dans l’ordre alphabétique :

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

Sortie :

[1] "coffee"
[1] 2

Une valeur qui ne se produit jamais ne figure pas du tout dans la table : vérifiez donc avec %in% names(t) avant de la lire :

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")
}

Sortie :

A 2 
B 1 
C 0 

table() compte également les nombres et les valeurs logiques. Pour compter une seule valeur, sum(x == value) est plus court que de construire une table :

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

Sortie :

[1] 3
[1] 3