r - 从字符串中删除某些模式

Question

我有一个如下所示的向量：

t <- c("8466 W Peoria Ave", "4250 W Anthem Way", .....)

我想将其转换为：

t_mod <-c("Peoria Ave", "Anthem Way".....)

那就是我想从我的字符串向量中删除数字和单个字符。

任何帮助将不胜感激。

Answer 1

tt <- c("8466 W Peoria Ave", "4250 W Anthem Way")
gsub(" [A-Za-z] ", "", gsub("[0-9]", "", tt))
[1] "Peoria Ave" "Anthem Way"

Answer 2

干得好：

# Data
t <- c("8466 W Peoria Ave", "4250 W Anthem Way")

# Remove numbers and split by whitespace
t.char <- sub("[[:alnum:]]* ", "", t) 
t.char.split <- strsplit(t.char, " ")

# Remove strings with only one character
t.mod <- sapply(t.char.split, function(i) {
  paste(i[which(nchar(i) > 1)], collapse = " ")
})

t.mod
[1] "Peoria Ave" "Anthem Way"

Answer 3

我不太擅长正则表达式，但我可以尝试一下，这个怎么样：

t_mod <- gsub("^[0-9]{1,} [a-z][A-Z] ", "", t)

这将首先去除字符串开头的任意数量的数字，然后是空格、任何字母，然后是另一个空格。然后我的 t_mod 看起来你需要：

t_mod
[1] "Peoria Ave" "Anthem Way"

Answer 4

char <- c("8466 W Peoria Ave", "4250 W Anthem Way")
gsub("[[:digit:]]+ *[[:alpha:]].","",char)
#[1] "Peoria Ave" "Anthem Way"