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)
}
R语言中给重复的列赋予rank,123,12,1等。代码分享
最新推荐文章于 2022-03-24 14:42:22 发布