如何将秒转换为R中的日期

Question

我有一秒钟的专栏。开始日期是09/01/2017 01:37:33。 我想根据计算（考虑开始日期）用日期替换秒。但是我找不到这个问题的答案...请有人帮我吗？

Answer 1

转换为POSIXct并添加秒数。 seconds可以是秒的向量。

seconds <- 2
as.POSIXct("09/01/2017 01:37:33", format = "%m/%d/%Y %H:%M:%S") + seconds
## [1] "2017-09-01 01:37:35 EDT"

Answer 2

我们将开始日期转换为as.Posixct，并将秒转换为日期时将其设置为起点-

origin <- as.POSIXct("09/01/2017 01:37:33", format = "%m/%d/%Y %H:%M:%S")
# "2017-09-01 01:37:33 EDT"
seconds <- 1:5

as.POSIXct(seconds, origin = origin)
[1] "2017-08-31 21:37:34 EDT" "2017-08-31 21:37:35 EDT" "2017-08-31 21:37:36 EDT" "2017-08-31 21:37:37 EDT" "2017-08-31 21:37:38 EDT"