根据值从 xts 对象中提取日期答案

【问题标题】：Extracting Dates from xts object based on vaule根据值从 xts 对象中提取日期
【发布时间】：2015-03-04 05:17:03
【问题描述】：

我想提取 xts 对象出现值变化的日期，即 A 的值从 1 变为 0 或从 0 变为 1 的日期：

require(xts)
A <- xts(c(1,1,0,0,1,1,0,0,1,1), Sys.Date()-10:1)
colnames(A) <- c("A")

> A
           A
2014-12-27 1
2014-12-28 1
2014-12-29 0
2014-12-30 0
2014-12-31 1
2015-01-01 1
2015-01-02 0
2015-01-03 0
2015-01-04 1
2015-01-05 1

想要的结果是这样的

> from.one.to.zero
[1] "2014-12-29" "2015-01-02"

> from.zero.to.one
[1] "2014-12-31" "2015-01-04"

【问题讨论】：

标签： r date xts zoo

【解决方案1】：

你可以试试

index(A[diff(A)<0])
#[1] "2014-12-31" "2015-01-04"

index(A[diff(A)==1])
#[1] "2014-12-29" "2015-01-02"

【讨论】：