r 从毫秒转换为小时和分钟

我们可以通过以下方式获得零点：

strftime(as.POSIXlt.numeric(0, format="%OS", origin="1970-01-01") - 7200, format="%R")
# [1] "00:00"

因此：

t.adj <- 0
res <- strftime(as.POSIXlt.numeric(v/1000, format="%OS", origin="1970-01-01") - t.adj*3600, 
                format="%R", tz="GMT")
res
# [1] "01:38" "01:30" "01:04" "02:03" "01:31" "01:55"
class(res)
# [1] "character"

日期无关紧要，因为：

class(res)
# [1] "character"

请注意，此解决方案可能取决于您的Sys.getlocale("LC_TIME"). 在上面的解决方案中，有一个可选的小时调整t.adj*，但是在我的个人语言环境中，它被设置为零以产生正确的值。

数据

v <- c(5936500, 5438500, 3845400, 7439900, 5480200, 6903900)

^{*要自动进行本地化，您可能需要查看此问题的答案。}