# \donttest{
data(mtcars, package = "datasets")
mtcars <- mtcars[1:7] |> dplyr::rename(weight = wt)
res.pca <- FactoMineR::PCA(mtcars, graph = FALSE)
# Variables and individuals
ggpca_3d(res.pca)
# Circle of correlation 3D
ggpca_3d(res.pca, type = c("cor", "cor_sphere"),
var_names_on = "cor", base_zoom = 0.6,
princ_axes_print = -1:1, view = "All"
)
# }
Run the code above in your browser using DataLab