我正在尝试从我的预测中获取具有可读日期的输出。 日期目前没有列,并且采用year.decimal 格式。
我的输出如下所示:
Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
2017.154 33 24.42807 41.57193 19.89037 46.10963
2017.173 31 22.42807 39.57193 17.89037 44.10963
2017.192 32 23.42807 40.57193 18.89037 45.10963
2017.212 30 21.42807 38.57193 16.89037 43.10963
2017.231 39 30.42807 47.57193 25.89037 52.10963
我希望它看起来像这样:
Dates Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
2017-02-26 33 24.42807 41.57193 19.89037 46.10963
2017-03-05 31 22.42807 39.57193 17.89037 44.10963
2017-03-12 32 23.42807 40.57193 18.89037 45.10963
2017-03-19 30 21.42807 38.57193 16.89037 43.10963
2017-03-26 39 30.42807 47.57193 25.89037 52.10963
如何获取一行中的日期,以便将日期小数更改为正常日期?
最佳答案
使用lubridate
包试试这个:
library(lubridate)
date<-format(date_decimal(as.numeric(row.names(as.data.frame(forecasting_output)))),"%Y-%m-%d")
date
[1] "2017-08-23" "2017-08-25" "2017-08-25"
之后就可以轻松绑定(bind)这两个信息了:
cbind(date,as.data.frame(forecasting_output))
date Point Forecast Lo 80 Hi 80 Lo 95 Hi 95
2017.6438 2017-08-23 722.5832 405.3363 1039.830 237.3959 1207.770
2017.6466 2017-08-25 953.0771 635.8292 1270.325 467.8884 1438.266
2017.6493 2017-08-25 1063.1212 745.8714 1380.371 577.9295 1548.313
关于r - 如何在预测输出中创建日期列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48986882/