if(requireNamespace("FactoMineR",quietly = TRUE)&
requireNamespace("factoextra",quietly = TRUE)){
draw_pca(t(iris[,1:4]),iris$Species)
draw_pca(t(iris[,1:4]),iris$Species,style = "ggplot2")
#change color
draw_pca(t(iris[,1:4]),iris$Species,color = c("#E78AC3", "#A6D854", "#FFD92F"))
}else{
if(!requireNamespace("FactoMineR",quietly = TRUE)){
warning("Package 'FactoMineR' needed for this function to work.
Please install it by install.packages('FactoMineR')")
}
if(!requireNamespace("factoextra",quietly = TRUE)){
warning("Package 'factoextra' needed for this function to work.
Please install it by install.packages('factoextra')")
}
}
if(requireNamespace("scatterplot3d",quietly = TRUE)&
requireNamespace("FactoMineR",quietly = TRUE)){
draw_pca(t(iris[,1:4]),iris$Species,style = "3D")
}else{
if(!requireNamespace("scatterplot3d",quietly = TRUE)){
warning("Package 'scatterplot3d' needed for this function to work.
Please install it by install.packages('scatterplot3d')")
}
if(!requireNamespace("FactoMineR",quietly = TRUE)){
warning("Package 'FactoMineR' needed for this function to work.
Please install it by install.packages('FactoMineR')")
}
}
Run the code above in your browser using DataLab