修改 POSIXct 对象的时区而不更改显示

Question

我有一个POSIXct 对象，并且想更改它的tz 属性而不用R 来解释它（解释它意味着更改日期时间在屏幕上的显示方式）。

一些背景知识：我正在使用来自 S.Urbanek 的 fasttime 包，它可以非常快速地将字符串转换为 POSIXct。问题是字符串应该代表“GMT”中的日期时间，而我的数据不是这样。

我最终得到一个带有tz=GMT 的POSIXct 对象，如果我用

attr(datetime, "tzone") <- "Europe/Paris";
datetime  <- .POSIXct(datetime,tz="Europe/Paris"); 

那么它将被“显示”为GMT+2（基础值永远不会改变）。

编辑：这是一个例子

datetime=as.POSIXct("2011-01-01 12:32:23.234",tz="GMT")
attributes(datetime)
#$tzone
#[1] "GMT"
datetime
#[1] "2011-01-01 12:32:23.233 GMT"

如何在没有 R 的情况下更改此属性来解释它，也就是如何更改 tzone 并仍然将日期时间显示为 "2011-01-01 12:32:23.233" ？

编辑/解决方案，@GSee 的解决方案相当快，lubridate::force_tz 非常慢

datetime=rep(as.POSIXct("2011-01-01 12:32:23.234",tz="GMT"),1e5)
f <- function(x,tz) return(as.POSIXct(as.numeric(x), origin="1970-01-01", tz=tz))
> system.time(datetime2 <- f(datetime,"Europe/Paris"))
   user  system elapsed 
   0.01    0.00    0.02 
> system.time(datetime3 <- force_tz(datetime,"Europe/Paris"))
   user  system elapsed 
   5.94    0.02    5.98 
identical(datetime2,datetime3)
[1] TRUE

Answer 1

要更改POSIXct 变量的tz 属性，最好先转换为字符或数字，然后再转换回POSIXct。相反，您可以使用 lubridate 包的 force_tz 函数

library(lubridate)

datetime2 <- force_tz(datetime, tzone = "CET")
datetime2
attributes(datetime2)

Answer 2

已编辑：

我之前的解决方案是将字符值传递给origin（即origin="1970-01-01"）。这只适用于这里，因为现在 R-devel 中存在 been fixed 的错误 (#PR14973)。

origin 使用tz 调用的tz 参数被强制转换为POSIXct，而不是"GMT"，因为它被记录在案。行为已更改以匹配文档，在这种情况下，这意味着您必须为 origin 和 as.POSIXct 调用指定您的时区。

datetime
#[1] "2011-01-01 12:32:23.233 GMT"
as.POSIXct(as.numeric(datetime), origin=as.POSIXct("1970-01-01", tz="Europe/Paris"),
           tz="Europe/Paris")
#[1] "2011-01-01 12:32:23.233 CET"

这也适用于旧版本的 R。

Answer 3

lubridate 包的替代方法是通过字符类型之间的转换：

recastTimezone.POSIXct <- function(x, tz) return(
  as.POSIXct(as.character(x), origin = as.POSIXct("1970-01-01"), tz = tz))

（改编自 GSee 的回答）

不知道这是否有效，但它适用于夏令时的时区。

测试代码：

x <- as.POSIXct('2003-01-03 14:00:00', tz = 'Etc/UTC')
x
recastTimezone.POSIXct(x, tz = 'Australia/Melbourne')

输出：

[1] "2003-01-03 14:00:00 UTC"
[1] "2003-01-03 14:00:00 AEDT" # Nothing is changed apart from the time zone.

如果我将 as.character() 替换为 as.numeric()（正如 GSee 所做的那样），则输出：

[1] "2003-01-03 14:00:00 UTC"
[1] "2003-01-03 15:00:00 AEDT" # An hour is added.