使用R计算特定月份中特定日期的数量

Question

我试图计算R内特定月份的星期六和星期日的数量。

因此，例如，如果您将例如2014年2月的月份输入到该函数中，它将在星期六返回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年1月和2月）：

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