ETSモデルのちょうど季節成分をプロットする - R

Question

これはおそらく簡単な質問ですが、私のRスキルはまだ学習段階にあります。私はETS時系列モデルで季節成分のプロットを取得しようとしており、x軸に月を表示したいと考えています。下のコードは、次のグラフを生成します。私が望むのは、最後のセクション（シーズン）をとり、x軸に年だけでなく月を示す単一のグラフにすることです。

library(datasets) 
fit <- ets(AirPassengers) 
plot(fit) 

私はフィット、オブジェクトの右側のコンポーネントを見つけることを試みたが、私はそれを単離するのに失敗しました。

Answer 1

fit$states[,"s1"]を見てしたいことは、今シーズンのts.dataです。パッケージxtsは日付の書式に役立ちます。答えを

library(datasets); library(xts); library(forecast) 

fit <- ets(AirPassengers) 
season <- fit$states[,"s1"] 

plot(as.xts(season), major.format = "%Y-%m", auto.grid=F) 

Answer 2

が、これは試してみてください：

library(forecast) 
fit <- ets(AirPassengers) 
plot.2=function (x, ...){ 
    if (!is.null(x$lambda)) 
\t y <- BoxCox(x$x, x$lambda) 
    else y <- x$x 
    plot(cbind(season = x$states[,"s1"]), main = paste("Decomposition by", x$method, 
      "method"), ...) 
} 

plot.2(fit) 

あなたはplot.ets