From c659c1688a2b3e65a78d9c09542dd1b218363efa Mon Sep 17 00:00:00 2001
From: Maxime Wack <maximewack@free.Fr>
Date: Wed, 11 Apr 2018 16:54:32 +0200
Subject: [PATCH] Enlever Species de iris avant t-SNE

---
 04_Clustering/dimension.R | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/04_Clustering/dimension.R b/04_Clustering/dimension.R
index d36f6f7..33c7409 100644
--- a/04_Clustering/dimension.R
+++ b/04_Clustering/dimension.R
@@ -19,14 +19,15 @@ plotellipses(pca_iris)
 # t-SNE
 
 iris %>%
+  select(-Species) %>%
   Rtsne(check_duplicates = F,
-        pca = F) -> tsne_iris
+        pca = F,
+        verbose = T) -> tsne_iris
 
 tsne_iris
 
 tsne_iris$Y %>%
   as.tibble %>%
   ggplot() +
-  aes(x = V1, y = V2, color = iris$Species) +
+  aes(x = V1, y = V2) +
   geom_point()
-