我来帮你搞定这个时间转换的难题！你的时间数据格式比较多样，还有浮点精度带来的冗余小数，不过我们可以通过几个简单的步骤统一处理成你想要的HH:MM:SS格式。

核心思路 #

我们可以把所有时间值统一转换成HHMMSS的整数格式，再拆分格式化：

1. 先处理浮点精度问题，把每个时间值转成数值后乘以100并取整，消除冗余小数；
2. 将整数补前导0到6位，确保统一为HHMMSS的长度；
3. 拆分出小时、分钟、秒，用冒号拼接成目标格式。

完整代码实现 #

# 你的原始时间向量（示例）
time_vec <- c("1744.3", "2327.54", "1718.51", "2312.3200000000002", "1414.16", 
              "2046.15", "1442.5", "1912.22", "2303.2199999999998", "2146.3200000000002", 
              "1459.02", "1930.15", "1856.23", "2319.15", "1451.05", "25.460000000000036", 
              "1453.25", "2309.02", "2342.48", "2322.5300000000002", "2101.5", "2026.07", 
              "1245.04", "1945.15", "5.4099999999998545", "1039.5", "1731.37", "2058.41", 
              "2030.36", "1814.31", "1338.18", "1858.33", "1731.36", "2343.38", "1733.27", 
              "2304.59", "1309.47", "1916.11", "1958.3", "1929.54", "1756.4", "1744.23", 
              "1731.26", "1844.47", "1353.25", "1958.3", "1746.44", "1857.53", "2047.15", 
              "2327.2199999999998", "1915" )

# 步骤1：处理数值并取整，消除浮点冗余
time_nums <- round(as.numeric(time_vec) * 100)
# 步骤2：补前导0到6位，统一为HHMMSS格式的字符串
time_str <- sprintf("%06d", time_nums)
# 步骤3：拆分并拼接成HH:MM:SS
formatted_time <- paste0(
  substr(time_str, 1, 2), ":",
  substr(time_str, 3, 4), ":",
  substr(time_str, 5, 6)
)

# 查看结果
head(formatted_time)
# 输出：
# [1] "17:44:30" "23:27:54" "17:18:51" "23:12:32" "14:14:16" "20:46:15"

解释你之前遇到的问题 #

你用str_replace("." , ":", df$Time)出错有两个原因：

1. 参数顺序搞反了：str_replace的正确语法是str_replace(string, pattern, replacement)，你把替换目标和模式写反了；
2. 正则转义问题：.在正则表达式中代表任意字符，如果你想替换实际的点号，需要用\\.来转义，不然会替换字符串的第一个字符。

如果要单独替换点号，正确的写法应该是：

str_replace(df$Time, "\\.", ":")

不过这个方法没法解决你数据中长度不一的问题（比如25.46需要补小时位，1915需要补秒位），所以还是用前面的统一处理方法更稳妥。

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