Warm tip: This article is reproduced from serverfault.com, please click

r-查找x年的x周的第一天

(r - Find the first day of the x week of the x year)

发布于 2020-11-29 01:06:08

有没有一种方法可以使用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")

谢谢

Questioner
Ian.T
Viewed
0
Ronak Shah 2020-11-29 09:11:44

你可以附加工作日并将数据转换为日期。使用基数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"