基於R計算在特定月份的特定天數

Question

我想指望週六和週日則的數量在一個特定的一個月內R.

因此，舉例來說，如果你輸入的月份，如二月-2014進入功能，它將返回4週六和週日4。但是，如果您輸入2015年1月份，週六將返回5，週日則返回4。

任何想法？

Answer 1

您可以使用lubridate爲此。這是一個簡單的例子。你必須通過它實際日期（不只是幾個月，雖然）：

library("lubridate") 
weekend_days <- function(x) { 
    x <- as.Date(x) 
    d <- days_in_month(x) 
    d <- x + (0:(d-1)) 
    sum(wday(d) %in% c(1,7)) 
} 

一些例子（一月和2012年2月）：

weekend_days("2012-01-01") 
# [1] 9 
weekend_days("2012-02-01") 
# [1] 8