filmstrip {spinifex} | R Documentation |
Create a "filmstrip" of the frames of a ggtour.
Description
Appends facet_wrap(vars(frame_number))
& minor themes to the ggtour. If the
number of frames is more than desired, try increasing the angle
argument on
the tour. Is very demanding on the plots pane, works better with ggsave().
Usage
filmstrip(ggtour, ...)
Arguments
ggtour |
A grammar of graphics tour with appended protos added.
A return from |
... |
optionally pass arguments to ggplot2::facet_wrap, such as nrow = 3, ncol = 2, scales = "free". |
See Also
Other ggtour animator:
animate_gganimate()
,
animate_plotly()
Examples
library(spinifex)
dat <- scale_sd(penguins_na.rm[, 1:4])
clas <- penguins_na.rm$species
bas <- basis_pca(dat)
mv <- manip_var_of(bas)
## d = 2 case
mt_path <- manual_tour(bas, manip_var = mv)
ggt <- ggtour(mt_path, dat, angle = .3) +
proto_point(list(color = clas, shape = clas),
list(size = 1.5)) +
proto_basis()
filmstrip(ggt)
## d = 1 case & specify facet dim
bas1d <- basis_pca(dat, d = 1)
mt_path1d <- manual_tour(basis = bas1d, manip_var = mv)
ggt1d <- ggtour(mt_path1d, dat, angle = 99) +
proto_default1d(aes_args = list(fill = clas, color = clas))
filmstrip(ggt1d, nrow = 12, ncol = 3)
[Package spinifex version 0.3.7.0 Index]