извлечение текста из буквенно-цифрового вектора в R

Question

У меня есть данные, как показано ниже, и необходимо извлечь текст перед любым номером. или если мы можем выделить текст и номер, то это было бы здорово

df<-c("axz123","bww2","c334") 

выход

"axz", "bww", "c" 

или

"axz","bww","c" 
"123","2","334" 

Answer 1

Мы можем сделать:

df <- c("axz123","bww2","c334") 
gsub("\\d+", "", df) 
#[1] "axz" "bww" "c" 
gsub("(\\D+)", "", df) 
#[1] "123" "2" "334" 

Для вашего другого примера:

df <- "BAILEYS IRISH CREAM 1.75 LITERS REGULAR_NOT FLAVORED" 
gsub("\\d.*", "", df) 
#[1] "BAILEYS IRISH CREAM " 
gsub("[A-Z_ ]*", "", df) 
#[1] "1.75" 

Answer 2

Мы можем использовать [:alpha:], чтобы соответствовать буквенные символы и сочетать это с gsub() и отрицанием для удаления всех символов, которые не являются алфавитами:

gsub("[^[:alpha:]]", "", df) 
#[1] "axz" "bww" "c" 

Чтобы получить только неалфавитные символы мы можем отбросить отрицание ^:

gsub("[[:alpha:]]", "", df) 
#[1] "123" "2" "334" 

Answer 3

Использование str_extract и регулярных выражений. Мы сопоставляем один или несколько символов перед любым номером ((?=\\d)) и извлекаем его.

library(stringr) 
str_extract(df, "[[:alpha:]]+(?=\\d)") 
#[1] "axz" "bww" "c" 

---

Если нужно отделить числовой и нечисловой, strsplit можно использовать

lst <- strsplit(df, "(?<=[^0-9])(?=[0-9])", perl=TRUE)