如何使用lubridate将datetime时间差转换为三种指定格式

你生成的time_diff_xx属于R的difftime类对象，我们可以先将其转换为lubridate的Period类，再提取时、分、秒分量按需拼接即可实现三种目标格式，具体代码如下：

前置处理：转换时间差为Period类 #

先统一将difftime类的时间差转为Period对象，方便提取时分秒分量：

library(lubridate)

# 你的原始示例代码
time_1 <- ymd_hms("2021-01-01 12:00:00")
time_2 <- ymd_hms("2021-01-01 12:12:36")
time_3 <- ymd_hms("2021-01-01 14:25:45")

time_diff_32 <- time_3 - time_2
time_diff_31 <- time_3 - time_1
time_diff_21 <- time_2 - time_1

# 统一转换为Period对象
period_32 <- as.period(time_diff_32)
period_31 <- as.period(time_diff_31)
period_21 <- as.period(time_diff_21)

1. 输出HH:MM格式 #

提取小时、分钟分量，补前导零后拼接：

format_hhmm <- function(period) {
  h <- hour(period)
  m <- minute(period)
  sprintf("%02d:%02d", h, m)
}

# 测试示例
format_hhmm(period_32) # 输出 "02:13"
format_hhmm(period_21) # 输出 "00:12"

2. 输出HH:MM:SS格式 #

额外提取秒分量拼接即可：

format_hhmmss <- function(period) {
  h <- hour(period)
  m <- minute(period)
  s <- second(period)
  sprintf("%02d:%02d:%02d", h, m, s)
}

# 测试示例
format_hhmmss(period_32) # 输出 "02:13:09"
format_hhmmss(period_21) # 输出 "00:12:36"

3. 输出MM:SS格式 #

注意需要将小时换算为分钟累加后再拼接：

format_mmss <- function(period) {
  total_m <- hour(period)*60 + minute(period)
  s <- second(period)
  sprintf("%02d:%02d", total_m, s)
}

# 测试示例
format_mmss(period_32) # 输出 "133:09"
format_mmss(period_21) # 输出 "12:36"

批量处理方法 #

如果需要一次性处理多个时间差，直接用sapply批量调用即可：

all_diff <- c(time_diff_32, time_diff_31, time_diff_21)
sapply(all_diff, function(x) format_hhmmss(as.period(x)))

内容的提问来源于stack exchange，提问作者SiH