ggts_decomp: Generate Time Series Decompression ggplot facet

In WoVollmer/pkgTS: Time Series functions

Description

Generates from stlplus() output list components $Data and $time a ggplot facet_wrap output over time for "raw" (=original data), "seasonal", "trend" and "remainder" components.

Usage

ggts_decomp(data, ...)

Arguments

data	stlplus() output list.
...	Other arguments.

Value

plot object of mode 'plot

See Also

uts_stlplus_as_tibble and stlplus::stlplus

Examples

require(stlplus)
require(fpp3)
economics_tsbl <- ggplot2::economics %>%
 mutate(Year_Month = yearmonth(date)) %>%
 as_tsibble(index = Year_Month)
economics_tsbl %>% has_gaps() # check for time series gaps, fill with fill_gaps()
start_ts <- c(year(min(as.Date(economics_tsbl$Year_Month))),
  month(min(as.Date(economics_tsbl$Year_Month))))

# convert to time-series object
economics_ts <- ts(economics_tsbl$uempmed, start = start_ts, frequency = 12)
# convert to tibble object
economics_stlplus <- stlplus(economics_ts, s.window = 27, t.window = 1201)
#
ggts_decomp(uts_stlplus_as_tibble(economics_stlplus))

economics_stlplus <- stlplus(economics_ts, s.window = "per", t.window = 1201)
ggts_decomp(uts_stlplus_as_tibble(economics_stlplus))

WoVollmer/pkgTS documentation built on June 2, 2021, 4:02 a.m.