如何使用基数R提取年和周数

Question

我有以下数据框架:

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

目前我有以下代码使用润滑包:

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

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

Answer 1

以下命令适用于base 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