powered by
recode(x, oldcode = sort(unique(x)), newcode)
x<-rep(1:3,times=1:3) newx<-recode(x,oldcode=1:3,newcode=c("a","b","c"))
Run the code above in your browser using DataLab