R：更正R中日期的年份

Question

我有一個包含觀察數據的框架以及它們的製作日期。日期是從csv文件中讀取的，但只包括月份和日期。 R假設他們都是從2016年開始的。我知道日期從大多數到最近都是按順序排列的，那麼我如何才能在正確的年份添加？

輸入按從大到小的順序排列。

Input   Output 
1/1    1/1/2016 
12/1    12/1/2015 
11/1    11/1/2015 
1/1    1/1/2015 
12/1    12/1/2014 
1/1    1/1/2014 
12/1    12/1/2013 

謝謝你的時間！

Answer 1

如果數據按照OP的帖子中顯示的順序排列，我們可以使用sub從最初的vector（'v1'）中提取月份部分，轉換爲數字，得到相鄰元素的差異，檢查它是否更大比0,cumsum邏輯vector，使用該分組索引來傳遞年份值，最後是paste它與初始向量。

v2 <- paste(v1, c(2016:2013)[cumsum(c(TRUE, 
      diff(as.numeric(sub("/.*", "", v1))) > 0))], sep="/") 

如果我們需要轉換爲「日期」類，使用as.Date用正確的format。

as.Date(v2, "%m/%d/%Y") 
#[1] "2016-01-01" "2015-12-01" "2015-11-01" "2015-01-01" "2014-12-01" 
#[6] "2014-01-01" "2013-12-01"