当前位置：文江博客话题详情

R 子集 XTS 工作日

发布于 2024-12-29 22:00:34 字数 45 浏览 0 评论 0原文

如何对 xts 对象进行子集化以仅包含工作日（周一至周五，周六和周日除外）？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

晚风撩人 2025-01-05 22:00:34

这就是我要做的：

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]

Here's what I'd do:

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")]

EDIT:
Joshua Ulrich in comments points out a better solution using .indexwday(), one of a family of built-in accessor functions for extracting pieces of the index of xts class objects. Also, like Dirk Eddelbuettel's solution, the following should be locale-independent:

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

回复收藏 0 原文

不必你懂 2025-01-05 22:00:34

通过计算给定日期的星期几，并进行子集化。在示例中，我使用 Date 类型，但转换为 POSIXlt 的工作方式与 POSIXct 日内时间戳相同。

> mydates <- Sys.Date() + 0:6
> mydates
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-04" 
+   "2012-02-05" "2012-02-06"
> we <- sapply(mydates, function(d) { as.POSIXlt(d)$wday}) %in% c(0, 6)
> we
[1] FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE
> mydates[ ! we ]
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-06"
>

这实际上不是一个 xts 问题，而是基本的日期处理问题。

By computing the day-of-the week given the date, and subsetting. In the example, I use a Date type but the cast to POSIXlt works the same way for POSIXct intra-day timestamps.

> mydates <- Sys.Date() + 0:6
> mydates
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-04" 
+   "2012-02-05" "2012-02-06"
> we <- sapply(mydates, function(d) { as.POSIXlt(d)$wday}) %in% c(0, 6)
> we
[1] FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE
> mydates[ ! we ]
[1] "2012-01-31" "2012-02-01" "2012-02-02" "2012-02-03" "2012-02-06"
>

This really is not an xts question but basic date handling.

回复收藏 0 原文

~没有更多了~