Вы можете использовать регулярное выражение для просмотра позади (?<=^\\d{1})
, чтобы сопоставить число, которому предшествует только одна цифра, чтобы удалить два, а также для соответствия пятой позиции с последней, вы используете предварительный просмотр (?=.{5}$)\\d
gsub("(?<=^\\d{1})\\d|(?=.{5}$)\\d","",3255103161,perl = T)
[1] "35513161"
Если вы хотите это как число, вы можете сделать:
as.numeric(gsub("(?<=^\\d{1})\\d|(?=.{5}$)\\d","",3255103161,perl = T))
[1] 35513161
Также вы можете сделать:
a = 3255103161
pos=c(2,nchar(a)-4)
attr(pos,"match.length")=rep(1,length(pos))
regmatches(a, list(pos)) <- ""
a
[1] "35513161"
ИЛИ ВЫ МОЖЕТЕ СДЕЛАТЬ:
a = 3255103161
`regmatches<-`(a,list(`attr<-`(pos,"match.length",rep(1,length(pos)))),value="")
[1] "35513161"