rbind.zoo 似乎没有创建一致的动物园对象

Question

我想将两个动物园对象 rbind.zoo 在一起。当我测试时，我遇到了以下问题（？）...

注意：下面是一个示例，除了说明之外显然没有任何意义。 我有一个动物园对象，称之为“X”。我想将其分成两部分，然后将它们 rbind.zoo 在一起。当我将它与原始对象进行比较时， all.equal 会给出差异。

看来“$class”属性不同，但我不明白如何或为什么不同。如果我制作了这些 xts 对象，那么 all.equal 就会按预期工作。

即 .....

X.date <- as.POSIXct(paste("2003-", rep(1:4, 4:1), 
                     "-", sample(1:28, 10, replace = TRUE), sep = ""))

X <- zoo(matrix(rnorm(24), ncol = 2), X.date)

a <- X[c(1:3), ]      # first 3 elements

b <- X[c(4:6), ]      # second 3 elements

c <- rbind.zoo(a, b)  # rbind into an object of 6 elements

d <- X[c(1:6), ]      # all 6 elements

all.equal(c, d)       # are they equal?

~~~~

all.equal 给了我以下区别：

“属性：<组件 3：属性：<长度不匹配：前 1 个组件的比较>>”

Answer 1

R 对待 POSIXct 对象的 tzone 属性的方式不一致。动物园与此无关。即使根本不使用动物园，你也可以想出这样的例子。原始代码中的 c 和 d 实际上是相等的，除了 tzone 属性之外。

如果删除 tzone 属性，则 c 和 d 将相等：

attr(X.date, "tzone") <- NULL  ##### add after defining X.date

对于 Zoo，因为它支持几乎任何时间类，如果不需要时区，您可以考虑使用不同的时间类。如果您不需要时区，那么它只会让事情变得毫无理由地复杂化。例如，在此处的示例中，我们可以使用 Date 类。

请阅读 R 新闻 4/1 了解更多信息。

Answer 2

是的，您可能已经发现了属性处理方面的错误。另一方面，谁在乎呢？ c 和 d 实际上是相等的：

R> c - d

2003-01-07 0 0
2003-01-15 0 0
2003-01-17 0 0
2003-01-18 0 0
2003-02-17 0 0
2003-02-22 0 0
R> 

检查对象不会透露任何信息：

R> str(c)
‘zoo’ series from 2003-01-07 to 2003-02-22
  Data: num [1:6, 1:2] 0.79 -0.731 1.574 -0.694 0.358 ...
  Index:  POSIXct[1:6], format: "2003-01-07" "2003-01-15" 
      "2003-01-17" "2003-01-18" "2003-02-17" "2003-02-22"
R> str(d)
‘zoo’ series from 2003-01-07 to 2003-02-22
  Data: num [1:6, 1:2] 0.79 -0.731 1.574 -0.694 0.358 ...
  Index:  POSIXct[1:6], format: "2003-01-07" "2003-01-15" 
      "2003-01-17" "2003-01-18" "2003-02-17" "2003-02-22"

我建议您向 zoo 的维护者发送一封礼貌的邮件来说明情况。