Как извлечь и заменить шаблон в R

Question

Я пытаюсь извлечь числа в конце строки, используя regexec

y <- c("abcd-efgh/xyz/123456789", "123456789", "abcd-efgh", "123456789") 
m <- regexec("\\d+$", y) 
new_y <- unlist(regmatches(y, m)) 

Окончательное значение new_y выглядит следующим образом

> new_y 
[1] "123456789" "123456789" "123456789" 

Но я хочу чтобы выглядеть так.

> new_y 
[1] "123456789" "123456789" NA "123456789" 

i.e. Он должен иметь значение NA везде, где он не мог найти указанный шаблон. Может ли кто-нибудь сказать мне, как это сделать или предложить мне другой способ добиться этого?

Answer 1

как насчет:

new_y = gsub("^.*[^0-9]","",y) 
new_y[new_y == ""] <- NA 

или если вы хотите использовать regexpr, то:

start <- regexpr("([0-9]+$)",y) 
new_y = substr(y, 
       ifelse(start>0,start,NA), 
       nchar(y)) 

Answer 2

Вы можете попробовать:

ifelse(grepl("[[:digit:]]", y) == TRUE, gsub("[^[:digit:]]","", y), NA)