R:获取一个季度的周数

Question

我想在 R 中获取一个季度的周数。 周数从每月的第一天开始，下周从星期日开始。

Date      WeekNum
1/1/2019  1
1/7/2019  2
2/7/2019  6
4/22/2019 4
5/1/2019  5
10/1/2019 1

过去，我已经在 excel 中完成了它，这要归功于一个季度的周数 但现在我想在 R 中尝试这个。

Answer 1

zoo包可能对您最有帮助。

library(zoo)
(as.integer(test$Date - as.Date(as.yearqtr(test$Date))) + match(weekdays(test$Date), weekdays(as.Date(3:9))) - 1L) %/% 7L + 1L