我正在处理一个小时格式的数据库，例如：
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 的性能测试的启发，并且因为我想尝试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)
我喜欢使用这个stringr包：
DB$NHOUR <- str_pad(DB$HOUR, width=2, side="left", pad="0")
替代解决方案：
> formatC(DB$HOUR, width = 2,flag = 0)
[1] "01" "10" "05" "20"
更新：我刚刚对性能问题进行了快速测试，只是为了记录这个问题
> library(microbenchmark)
> SPRINTF <- function(x) sprintf("%02d", x)
> FORMATC <- function(x) formatC(x, width = 2,flag = 0)
> x <- round(runif(1e5)*10)
> microbenchmark(SPRINTF(x), FORMATC(x), times = 10)
Unit: milliseconds
expr min lq median uq max
1 FORMATC(x) 688.35430 723.42458 767.06025 780.84768 878.4966
2 SPRINTF(x) 31.29167 31.96052 35.75735 40.54656 147.6805
与 类似stringr，有stri_pad_left从stringi
library(stringi)
stri_pad_left(str=DB$HOUR, 2, pad="0")
# [1] "01" "10" "05" "20"
在速度方面应该几乎相同。右侧和两侧都有类似的填充功能。