如何使用 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
我有以下数据框:
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