当我向动物园对象添加新系列时，为什么时区属性会丢失

问题描述

当我向其添加新的时间序列时，我的动物园对象的时区属性将被剥夺。 例如，

library(zoo)
ZooObject=zoo(data.frame(a=1:5),seq(as.POSIXct("2014-01-01 00:00:01",tz="UTC"),as.POSIXct("2014-01-01 00:00:05",by=1)
)
attr(time(ZooObject),'tzone')
#"UTC"
ZooObject$b <- 2
attr(time(ZooObject),'tzone')
#NULL

创建Zoo对象后，可以正确报告time zone属性，但是在添加第二个系列后，时区就消失了（默认为语言环境）。

这给我带来了麻烦，因为后来我将每小时的数据汇总到每天，因此保留正确的时区很重要。 我的解决方案是继续重新设置时区属性。

attr(time(ZooObject),'tzone') <- "UTC"

这类似于merge.zoo removes time zone

有没有办法阻止时区被剥夺？

解决方法

避免这种行为的一种简单方法是使用xts而不是zoo。如果需要，可以在完成所需的转换后将对象重新分类为zoo。

library(xts)
library(zoo)

ZooObject=zoo(data.frame(a=1:5),seq(as.POSIXct("2014-01-01 00:00:01",tz="UTC"),as.POSIXct("2014-01-01 00:00:05",by=1)
)

test <- as.xts(ZooObject)

attr(time(test),'tzone')
#> [1] "UTC"

test$b <- 2
attr(time(test),'tzone')
#> [1] "UTC"

test2 <- as.zoo(test)
attr(time(test2),'tzone')
#> [1] "UTC"