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