R: удалить номера вектора

Question

У меня есть следующий вектор:

codes <- c("3WC8" , "456" , "lev", "1") 

Я хочу, чтобы удалить "456" и "1", но я не хочу, чтобы удалить номера из "3WC8".

Answer 1

Вы можете использовать gsub, чтобы удалить все числа из каждого элемента, затем nzchar, чтобы проверить/сохранить только ненулевые символы.

codes[nzchar(gsub("[0-9]+", "", codes))] 
# [1] "3WC8" "lev" 

Answer 2

Try:

> codes[is.na(sapply(codes, as.numeric))] 
[1] "3WC8" "lev" 

или просто (как это было предложено @akrun в комментариях):

> codes[is.na(as.numeric(codes))] 
[1] "3WC8" "lev" 

Игнорировать предупреждения в обоих кодексах.

Answer 3

Или вы могли бы сделать:

grep("^\\d+$", codes, value=TRUE, invert=TRUE) 
#[1] "3WC8" "lev"