如何返回与 xts 中排序列表的每个成员关联的日期

Question

我有一个 xts 对象“foo”，其中包含在特定时期内股票股价价值的前 6 个最大负百分比变化。使用 sort(foo) 会生成一个按日期排序的列表，如下所示，但我想根据值对列表进行排序。

sort(coredata(foo)) 为我提供了我期望的列表，但返回的值没有关联的索引日期值，如下所示。我想要一个格式为以下的列表：

2008-11-07 -0.150
2008-11-06 -0.145

etc

我觉得 index() 和 which() 的某种组合可能有效，但无法产生任何有用的东西。任何指点都感激不尽。

sort(foo)

   [,1]
2008-10-08 -0.105
2008-10-16 -0.119
2008-10-27 -0.109
2008-11-06 -0.145
2008-11-07 -0.150
2008-12-12 -0.121

sort(coredata(foo))
[1] -0.150 -0.145 -0.121 -0.119 -0.109 -0.105

Answer 1

类似的东西会给你所需的顺序的日期：

 index(foo)[ order(coredata(foo)) ]

xts和zoo对象不喜欢乱序显示，所以我认为你需要将它们强制到一个不太“顺序”的类：

> foo3 <- as.data.frame(foo)
> foo3[order(foo3$V1), ]
[1] -0.150 -0.145 -0.121 -0.119 -0.109 -0.105
> foo3[order(foo3$V1), ,drop=FALSE]
               V1
2008-11-07 -0.150
2008-11-06 -0.145
2008-12-12 -0.121
2008-10-16 -0.119
2008-10-27 -0.109
2008-10-08 -0.105

Answer 2

正如 @DWin 指出的，索引必须是有序的（zoo 代表“Z 的有序对象”），因此您不能取消 xts/zoo 对象的排序。

您可以使用 fmt 参数来 coredata.xts（如?coredata.xts中所述）与drop结合以获得一个命名向量，然后您可以根据需要对其进行排序。

sort(drop(coredata(x,fmt=TRUE)))
# 2008-11-07 2008-11-06 2008-12-12 2008-10-16 2008-10-27 2008-10-08 
#     -0.150     -0.145     -0.121     -0.119     -0.109     -0.105

Answer 3

我认为 xts 的 print 方法强加了日期排序，因此您无法通过单独子集来解决此问题：比较 foo[1:2]和foo[2:1]。

为了得到你想要的，你可以尝试，

ord <- order(foo)
dat <- data.frame(x=coredata(foo)[ord])
rownames(dat) <- index(foo)[ord]

但是这不是是一个xts对象。