library(spinifex)
dat <- scale_sd(penguins_na.rm[, 1:4])
clas <- penguins_na.rm$species
## 2D case:
gt_path <- save_history(dat, grand_tour(), max_bases = 5)
ggt <- ggtour(gt_path, dat, angle = .1) +
proto_point(list(color = clas, shape = clas)) +
proto_hline0() + ## horizonatal line at 0
proto_vline0() ## vertical line at 0
# \donttest{
animate_plotly(ggt)
# }
Run the code above in your browser using DataLab