Question

我有时间的传播：

library(lubridate)
> test
[1] "2018-01-13 22:23:00 UTC" "2018-01-13 22:23:00 UTC" "2018-01-13 22:23:00 UTC" "2018-01-13 22:23:00 UTC"
[5] "2018-01-13 22:23:00 UTC" "2018-01-13 22:23:00 UTC"

所有类POSIX：

> class(test)
[1] "POSIXct" "POSIXt"

但是当我强制转换时区时：

test <- format(force_tz(test, tz = 'UTC'), tz ='America/Los_Angeles', usetz=TRUE)

这也会将时间向量强制转换为无法转换回POSIX的字符类。

> class(test)
[1] "character"
as.POSIXct(test, format = "%Y-%m-%d HH:MM:SS")
[1] NA NA NA NA NA NA

这里可能存在什么问题以及更改时区和保留POSIX类的解决方法是什么？

Answer 1

您应该只使用force_tz而不通过format运行结果。 force_tz执行时区转换，然后format将其转换为字符：

converted = force_tz(test, tz ='America/Los_Angeles')

输出：

> converted
[1] "2018-01-13 22:23:00 PST" "2018-01-13 22:23:00 PST" 
    "2018-01-13 22:23:00 PST" "2018-01-13 22:23:00 PST"
> class(converted)
[1] "POSIXct" "POSIXt"

如果您需要转换时区（不是force_tz所做的那样），请使用with_tz：

> with_tz(test, tz = 'America/Los_Angeles')
[1] "2018-01-13 14:23:00 PST" "2018-01-13 14:23:00 PST" 
    "2018-01-13 14:23:00 PST" "2018-01-13 14:23:00 PST"

Answer 2

使用lubridate

的

with_tz回答

ss <- strptime(test,format = "%Y-%m-%d %H:%M:%S", tz = 'UCT')
lubridate::with_tz(ss, "America/Los_Angeles")

输出：

> test <- "2018-01-13 22:23:00 UTC"
> ss <- strptime(test,format = "%Y-%m-%d %H:%M:%S", tz = 'UCT')
> lubridate::with_tz(ss, "America/Los_Angeles")
[1] "2018-01-13 14:23:00 PST"

请注意我使用了strptime，因为我的输入是文本，但在您的情况下，您只需使用with_tz

强制时区后将时间转换为POSIX

2 个答案: