如何在xts中將數字年份月份轉換爲年份 - 月份 - 日期日期格式？

Question

我想將df轉換爲xts與年終日期日期索引（即1989-12-31）。我搜索了網頁，但沒有答案。感謝並感謝您的幫助。

df <- read.table(textConnection(" 
date a  b  c  d 
198912 29.46 13.47 32.52 22.06 
199001 36.35 17.30 38.14 24.98 
199002 33.72 15.57 38.14 23.61 
199003 30.76 14.01 34.74 21.73 
"),header=T) 

Answer 1

而對於笑，這裏是一個基R法，這是公認的非常難看：

Reduce(c, 
lapply(
    as.Date(paste0("1-",as.character(df$date)),format="%d-%Y%m"), 
    function(x) seq.Date(x,length=2,by="1 month")[2] - 1 
) 
) 

[1] "1989-12-31" "1990-01-31" "1990-02-28" "1990-03-31" 

Answer 2

使用yearmon類，然後從as.Date.yearmonhelp('yearmon')引述：

as.Date.yearmon和as.yearmon.yearqtr每個具有「壓裂」的可選的第二個參數，它是一個數字介於0和1之間（包括0和1），表示結果所代表的週期的一部分。默認值是0，表示期間的開始。

as.Date(as.yearmon(as.character(df$date), format = '%Y%m'), frac=1) 
## [1] "1989-12-31" "1990-01-31" "1990-02-28" "1990-03-31"