Veja a ajuda para decompose
: ela retorna uma lista com os elementos separados. Como não postou uma amostra dos seus dados, vou usar de exemplo o dataset AirPassengers
, incluso no R:
componentes <- decompose(AirPassengers, type = "mult")
str(componentes)
#> List of 6
#> $ x : Time-Series [1:144] from 1949 to 1961: 112 118 132 129 121 135 148 148 136 119 ...
#> $ seasonal: Time-Series [1:144] from 1949 to 1961: 0.91 0.884 1.007 0.976 0.981 ...
#> $ trend : Time-Series [1:144] from 1949 to 1961: NA NA NA NA NA ...
#> $ random : Time-Series [1:144] from 1949 to 1961: NA NA NA NA NA ...
#> $ figure : num [1:12] 0.91 0.884 1.007 0.976 0.981 ...
#> $ type : chr "multiplicative"
#> - attr(*, "class")= chr "decomposed.ts"
Para plotar apenas o componente sazonal, indique ele para plot
. Para dar zoom, pode usar as opções xlim
e/ou ylim
:
plot(componentes$seasonal, xlim = c(1952, 1956), ylim = c(.9, 1.1))
plot(componentes$seasonal )
faz o que você precisa