R - Compter l'élément le plus fréquent dans un vecteur
Exemples du langage RDans l'exemple suivant, nous utilisons une fonction personnalisée pour trouver l'élément qui apparaît le plus fréquemment dans un vecteur.
Exemple
# Créer un vecteur
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
# Vecteur numérique
v <- c(2,1,2,3,1,2,3,4,1,5,5,3,2,3)
# Calculer le résultat
result <- getmode(v)
print(result)
# Vecteur de chaînes de caractères
charv <- c("google","example","taobao","example","example")
# Calculer le résultat
result <- getmode(charv)
print(result)
getmode <- function(v) {
uniqv <- unique(v)
uniqv[which.max(tabulate(match(v, uniqv)))]
}
# Vecteur numérique
v <- c(2,1,2,3,1,2,3,4,1,5,5,3,2,3)
# Calculer le résultat
result <- getmode(v)
print(result)
# Vecteur de chaînes de caractères
charv <- c("google","example","taobao","example","example")
# Calculer le résultat
result <- getmode(charv)
print(result)
L'exécution du code ci-dessus produit le résultat suivant :
[1] 2 [1] "example"Autres extensions