如何使用日期对象对xts文件进行子集？

Question

我在这个问题上搜索了很长时间，但找不到答案。我们面临的挑战是找到一种方式，通过日期的形式子集的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/'] 

Answer 1

dat.subset <-dat[paste0(date.1, "/")] 

Answer 2

这应该工作

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