年月周表達式

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"