R:生成年度星期五日期的数据框

Question

这个问题在这里已经有了答案:





Get Dates of a Certain Weekday from a Year in R

(3 个回答)


7年前关闭。




我想生成一个包含全年所有星期五日期的数据框。
有没有一种简单的方法可以做到这一点？

例如 2013 年 12 月:(6/12/13,13/12/13,20/12/13,27/12/13)

感谢您的帮助。

Answer 1

我确信有一种更简单的方法，但你可以很容易地暴力破解它:

dates <- seq.Date(as.Date("2013-01-01"),as.Date("2013-12-31"),by="1 day")

dates[weekdays(dates)=="Friday"]
dates[format(dates,"%w")==5]

以@Frank 的出色工作为基础，您可以找到两个日期之间的所有特定工作日，如下所示:

pick.wkday <- function(selday,start,end) {
  fwd.7 <- start + 0:6
  first.day <- fwd.7[as.numeric(format(fwd.7,"%w"))==selday]
  seq.Date(first.day,end,by="week")
}

start和 end需要 Date对象，以及 selday是您想要的星期几(0-6 代表周日至周六)。

即 - 对于当前查询:

pick.wkday(5,as.Date("2013-01-01"),as.Date("2013-12-31"))