extrahieren Sie Text aus alphanumerischen Vektor in R

Question

Ich habe eine Daten wie unten und müssen Text extrahieren kommt vor jeder Nummer. oder wenn wir den Text und Nummer trennen kann dann wäre es toll,

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

Ausgang

"axz", "bww", "c" 

oder

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

Answer 1

Wir tun können:

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

Für Ihr weiteres Beispiel:

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

Wir können [:alpha:] verwenden, um die Buchstaben zu entsprechen, und kombinieren diese mit gsub() und eine Negation, um alle Zeichen zu entfernen, die nicht alphabetisch sind:

Um nur die nicht-alphabetische Zeichen erhalten wir die Negation fallen kann ^:

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

Answer 3

Mit str_extract und Regex Lookarounds. Wir passen ein oder mehrere Zeichen vor jeder Zahl an ((?=\\d)) und extrahieren sie.

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

---

Wenn wir die numerische und nicht-numerische trennen müssen, können strsplit

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