有没有一种方法可以使用lubridate包来查找x年的x周的第一天?
例如,我有以下数据:某年的周数(例如,从1988年起的第33周),我想将其转换为数据,例如:日/月/年(例如,1988年8月15日)。
Missing_day <- c("33/1988", "37/1991", "37/1992",
"41/1994", "15/1997", "18/2001",
"50/2001", "16/2002", "35/2004",
"5/2012", "50/2012", "8/2013",
"36/2013", "51/2017")
谢谢
你可以附加工作日并将数据转换为日期。使用基数R,你可以执行以下操作:
as.Date(paste0('1/', Missing_day), '%u/%U/%Y')
# [1] "1988-08-15" "1991-09-16" "1992-09-14" "1994-10-10" "1997-04-14"
# [6] "2001-05-07" "2001-12-17" "2002-04-22" "2004-08-30" "2012-01-30"
#[11] "2012-12-10" "2013-02-25" "2013-09-09" "2017-12-18"