2

我有一列从 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. 有什么想法吗？

谢谢！

解决方案

感谢乔兰！如果 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 = ""))
4

2 回答 2

5

怎么样sprintf？

> sprintf('s%04d', c(1,10,100,1000))
[1] "s0001" "s0010" "s0100" "s1000"
于 2012-04-10T19:47:30.367 回答
1

我 100% 肯定有更好的方法来做到这一点，我有点不好意思诉诸ddply，但这至少有效：

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

我们走了，这好多了，我认为：

paste("s",sapply(4-nchar(1:1000),function(i) paste(rep("0",i),collapse = "")),1:1000,sep = "")
于 2012-04-10T18:15:50.033 回答