gpt4 book ai didi

r - 提取每个月的第一个星期一

转载 作者:行者123 更新时间:2023-12-03 18:14:35 24 4
gpt4 key购买 nike

如何从 2010-01-01 到 2015-12-31 提取每个月的第一个星期一?

最佳答案

我们可以使用 lubridate , wday测试这是否是星期一,和 day测试这是否是本月的第一周:

library(lubridate)
x <- seq(ymd("2010-01-01"),ymd("2015-12-31"),by="1 day")
x[wday(x,label = TRUE) == "Mon" & day(x) <= 7]

或在 base-r 中(@DavidArenburg 的评论)
x <- seq(as.Date("2010-01-01"), as.Date("2015-12-31"), by = "day")
# You need to adapt "Monday" to the equivalent in your locale
x[weekdays(x) == "Monday" & as.numeric(format(x, "%d")) <= 7]

输出(五个第一个结果)
[1] "2010-01-04 UTC" "2010-02-01 UTC" "2010-03-01 UTC" "2010-04-05 UTC" "2010-05-03 UTC" "2010-06-07 UTC"

关于r - 提取每个月的第一个星期一,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34577812/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com