年月周表达式

Question

我有一个用特定表达式写的数据。 为了简化数据，这里是我做的例子：

df<-data.frame(date=c(2012034,2012044,2012051,2012063,2012074),
               math=c(100,100,23,46,78))

2012034表示 2012 年 3 月的第 4 周。 同样， 2012044表示 2012 年 4 月的第 4 周。 我试图使date的值表达某种顺序。 我之所以必须这样做是因为当我不将它们更改为时间表达式时，散点图的 x 轴看起来很奇怪。

我的目标是：在date列中找到最旧的日期并将其命名为 1。在这种情况下， 2012034应该是1 。 接下来，在date列中找到第二个最旧的日期，并计算该date之后经过了多少周。 date 中第二旧的date是2012044 。因此，在最旧日期2012034之后 5 周。 所以应该改成1+5=6。 所以，同样，我想给date编号，以表明距离最早的date已经过去了多少周

Answer 1

一种方法是同时指定星期几并在最后减去它，即

as.Date(paste0(df$date, '-1'), '%Y%m%U-%u') - 1
#[1] "2012-03-22" "2012-04-22" "2012-05-01" "2012-06-15" "2012-07-22"