我刚写了一篇,但我想知道是否已经存在于R中。
这是BTW的功能(欢迎提出改进建议):
set.seed(50)
x <- sample(c(letters, LETTERS), 7)
is.lower <- function(x)
{
unlist(sapply(x, function(x2) {x2 %in% letters}))
}
is.lower(x)
答案 0 :(得分:13)
grepl("[a-z]",x)
?
> grepl("[a-z]",x)
[1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE
为什么要让它变得困难?
> x %in% letters
[1] FALSE TRUE TRUE FALSE TRUE TRUE FALSE
无需自己动手。
答案 1 :(得分:3)
使用值而不是逻辑索引作为结果的另一种方法是将字母命名为自己,并使用“[”将x作为索引:
names(letters) <- letters
letters[x]
#<NA> w k <NA> y c <NA>
# NA "w" "k" NA "y" "c" NA