如何将小数形式的小时转换为时间格式（R语言实操）

方法一：Base R 原生实现（无需额外包） #

先给数据集设置列名方便操作，再通过计算小时和分钟部分格式化输出：

# 给原数据集命名列
colnames(df) <- "decimal_hour"

# 计算并生成目标时间字符串
df$time_str <- with(df, {
  hour <- floor(decimal_hour)
  minute <- round((decimal_hour - hour) * 60)
  ifelse(minute == 0, as.character(hour), sprintf("%d:%02d", hour, minute))
})

# 验证结果
df$time_str
# 输出结果："9:30" "9:45" "9"    "9:15"

逻辑说明：

• floor(decimal_hour) 提取小数小时的整数部分作为小时数
• (decimal_hour - hour) * 60 将小数部分转换为分钟数，round() 确保结果为整数
• ifelse 判断分钟是否为0，是则仅显示小时数，否则用sprintf()格式化带两位分钟的字符串（避免出现"9:5"这类不规范格式）

方法二：使用hms包简化操作 #

如果习惯用专门的时间处理包，可以用hms快速转换后调整格式：

library(hms)

colnames(df) <- "decimal_hour"
# 将小数小时转成秒后转为时间对象，再格式化
df$time_str <- format(as.hms(df$decimal_hour * 3600), "%H:%M")
# 移除分钟为0时的":00"后缀
df$time_str <- sub(":00$", "", df$time_str)

关于lubridate的常见问题 #

你用lubridate出错大概率是因为它默认生成包含秒数的完整时间格式（比如09:30:00），或需要结合日期处理，反而绕了弯路。上面两种方法更直接适配你的需求。

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