在R中提取周数、月和年的自定义计算，无需手动干预

如何提取自定义日历后面的周数、周开始日期、月和年？
例如
2016年第1财政周从2015-12-27开始，到2016-01-2结束（太阳周六）
2016财年第1个月从2015-12-27开始，到2016-1-23结束
2016财年从2015年12月27日开始，至2016年12月31日结束

我的数据集已包含格式为y-m-d的“日期”列。我希望得到一个一次性代码，该代码将说明所有年份（20162017201182019..）和日期，而不考虑数据集中的日期范围

我尝试使用下面的代码，但由于数据集中的第一个日期范围在星期一（2016-04-04）开始，因此无法使用。我是R的初学者，非常感谢您的指导

require(lubridate)  
DropGTRow$FW <- as.numeric(strftime(DropGTRow$Date, format = "%U")) + 1  
DropGTRow$FY <- as.numeric(strftime(DropGTRow$Date, format = "%Y"))  
DropGTRow$FM <- as.numeric(strftime(DropGTRow$Date, format = "%m"))  
DropGTRow$FW_Date <- as.numeric(strftime(DropGTRow$Date, format="%m/%d/%y"))  
DropGTRow$Weekday <- weekdays(DropGTRow$Date)

---

使用

dput（）

添加一些示例代码…嗨，Martin-抱歉，我以前没有使用过dput（）-您是在寻找示例数据集还是我在问题中包含的lubridate代码？数据集从2016-04-04开始有正常的日历日期，我所需要的是计算周、月和年的新维度。谢谢你的帮助<代码>dput（head（DropGTRow））谢谢…作为问题的一部分更新。这有用吗？我们越来越近了；）这基本上就是关于

Date

列的，对吗？只需将您的数据子集到与解决问题相关的列中，并将该数据添加到您的问题中。目前只有一行。

Date        FW  FW_Date    FM   FY  
4/4/2016    15  4/3/2016    4   2016  
4/5/2016    15  4/3/2016    4   2016
4/6/2016    15  4/3/2016    4   2016
4/7/2016    15  4/3/2016    4   2016
4/8/2016    15  4/3/2016    4   2016
4/9/2016    15  4/3/2016    4   2016
4/10/2016   16  4/10/2016   4   2016
4/11/2016   16  4/10/2016   4   2016
4/12/2016   16  4/10/2016   4   2016
4/13/2016   16  4/10/2016   4   2016
4/14/2016   16  4/10/2016   4   2016
4/15/2016   16  4/10/2016   4   2016
4/16/2016   16  4/10/2016   4   2016
4/17/2016   17  4/17/2016   4   2016
4/18/2016   17  4/17/2016   4   2016
4/19/2016   17  4/17/2016   4   2016
4/20/2016   17  4/17/2016   4   2016
4/24/2016   18  4/24/2016   5   2016
12/27/2015  1   12/27/2015  1   2016
12/28/2015  1   12/27/2015  1   2016
12/29/2015  1   12/27/2015  1   2016
12/30/2015  1   12/27/2015  1   2016
12/31/2015  1   12/27/2015  1   2016
1/1/2016    1   12/27/2015  1   2016
1/2/2016    1   12/27/2015  1   2016
1/3/2016    2   1/3/2016    1   2016
1/4/2016    2   1/3/2016    1   2016