如何使用日期对象子集 xts 文件?

How to Subset xts file with date object?

我在这个问题上搜索了很长时间,但找不到答案。挑战在于找到一种方法来按日期对 xts 文件进行子集化,格式如下:

 dat <- xts(1:10, as.Date("2000-01-01")+1:10)
 date.1 <-as.Date("2000-01-05")
 dat.subset <-dat[date.1/]

这当然行不通,变体也行不通,例如:

dat.subset <-dat["date.1/"]

我怎样才能对 date.1 对象进行子集生成等同于:

dat.subset <-dat['2000-01-05/']
dat.subset <-dat[paste0(date.1, "/")]

这应该有效

require(xts)
dat <- xts(1:10, as.Date("2000-01-01")+1:10)
date.1 <-as.Date("2000-01-05")
dat[date.1,1] #The row name is date.1