[R預測與as.POSIXlt/CT

Question

好日子

我在這裏讀的職位之一是「功能預測:: plot.forecast不是設計與axis.Date或axis.POSIXct（使用未在包預測中使用）「。這可以在這裏看到：custom axis labels plotting a forecast in R

儘管如此，他們設法使用預測包和一些代碼來獲得正確的軸標籤。但是，這個例子是針對季度數據的。此外，使用「as.POSIXlt」這裏這個例子是每週數據：Forecasting time series data

我試過的代碼打，但我不能讓它爲月的數據。所以我的軸標籤仍然是錯誤的。我很難過。請你幫助建議我如何使軸標籤正確反映使用預測軟件包？

例

library(forecast) 
headcount<-c(2475,2468,2452,2464,2500,2548,2536,2565,2590,2608,2625,2663) 
date<-c("2013/01/31","2013/02/28","2013/03/31","2013/04/30","2013/05/31","2013/06/30", 
"2013/07/31","2013/08/31","2013/09/30","2013/10/31","2013/11/30","2013/12/31") 

x<-data.frame(headcount,date) 
t<-ts(x$headcount,start=c(2013,1),end=c(2013,12),frequency=12) 
fit<-forecast(t,h=12) 
plot(forecast(fit)) 

通過這樣做，軸標籤出來爲2013.0，2013.5，2014.5

我知道這只是一年的數據。我在如何解決軸標籤的月度數據只是感興趣，

親切的問候 d

Answer 1

下面是使用提供

plot(forecast(fit), axes = FALSE) 
a <- seq(as.Date(date[1]) + 1, by = "months", length = length(date) + 11) 
axis(1, at = as.numeric(a)/365.3 + 1970, labels = format(a, format = "%m/%Y"), cex.axis = 0.9) 
axis(2, cex.axis = 0.9)