7

我熟悉 xts 子集化功能。但是，我找不到一种优雅的方法来对参数化的日期范围进行子集化。像这样的东西：

times = c(as.POSIXct("2012-11-03 09:45:00 IST"),
          as.POSIXct("2012-11-05 09:45:00 IST"))

#create an xts object:
xts.obj = xts(c(1,2),order.by = times)

#filter with these dates:
start.date = as.POSIXct("2012-11-03")
end.date = as.POSIXct("2012-11-04")

#instead of xts["2012-11-03"/"2012-11-04"], do something like this:
xts[start.date:end.date]

有人知道吗？谢谢！

4

4 回答 4

9

start.date您可以将and对象粘贴在一起，用orend.date分隔，然后将其用于子集。"::""/"

R> xts.obj[paste(start.date,end.date,sep="::")]
                    [,1]
2012-11-03 09:45:00    1
于 2012-12-31T13:25:15.220 回答
2

的帮助下[.xts {xts}

由于 xts 在内部使用所有用户级索引类的 POSIXct 时间表示，因此最快的 timeBased 子集将始终来自 POSIXct 对象，而与原始对象的 indexClass 无关。

所以你可以像这样子集 timeBased ：

xts.obj[seq(start.date,end.date,by=60)]
                    [,1]
2012-11-03 09:45:00    1
于 2012-12-31T13:18:49.983 回答
1

对于那些绞尽脑汁为非 Posix 做这件事的人。特别是对于基于季度的数据，即 2001 年第二季度至 2006 年第三季度。

我使用了一个简单而优雅的解决方案：

library(xts)

starting.quarter<-"200101"
ending.quarter<-"201702"

oil_price_by_qtr<-oil_price_by_qtr[paste(starting.quarter,ending.quarter,sep="/")]

这将从 2001 年第一季度到 2017 年第二季度对 XTS 对象进行子集化。

愿这能帮助其他一些可怜的灵魂避免失去 2 个小时的生命。

于 2017-05-15T04:31:24.260 回答
0

我只需要做同样的事情。这是我的解决方案，基于原始示例。

library(xts)

times = c(as.POSIXct("2012-11-03 09:45:00 IST"),
          as.POSIXct("2012-11-05 09:45:00 IST"))

#create an xts object:
xts.obj = xts(c(1,2),order.by = times)

#filter with these dates:
start.date = as.POSIXct("2012-11-03")
end.date = as.POSIXct("2012-11-04")

# By using an index that is the logical AND of two vectors
xts.obj[start.date <= index(xts.obj) & index(xts.obj) <= end.date]
于 2015-12-14T11:38:29.380 回答