Вы можете использовать
> x <- c("lala65lolo","papa3hihi","george365meumeu")
> sub("^\\D+", "", x)
[1] "65lolo" "3hihi" "365meumeu"
Или, чтобы убедиться, что есть цифра:
sub("^\\D+(\\d)", "\\1", x)
Шаблон соответствует
^
-начало строки \\D+
- один или несколько символов, отличных от цифры (\\d)
- Группа захвата 1: цифра (\1
в шаблоне замены восстанавливает захваченную цифру вэта группа).
Аналогичным образом вы можете добиться следующего:
sub("^\\s+", "", x)
- удалить весь текст до первого непробельного символа sub("^\\W+", "", x)
- удалить весь текст до первого слова char sub("^[^-]+", "", x)
- удалить весь текст до первого дефиса (если есть) и т. Д.