plot_cycle(x, layout = c(x$pars$n.p, 1), col = "#0080ff", xlab = "Time", ylab = "Seasonal", panel = function(x, y, ...) { lattice::panel.segments(x, rep(.midmean(y), length(x)), x, y, col = col) }, ...)
"stlplus"
.xyplot()
."trellis"
.
stlplus