如何使用日期對象對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