แปลงวันที่และเวลาเป็นสตริงเวลาที่จัดรูปแบบ

ไม่แน่ใจว่าทำไมคุณต้องแปลงเป็น hms และกลับเป็นรูปแบบสตริงเริ่มต้น บางทีฟังก์ชัน parse_date_time อาจเป็นสิ่งที่คุณต้องการ:

library(lubridate)
myTime <- "14:11:49"
hms(myTime)
#"14H 11M 49S"

POSIXct_myTime <- parse_date_time(myTime,"hms")
format(POSIXct_myTime, format="%H:%M:%S")
#"14:11:49"

แก้ไข: เราสามารถใช้ paste:

t <- hms("14:11:49")
t
#[1] "14H 11M 49S"
t <- t + minutes(3)
t
#[1] "14H 14M 49S"

paste(hour(t),minute(t),second(t),sep=":")
#[1] "14:14:49"

เอาต์พุตมาตรฐาน:

op <- microbenchmark(
  Use_paste=paste(hour(t),minute(t),second(t),sep=":"),
  Use_sprintf=sprintf("%s:%s:%s", hour(t), minute(t), second(t)),
  times=1000000L)
op

# Unit: microseconds
# expr    min     lq median     uq      max neval
# Use_paste 28.072 31.695 32.601 33.506 44253.42 1e+06
# Use_sprintf 29.582 33.807 34.412 35.619 44367.52 1e+0

ปัญหาคือ class(t) คือ "Period" และฟังก์ชัน format.Period() ไม่มีพารามิเตอร์สำหรับ format= ออบเจ็กต์ t ไม่ใช่ออบเจ็กต์สไตล์ POSIXt มาตรฐานที่คุณอาจคุ้นเคยกับการใช้กับ format() เฉพาะฟังก์ชัน format.POSIXct() และ format.POSIXlt() เท่านั้นที่จะทำงานเช่นนั้น

ดังนั้นบางทีสิ่งที่ง่ายที่สุดที่จะทำคือการกำหนดฟังก์ชันตัวช่วยเพื่อเปลี่ยนคลาส Period ให้เป็น POSIXct เราสามารถทำได้ด้วย:

as.POSIXct.Period <- function(x, start=today()) {
    X<-as.interval(x, start); 
    [email protected]+X@start
}

สิ่งสำคัญคือต้องทราบว่า POSIXct เป็นค่าวันที่/เวลา ไม่ใช่เพียงค่าเวลา โดยค่าเริ่มต้น เราถือว่าวันนี้เริ่มตอนเที่ยงคืน แต่เราสามารถใช้รูปแบบตามที่คุณต้องการได้

format(as.POSIXct(t), format="%H:%M:%S")
# [1] "14:11:49"

ฉันต้องยอมรับว่าฉันไม่ใช่ผู้ใช้ lubridate ที่เชี่ยวชาญ ดังนั้นบางทีฉันอาจมองข้ามฟังก์ชันที่ชัดเจนไป แต่ดูเหมือนว่าตัวเลือกสำหรับการจัดรูปแบบคลาส lubridate เป็นรูปแบบที่ "สวย" นั้นมีจำกัดมาก

โซลูชันที่นำเสนอไม่พิมพ์เลขศูนย์นำหน้า วิธีแก้ปัญหาต่อไปนี้ดูหรูหรากว่า:

> t <- hms("14:01:49") + minutes(3)
> sprintf("%s:%s:%s", hour(t), minute(t), second(t))
[1] "14:4:49" # looking weird
> format(Sys.Date() + t, "%H:%M:%S")
[1] "14:04:49" # looking better