删除最后连续的数字

Question

我有一列字母数字数据，我必须删除最后一个连续数字。它可以是任何长度。

输入：

dlxcp01 
dlcs8012
fg2fdes1

期望输出：

dlxcp
dlcs
fg2fdes

由于我拥有大型数据集，正确的代码可以做得更好。

Answer 1

使用子功能。

sub("[0-9]+$", "", x)

或

sub("[[:digit:]]+$", "", x)

Answer 2

使用gsub()功能：

text <- c('dlxcp01', 'dlcs8012', 'fg2fdes1')
gsub('[0-9]*$', "", text)
[1] "dlxcp"   "dlcs"    "fg2fdes"