View source: R/2_ggproto_visualize.r
proto_default | R Documentation |
An easier way to get to default 2D tour settings. Returns a list of proto_origin(), proto_point(...), proto_basis() for 2D. Returns a list of proto_origin1d(), proto_density(...), proto_basis1d() for 1D.
proto_default(
position = c("left", "center", "right", "bottomleft", "topright", "off"),
...
)
proto_default1d(position = c("bottom1d", "floor1d", "top1d", "off"), ...)
position |
The position, to place the basis axes relative to the
data. |
... |
Optionally pass additional arguments to |
Other ggtour proto functions:
append_fixed_y()
,
facet_wrap_tour()
,
ggtour()
,
proto_basis()
,
proto_density()
,
proto_density2d()
,
proto_hex()
,
proto_highlight()
,
proto_hline0()
,
proto_origin()
,
proto_point()
,
proto_text()
library(spinifex)
dat <- scale_sd(penguins_na.rm[, 1:4])
clas <- penguins_na.rm$species
## 2D case:
bas <- basis_pca(dat)
mv <- manip_var_of(bas)
mt_path <- manual_tour(bas, mv)
ggt <- ggtour(mt_path, dat) +
proto_default(aes_args = list(color = clas, shape = clas))
animate_plotly(ggt)
library(spinifex)
## 1D case:
gt_path <- save_history(dat, grand_tour(d = 1), max_bases = 3)
ggt <- ggtour(gt_path, dat) +
proto_default1d(aes_args = list(fill = clas, color = clas))
animate_plotly(ggt)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.