decompose a time series using the stl model and plot the decokmposition plot using autoplot in r

main.r
#load required packages
library(forecast)

#load data 
data <- AirPassengers

#decompose time series using STL
decompose <- stl(data, s.window="periodic")

#plot decomposition using autoplot
autoplot(decompose)
211 chars
12 lines