stat_rollapplyr {ggseas} | R Documentation |
Rolling summary Stat
Description
Calculates a rolling summary, usually rolling average, on the fly for ggplot2
Usage
stat_rollapplyr(mapping = NULL, data = NULL, geom = "line",
position = "identity", show.legend = NA, inherit.aes = TRUE, width,
align = "right", FUN = mean, index.ref = NULL, index.basis = 100, ...)
Arguments
mapping |
Set of aesthetic mappings created by |
data |
The data to be displayed in this layer. There are three options: If A A |
geom |
The geometric object to use display the data |
position |
Position adjustment, either as a string, or the result of a call to a position adjustment function. |
show.legend |
logical. Should this layer be included in the legends?
|
inherit.aes |
If |
width |
The width to which the rolling version of FUN is applied |
align |
specifies whether the transformed series should be left or right-aligned or centered compared to the rolling window of observations |
FUN |
summary function, usually some kind of average, to apply on a rolling basis |
index.ref |
if not NULL, a vector of integers indicating which elements of the beginning of each series to use as a reference point for converting to an index. If NULL, no conversion takes place and the data are presented on the original scale. |
index.basis |
if index.ref is not NULL, the basis point for converting to an index, most commonly 100 or 1000. See examples. |
... |
other arguments for the geom |
Details
Calculates a rolling summary (usually rolling average) on the fly for purposes of plotting with ggplot2.
See Also
Other time series stats for ggplot2: stat_decomp
,
stat_index
, stat_seas
,
stat_stl
Examples
ap_df <- tsdf(AirPassengers)
ggplot(ap_df, aes(x = x, y = y)) +
stat_rollapplyr(width = 12)
# rolling average after converting to an index, 1000 = average value
# in the first 12 months.
ggplot(ap_df, aes(x = x, y = y)) +
stat_rollapplyr(width = 12, index.ref = 1:12, index.basis = 1000)
ggplot(ldeaths_df, aes(x = YearMon, y = deaths, colour = sex)) +
geom_point() +
facet_wrap(~sex) +
stat_rollapplyr(width = 12, FUN = median) +
ggtitle("Seasonally adjusted lung deaths")