Exemples

04_Clustering/dimension.R

@@ -0,0 +1,31 @@
+library(tidyverse)
+library(FactoMineR)
+library(Rtsne)
+
+# PCA
+
+iris %>%
+  PCA(quali.sup = 5, graph = F) -> pca_iris
+
+pca_iris
+
+summary(pca_iris)
+
+plot(pca_iris, choix = "var")
+plot(pca_iris, choix = "ind")
+
+plotellipses(pca_iris)
+
+# t-SNE
+
+iris %>%
+  Rtsne(check_duplicates = F) -> tsne_iris
+
+tsne_iris
+
+tsne_iris$Y %>%
+  as.tibble %>%
+  ggplot() +
+  aes(x = V1, y = V2, color = iris$Species) +
+  geom_point()
+