Y at-il une fonction pour trouver toutes les lettres minuscules dans un vecteur de caractères?

Question

Je viens d'écrire, mais je me demandais si l'on existe déjà dans R.

est ici la fonction BTW (suggestions d'amélioration sont les bienvenus):

set.seed(50) 
x <- sample(c(letters, LETTERS), 7) 

is.lower <- function(x) 
{ 
    unlist(sapply(x, function(x2) {x2 %in% letters})) 
} 

is.lower(x) 

Answer 1

grepl("[a-z]",x) par exemple?

> grepl("[a-z]",x) 
[1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE 

Et pourquoi le rendre difficile?

> x %in% letters 
[1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE 

Pas besoin de faire votre propre fonction.

Answer 2

Une autre approche avec les valeurs au lieu d'un index logique que le résultat, serait de nommer les lettres elles-mêmes et utiliser « [ » avec x comme l'indice:

names(letters) <- letters 
letters[x] 
#<NA> w k <NA> y c <NA> 
# NA "w" "k" NA "y" "c" NA