您可以使用gsub
从每个元素中删除所有数字,然后nzchar
仅检查/保留非零字符元素.
codes[nzchar(gsub("[0-9]+", "", codes))]
# [1] "3WC8" "lev"
Run Code Online (Sandbox Code Playgroud)
尝试:
> codes[is.na(sapply(codes, as.numeric))]
[1] "3WC8" "lev"
Run Code Online (Sandbox Code Playgroud)
或简单地(如@akrun在评论中建议的那样):
> codes[is.na(as.numeric(codes))]
[1] "3WC8" "lev"
Run Code Online (Sandbox Code Playgroud)
忽略两个代码中的警告。