Мы можем вычесть min
imum или first
элемент 'Current', а затем добавить к нему 99
df1$Desired <- df1$Current - df1$Current[1] + 99
df1$Desired
#[1] 99 100 100 100 101 101 102 102 102
Или, если его необходимо повторно упорядочить из 1
df1$Current - df1$Current[1] + 1
Или используйте match
match(df1$Current, unique(df1$Current))
data
df1 <- data.frame(Current = c(226, 227, 227, 227, 228, 228, 229, 229, 229))