R语言中给重复的列赋予rank，123，12，1等。代码分享

rank_xuhao<-function(x){
  myindex<-c()
  for (i in 1:length(x)){
    if (i==1){
      myindex[i]<-1
      next
    }
    if (x[i]==x[i-1]){
      myindex[i]<-myindex[i-1]+1
    } else {
      myindex[i] <- 1
    }
  }
  return(myindex)
}