Year_CW into Date in R

Question

我的数据集中有一个日历周(CW)的年份，需要转换为日期。不幸的是，我没有找到正确的功能在润滑包。将日期转换为CW很容易，反之则不然。

我还尝试了以下操作:

as.Date(x="2019_2", format="%Y_%U")
[1] "2019-02-05"
as.Date(x="2019_2", format="%Y_%W")
[1] "2019-02-05"

你知道怎么处理这个吗?

提前感谢!

Answer 1

试试这个:作为。日期(粘贴(2019、2、1,9 ="产生绯闻;),"Y % - % U - % u")

> as.Date(paste(2019, 2, 1, sep="-"), "%Y-%U-%u")
[1] "2019-01-14"

如果要引用x，也可以使用:

x = "2019_2">

> as.Date(paste((substring(x, 1, 4)), (sub(".*_(.*)", "\1\", x)), 1, sep="-"), "%Y-%U-%u")
[1] "2019-01-14"

Answer 2

使用lubridate::weeks()获取一周的开始日期。

week <- "2019_2"
date <- lubridate::ymd("2019-01-01") + lubridate::weeks(as.numeric(stringr::str_extract(week, pattern = "\d$")) - 1)
date
[1] "2019-01-08"