删除最后一个连续数字

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"