View source: R/2_ggproto_visualize.r
| proto_text | R Documentation | 
Adds geom_text() of the projected data.
proto_text(
  aes_args = list(vjust = "outward", hjust = "outward"),
  identity_args = list(nudge_x = 0.05),
  row_index = TRUE
)
| 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. | 
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_point()
library(spinifex)
dat     <- scale_sd(penguins_na.rm[, 1:4])
clas    <- penguins_na.rm$species
bas     <- basis_pca(dat)
mv      <- manip_var_of(bas)
gt_path <- save_history(dat, grand_tour(), max_bases = 5)
ggt <- ggtour(gt_path, dat, angle = .2) +
  proto_text(list(color = clas))
animate_plotly(ggt)
## Custom labels, subset of points
ggt2 <- ggtour(gt_path, dat) +
  proto_text(list(color = clas, size = as.integer(clas)),
             list(alpha = .7),
             row_index = 1:15)
animate_plotly(ggt2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.