Pad với số không dẫn đến độ rộng phổ biến

Question

Tôi đang xử lý một DB với định dạng giờ như:

HOUR ID 
1 2 
10 4 
5 6 
20 6 

Tôi muốn đặt một số không tính vào giá trị với 1 ký tự và lưu trữ chúng trong một cột mới có tên NHOUR, như:

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

cho đến bây giờ tôi đang phải vật lộn với một cái gì đó tương tự (tôi làm theo một số gợi ý đã được cung cấp cho ifelse trong diễn đàn):

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

nhưng không thành công! R luôn báo cáo phần tử "có" không được chỉ định, v.v.

Như mọi khi, mọi lời khuyên đều được đánh giá cao!

Answer 1

Đơn giản chỉ cần làm theo lời khuyên trong bình luận @ Joran của,

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 

Cập nhật 2013/01/21 23: 42: 00Z Lấy cảm hứng từ daroczig's performance test below, và vì tôi muốn thử microbenchmark package, tôi đã cập nhật câu hỏi này với một thử nghiệm hiệu suất nhỏ của riêng tôi so sánh ba giải pháp khác nhau được đề xuất trong chủ đề này.

# 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) 

Answer 2

giải pháp thay thế:

> formatC(DB$HOUR, width = 2,flag = 0) 
[1] "01" "10" "05" "20" 

---

Cập nhật: Tôi vừa mới chạy một thử nghiệm nhanh về vấn đề hiệu suất chỉ để ghi lại câu hỏi này

> 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 

Answer 3

Tôi thích sử dụng các stringr gói:

DB$NHOUR <- str_pad(DB$HOUR, width=2, side="left", pad="0") 

Answer 4

Tương tự như các stringr, có stri_pad_left từ stringi

library(stringi) 
stri_pad_left(str=DB$HOUR, 2, pad="0") 
# [1] "01" "10" "05" "20" 

Nó nên được khá nhiều việc cùng tốc độ khôn ngoan. Có các chức năng đệm tương tự cho bên phải và cả hai bên.