嵌套if else语句将标签附加到值

Question

我有一列1:1000的数字.我想在每个数字的前面附加标签"s",以便每个单元格中的字符总数保持不变.例如,"1"将变为"s0001","15"将变为"s0015","620"将变为"s0620",并且"1000"将变为"s1000".

我试图使用嵌套if else语句来完成此操作,但我不断收到条件长度> 1且只使用第一个元素的错误.

这是一个示例数据集和我正在使用的代码:

df=data.frame(code=seq(1:1000))
df$code=
  if (df$code < 10) { df$code=paste("s000",df$code,sep="") } else
    if (100 > df$code & df$code >= 10) { df$code=paste("s00",df$code,sep=="") } else
      if (1000 > df$code & df$code >= 100) { df$code=paste("s0",df$code,sep="") } else
      { df$code=paste("s",df$code,sep="") }

我怀疑有一种更简单的方法可以不使用它if else.有什么想法吗？

谢谢!

---

解

感谢Joran!如果x是非连续整数:

d=data.frame(x=sample(1:1000,500))
d$nc=nchar(d$x)
ddply(d,.(nc),transform,lab = paste("s",paste(rep("0",4-unique(nc)),collapse = ""),x,sep = ""))

Answer 1

怎么回事sprintf？

> sprintf('s%04d', c(1,10,100,1000))
[1] "s0001" "s0010" "s0100" "s1000"