library(spinifex)
dat_std <- scale_sd(wine[, 2:6])
bas <- basis_pca(dat_std)
mv <- manip_var_of(bas)
view_manip_space(basis = bas, manip_var = mv)
view_manip_space(basis = bas, manip_var = mv,
tilt = 2/12 * pi, basis_label = paste0("MyNm", 1:ncol(dat_std)),
manip_col = "purple", manip_sp_col = "orange")
Run the code above in your browser using DataLab