R 子集 XTS 工作日

Question

如何将 xts 对象子集以仅包含工作日(周一至周五，周六和周日除外)？

Answer 1

这是我要做的:

library(xts)
data(sample_matrix)
sample.xts <- as.xts(sample_matrix, descr='my new xts object')
x <-  sample.xts['2007']  
x[!weekdays(index(x)) %in% c("Saturday", "Sunday")]

编辑 :
Joshua Ulrich 在评论中指出了一个更好的解决方案，使用 .indexwday() ，用于提取 xts 的索引片段的一系列内置访问器函数之一。类对象。此外，像 Dirk Eddelbuettel 的解决方案一样，以下内容应该与语言环境无关:

x[.indexwday(x) %in% 1:5]