stl code snippets in r

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