将前导零填充到公共宽度[重复]

我正在处理具有小时格式的数据库，例如：

HOUR ID
1  2
10 4
5  6
20 6

我想在 1 个字符的值中放置一个零，并将它们存储在名为 NHOUR 的新列中，例如：

NHOUR HOUR ID
01 1  2
10 10 4
05 5 6
20 20 6

到目前为止，我正在努力解决类似的问题（我遵循论坛中已经为 ifelse 提供的一些建议）：

DB$NHOUR<-with(DB,ifelse(nchar(HOUR,type="chars")==1),sprintf("%02d",HOUR),as.numeric(HOUR))

但没有任何成功！ R 总是报告“是”元素未指定等。

一如既往，如有任何提示，我们将不胜感激！

只需遵循@joran评论中的建议，

DB <- data.frame(
HOUR  = c(1, 10, 5, 20),
ID  = c(2, 4, 6, 6))

NHOUR <- sprintf("%02d",DB$HOUR) # fix to 2 characters 

cbind(NHOUR, DB) # combine old and newdata 
  NHOUR HOUR ID
1    01    1  2
2    10   10  4
3    05    5  6
4    20   20  6

更新2013-01-21 23:42:00Z灵感来自下面是daroczig的性能测试 https://stackoverflow.com/a/14409851/1305688，因为我想尝试一下微基准测试包 http://cran.r-project.org/web/packages/microbenchmark/，我用自己的小型性能测试更新了这个问题，比较了该线程中建议的三种不同的解决方案。

# install.packages(c("microbenchmark", "stringr"), dependencies = TRUE)
require(microbenchmark)
require(stringr)

SPRINTF <- function(x) sprintf("%02d", x)
FORMATC <- function(x) formatC(x, width = 2,flag = 0)
STR_PAD <- function(x) str_pad(x, width=2, side="left", pad="0")

x <- round(runif(1e5)*10)
res <- microbenchmark(SPRINTF(x), STR_PAD(x), FORMATC(x), times = 15)

## Print results:
print(res)
Unit: milliseconds
        expr       min        lq    median        uq      max
1 FORMATC(x) 623.53785 629.69005 638.78667 671.22769 679.8790
2 SPRINTF(x)  34.35783  34.81807  35.04618  35.53696  37.1622
3 STR_PAD(x) 116.54969 118.41944 118.97363 120.05729 163.9664

### Plot results:
boxplot(res)