Fiz o decompose de uma série temporal através do seguinte código:

    dados_ts2 <-  ts(dados$Contratos, start = 1, frequency = 12)
    componentes <- decompose(dados_ts2, type = "mult")
    plot(componentes)

E o resultado foi o seguinte:

[![inserir a descrição da imagem aqui][1]][1]

Dessa maneira, quero poder plotar apenas a sazonalidade e dar zoom nela.

Alguém sabe como faz?

  [1]: https://i.sstatic.net/0t9NV.png