R如何转换数据格式

1. sp <- sample(1:999)
   
2. i <- 1
   
3. for(i in 1:length(sp))
   
4.    {  if(nchar(sp[i]) == 2) {
   
5.           sp[i] <- paste("0", sp[i], sep = "")
   
6.       } else if(nchar(sp[i]) == 1) {
   
7.           sp[i] <- paste("00", sp[i], sep = "")
   
8.       } else { sp[i] <- sp[i] } }
   
9. rm(i); sp

复制代码

简单的例子~