如何使用 base R 提取年和周数?

How to extract year and week number using base R?

我有以下数据框:

id   created_at                   year_weak
 1     2016-01-01T12:11:03.383Z    2016-01
 2     2016-01-04T12:11:03.383Z    2016-01
 3     2016-01-06T12:11:03.383Z    2016-01
 4     2016-01-11T12:11:03.383Z    2016-02
 5     2016-01-12T12:11:03.383Z    2016-02

目前我有以下使用 lubridate 包的代码:

paste(year(as.Date(df$created_at)),week(as.Date(df$created_at)),sep = "-")

我想用 base R 做同样的事情,我怎么能在 Base R 中做呢?

以下内容适用于基础 R 命令:

year <- format(as.Date(df$created_at)+2, "%Y")
week <- format(as.Date(df$created_at)+2, "%U")

paste(year,week,sep = "-")

注意:您必须添加 2 天,因为 2016 年 1 月 1 日是星期五,这会给您一周 0。在 format() 中,一周从星期日开始。

此致,
J_F