R 以xts格式筛选日期索引

我从FRED那里下载了一些费率，我如何过滤索引日期以便只保留“2010”之后的日期

它是一个xts对象，然后我们从索引中提取年份，以创建用于子集划分的逻辑向量

library(xts)
xt1[lubridate::year(index(xt1)) >= 2010]

或使用%>%的子集

数据

---

xts接受/表示法如下所示：

library(quantmod)
getSymbols("DGS3MO", src = "FRED") # generate test data

DGS3MO["2010/"]
##            DGS3MO
## 2010-01-01     NA
## 2010-01-04   0.08
## 2010-01-05   0.07
## 2010-01-06   0.06
## 2010-01-07   0.05
## 2010-01-08   0.05
## ...snip...

或者，xts有一个窗口方法：

window(DGS3MO, start = "2010-01-01")
##            DGS3MO
## 2010-01-01     NA
## 2010-01-04   0.08
## 2010-01-05   0.07
## 2010-01-06   0.06
## 2010-01-07   0.05
## 2010-01-08   0.05
## ...snip...

---

我的问题是一般性的。我只是想知道是否有一种方法可以过滤R中的索引列。这取决于数据的结构可能是yourobj[yearindexyourobj>=2010]，例如，在本例中是一个“xts”“zoo”。有什么方法可以对这条线进行管道输送吗？

library(quantmod)
getSymbols("DGS3MO", src = "FRED") # generate test data

DGS3MO["2010/"]
##            DGS3MO
## 2010-01-01     NA
## 2010-01-04   0.08
## 2010-01-05   0.07
## 2010-01-06   0.06
## 2010-01-07   0.05
## 2010-01-08   0.05
## ...snip...

window(DGS3MO, start = "2010-01-01")
##            DGS3MO
## 2010-01-01     NA
## 2010-01-04   0.08
## 2010-01-05   0.07
## 2010-01-06   0.06
## 2010-01-07   0.05
## 2010-01-08   0.05
## ...snip...