View source: R/2_ggproto_visualize.r
proto_point | R Documentation |
Adds geom_point()
of the projected data.
proto_point(
aes_args = list(),
identity_args = list(alpha = 0.9),
row_index = NULL,
bkg_color = "grey80"
)
aes_args |
A list of arguments to call inside of aes().
aesthetic mapping of the primary geom. For example,
|
identity_args |
A list of static, identity arguments passed into
the primary geom. For instance,
|
row_index |
A numeric or logical index of rows to subset to. Defaults to NULL, all observations. |
bkg_color |
The character color by name or hexadecimal to display
background observations, those not in the |
Other ggtour proto functions:
append_fixed_y()
,
facet_wrap_tour()
,
ggtour()
,
proto_basis()
,
proto_default()
,
proto_density()
,
proto_density2d()
,
proto_hex()
,
proto_highlight()
,
proto_hline0()
,
proto_origin()
,
proto_text()
library(spinifex)
dat <- scale_sd(penguins_na.rm[, 1:4])
clas <- penguins_na.rm$species
gt_path <- save_history(dat, grand_tour(), max_bases = 5)
ggt <- ggtour(gt_path, dat, angle = .3) +
proto_point(aes_args = list(color = clas, shape = clas),
identity_args = list(size = 2, alpha = .7))
animate_plotly(ggt)
## Select/highlight observations with `row_index`
ggt <- ggtour(gt_path, dat, angle = .3) +
proto_point(aes_args = list(color = clas, shape = clas),
identity_args = list(size = 2, alpha = .7),
row_index = which(clas == levels(clas)[1]),
bkg_color = "grey80") ## FALSE or NULL to skip plotting background
animate_plotly(ggt)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.