spinifex (version 0.3.2)

ggtour: Prepare a new grammar of graphics tour

Description

ggtour() initializes a ggplot object for a tour. proto_* functions are added to the tour, analogous to ggplot() + geom_*. The final tour object is then animated with animate_plotly() or animate_ggtour(), or passed to filmstrip() for static plot faceting on frames.

Usage

ggtour(
  basis_array,
  data = NULL,
  angle = 0.05,
  basis_label = NULL,
  data_label = NULL
)

Arguments

basis_array

An array of projection bases for the tour, as produced with manual_tour() or tour::save_history(), or a single basis.

data

Numeric data to project. If left NULL, will check if it data is stored as an attribute of the the basis_array.

angle

Target angle (in radians) for interpolation for tour::save_history() generated basis_array. Defaults to .05.

basis_label

Labels for basis display, a character vector with length equal to the number of variables. Defaults to NULL; 3 character abbreviation from colnames of data or rownames of basis.

data_label

Labels for plotly tooltip display. Defaults to the NULL, rownames and/or numbers of data.

See Also

Other ggtour proto functions: append_fixed_y(), facet_wrap_tour(), proto_basis(), proto_default(), proto_density2d(), proto_density(), proto_hex(), proto_highlight(), proto_hline0(), proto_origin(), proto_point(), proto_text()

Examples

# NOT RUN {
library(spinifex)
dat     <- scale_sd(penguins[, 1:4])
clas    <- penguins$species
bas     <- basis_pca(dat)
mv      <- manip_var_of(bas)
mt_path <- manual_tour(bas, manip_var = mv)

## d = 2 case
ggt <- ggtour(basis_array = mt_path, data = dat, angle = .3) +
  proto_default(aes_args = list(color = clas, shape = clas),
                identity_args = list(size = 1.5, alpha = .8))
# }
# NOT RUN {
animate_plotly(ggt)
# }
# NOT RUN {
## Finer control calling individual proto_* functions
ggt <- ggtour(basis_array = mt_path, data = dat, angle = .3) +
  proto_point(aes_args = list(color = clas, shape = clas),
              identity_args = list(size = 1.5, alpha = .8),
              row_index = which(clas == levels(clas)[1])) +
  proto_basis(position = "right",
              manip_col = "red",
              text_size = 7L) +
  proto_origin()
# }
# NOT RUN {
animate_plotly(ggt)
# }
# NOT RUN {
## d = 1 case
bas1d <- basis_pca(dat, d = 1)
mt_path1d <- manual_tour(basis = bas1d, manip_var = mv)

ggt1d <- ggtour(basis_array = mt_path1d, data = dat, angle = .3) +
  proto_default1d(aes_args = list(fill= clas, color = clas))
# }
# NOT RUN {
animate_plotly(ggt1d)
# }
# NOT RUN {
## Single basis
ggt <- ggtour(basis_array = bas, data = dat) +
  proto_default(aes_args = list(fill= clas, color = clas))
## ggtour() returns a static ggplot2 plot
# }
# NOT RUN {
ggt
### or as html widget with tooltips
animate_plotly(ggt)
# }