你可以使用gsub来实现：

gsub('[[:digit:]]+', '', x)

或

gsub('[0-9]+', '', x)
# [1] "ACO"    "BCKDHB" "CD"

如果您的目标只是删除数字，那么removeNumbers()函数将从文本中删除数字。使用它可以降低出错的风险。

library(tm)

x <-c('ACO2', 'BCKDHB456', 'CD444') 

x <- removeNumbers(x)

x

[1] "ACO"    "BCKDHB" "CD"

使用stringr
大多数stringr函数处理正则表达式
str_replace_all将执行您需要的操作

str_replace_all(c('ACO2', 'BCKDHB456', 'CD444'), "[:digit:]", "")

使用stringi的解决方案：

# your data
x <-c('ACO2', 'BCKDHB456', 'CD444')

# extract capital letters
x <- stri_extract_all_regex(x, "[A-Z]+")

# unlist, so that you have a vector
x <- unlist(x)

一行解决方案：