Question

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

例如2013年12月：（6/12 / 13,13 / 12 / 13,20 / 12 / 13,27 / 12/13）

感谢您的帮助。

Answer 1

这是一种方式。

d <- as.Date(1:365, origin = "2013-1-1")
d[strftime(d,"%A") == "Friday"]

或者，对于为任意数量的星期五生成数据，这将是一种更有效的方法：

wk1 <- as.Date(seq(1:7), origin = "2013-1-1") # choose start date & make 7 consecutive days
wk1[weekdays(wk1) == "Friday"]                # find Friday in the sequence of 7 days

seq.Date(wk1[weekdays(wk1) == "Friday"], length.out=50, by=7) # use it to generate fridays

by=7说到下周五。 length.out控制要生成的星期五数。也可以使用to来控制生成星期五的数量（例如，使用to=as.Date("2013-12-31")代替length.out）。

Answer 2

我确信有一种更简单的方法，但你可以很容易地蛮力：

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

Answer 3

可能有更优雅的方法可以做到这一点，但这里有一种生成星期五矢量的方法，给出任何一年。

year = 2007
st <- as.POSIXlt(paste0(year, "/1/01"))
en <- as.Date(paste0(year, "/12/31"))

#get to the next Friday
skip_ahead <- 5 - st$wday
if(st$wday == 6) skip_ahead <- 6  #for Saturdays, skip 6 days ahead.

first.friday <- as.Date(st) + skip_ahead
dates <- seq(first.friday, to=en, by ="7 days")

dates
#[1] "2007-01-05" "2007-01-12" "2007-01-19" "2007-01-26"
# [5] "2007-02-02" "2007-02-09" "2007-02-16" "2007-02-23"
# [9] "2007-03-02" "2007-03-09" "2007-03-16" "2007-03-23"

Answer 4

输入一年作为输入并仅返回星期五......

getFridays <- function(year) {      
  dates <- seq(as.Date(paste0(year,"-01-01")),as.Date(paste0(year,"-12-31")), by = "day")
  dates[weekdays(dates) == "Friday"]      
}

示例：

> getFridays(2000)
 [1] "2000-01-07" "2000-01-14" "2000-01-21" "2000-01-28" "2000-02-04" "2000-02-11" "2000-02-18" "2000-02-25" "2000-03-03" "2000-03-10" "2000-03-17" "2000-03-24" "2000-03-31"
[14] "2000-04-07" "2000-04-14" "2000-04-21" "2000-04-28" "2000-05-05" "2000-05-12" "2000-05-19" "2000-05-26" "2000-06-02" "2000-06-09" "2000-06-16" "2000-06-23" "2000-06-30"
[27] "2000-07-07" "2000-07-14" "2000-07-21" "2000-07-28" "2000-08-04" "2000-08-11" "2000-08-18" "2000-08-25" "2000-09-01" "2000-09-08" "2000-09-15" "2000-09-22" "2000-09-29"
[40] "2000-10-06" "2000-10-13" "2000-10-20" "2000-10-27" "2000-11-03" "2000-11-10" "2000-11-17" "2000-11-24" "2000-12-01" "2000-12-08" "2000-12-15" "2000-12-22" "2000-12-29"

Answer 5

我认为这将是最有效的方式，也将在整个2013年的整个星期五回归。

FirstWeek <-   seq(as.Date("2013/1/1"), as.Date("2013/1/7"), "days")
seq(
  FirstWeek[weekdays(FirstWeek) == "Friday"],
  as.Date("2013/12/31"),
  by = "week"
)

R：生成该年的星期五日期的数据框

5 个答案: