如何使用日期对象子集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