r - 将冒号插入时间戳 hhmmss

Question

我是 stackoverflow 和 R 编程的新手。

假设我有以下数据:

time<-as.factor(c(142250,101449,85829))
as.data.frame(time)

这将返回以下内容:

    time
  1 142250
  2 101449
  3  85829

我想要的是将上面的转换成带有分号的时间戳，例如:

142250 将是 14:22:50

我能够使用 chron 包找到以下代码:

library('chron')
times(gsub("(..)(..)(..)", "\\1:\\2:\\3", date))

返回

[1] 14:22:50 10:14:49 **<NA>**  

如您所见，问题是如果少于 6 个字符，它将返回 NA。

我想要的输出是返回以下结果:

[1] 14:22:50 10:14:49 8:58:29  

我相信我可能需要进行某种循环，但我不确定该怎么做？

任何帮助将不胜感激。

Answer 1

因此，为了达到您想要的输出，您可以使用 sprintf 并添加前导 0 以防字符串短于 6，但请参阅@Rolands 评论提供更多清晰度

library('chron')
time <- sprintf("%06d", as.numeric(as.character(time)))
times(gsub("(..)(..)(..)", "\\1:\\2:\\3", time))
## [1] 14:22:50 10:14:49 08:58:29