Мы можем подстроку
df1$A <- substring(df1$A, nchar(df1$A) - 11, nchar(df1$A))
df1$A
#[1] "200703543489" "200726343459" "200403843687" "200784256494" "200704521983"
Или с sub
sub(".*(.{12})$", "\\1", df1$A)
#[1] "200703543489" "200726343459" "200403843687" "200784256494" "200704521983"
Оба метода работают, даже если префикс другой и более общий
Если нам нужно удалить '6016'
library(stringr)
str_remove(df1$A, '^6016')
[#1] "200703543489" "200726343459" "200403843687" "200784256494" "200704521983"
Или другой вариант - создать новый набор данных вручную
df1$A <- c("200703543489", "200726343459", "200403843687",
"200784256494", "200704521983")
ПРИМЕЧАНИЕ. Показано 4 метода (общие /точный / ручной).
данные
df1 <- structure(list(A = c(6016200703543489, 200726343459, 200403843687,
6016200784256494, 200704521983)), class = "data.frame", row.names = c("1",
"2", "3", "4", "5"))