# NOT RUN {
library("spinifex")
str(spinifex::penguins)
dat <- scale_sd(spinifex::penguins[, 1:4])
clas1 <- spinifex::penguins$species
clas2 <- spinifex::penguins$sex
bas <- basis_pca(dat)
mv <- manip_var_of(bas)
mt <- manual_tour(bas, mv)
ggt <- ggtour(mt, dat, angle = .2) +
proto_default(aes_args = list(color = clas1, shape = clas2))
# }
# NOT RUN {
animate_plotly(ggt)
# }
Run the code above in your browser using DataLab