Loops 将值重新编号为连续值

我在研究生物信息学数据。我有一系列本质上不连续的重复数字。我试图找到一个简单的方法来重新编号，使它们是连续的

例：

旧：1112355779

欲望改变

新：111234455666

---

我使用R.

解决这个问题的一种方法是使用for循环，并跟踪当前插入的数字和替换的值

vec <- c(1, 1, 1, 2, 2, 3, 3, 5, 5, 7, 7, 7, 9, 9)
curr <- vec[1]
rep <- vec[1]

for(i in 1:length(vec)) {
  if(vec[i] > rep) {
    rep <- vec[i]
    curr <- curr + 1
  }

  if(vec[i] > curr) {
    vec[i] <- curr
  }
}

# Print the results
for(val in vec) {
  print(val)
}

---

vec您为此使用哪种编程语言？