如何将difftime对象转换为「X小时Y分钟Z秒」格式字符串

下面给出两种可直接使用的实现：

方案1：基于lubridate包实现（推荐，适配所有时长场景） #

先安装加载lubridate包，利用内置的周期转换功能实现，无需手动处理单位换算：

# 安装包（首次使用执行）
# install.packages("lubridate")
library(lubridate)
library(hms)

magicfunction <- function(diff_obj) {
  # 先将difftime转成总秒数，再转为可读周期格式
  period_val <- seconds_to_period(as.numeric(diff_obj, units = "secs"))
  # 自定义输出中文单位
  paste0(
    if (period_val@hour > 0) paste0(period_val@hour, "小时"),
    if (period_val@minute > 0) paste0(period_val@minute, "分钟"),
    if (period_val@.Data > 0) paste0(round(period_val@.Data), "秒")
  )
}

# 测试示例
magicfunction(difftime(hms(11, 02, 03), hms(10, 00, 00)))
# 输出结果："1小时2分钟3秒"

方案2：无依赖自定义实现 #

如果不想引入第三方包，可以直接通过数值计算拆分各时间单位：

magicfunction <- function(diff_obj) {
  total_sec <- as.numeric(diff_obj, units = "secs")
  hours <- total_sec %/% 3600
  remain <- total_sec %% 3600
  mins <- remain %/% 60
  secs <- round(remain %% 60)
  
  res_parts <- c()
  if (hours > 0) res_parts <- c(res_parts, paste0(hours, "小时"))
  if (mins > 0) res_parts <- c(res_parts, paste0(mins, "分钟"))
  # 避免时长为0时无输出
  if (secs > 0 || length(res_parts) == 0) res_parts <- c(res_parts, paste0(secs, "秒"))
  
  paste(res_parts, collapse = " ")
}

# 测试示例
magicfunction(difftime(hms(11, 02, 03), hms(10, 00, 00)))
# 输出结果："1小时 2分钟 3秒"

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