R中的一個月中的週末

Question

我正在爲我的Arima模型準備一個xreg系列，我將在一個月內使用它的一些週末。我可以找到一年的結果，但是當它超過一年時，通常是，我找不到方法。
這是我到目前爲止所做的。

dates <- seq(from=as.Date("2001-01-01"), to=as.Date("2010-12-31"), by = "day") 
wd <- weekdays(dates) 
aylar <- months(dates[which(wd == "Sunday" | wd == "Satuday")]) 

table(aylar) 

我要的是收集所有個月的週末不是僅基於個月，但也多年什麼。這樣我就可以和我的原始預測系列擁有相同的系列了。

Answer 1

這裏是我的解決方案：

library(chron) 
library(dplyr) 
library(lubridate) 

month <- months(dates[chron::is.weekend(dates)]) 
day <- dates[chron::is.weekend(dates)] 

# create data.frame 
df <- data.frame(date = day, month = month, year = chron::years(day)) 

df %>% group_by(year, month) %>% summarize(weekends = floor(n()/2)) 

# year month weekends 
# <dbl> <fctr> <dbl> 
#1 2001 April  4 
#2 2001 August  4 
#3 2001 Dezember  5 
#4 2001 Februar  4 
#5 2001 Januar  4 
#6 2001  Juli  4 
#7 2001  Juni  4 
#8 2001  Mai  4 
#9 2001  März  4 
#10 2001 November  4 
## ... with 110 more rows 

我希望這是對你的工作的起點。