|
|
@@ -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() |
|
|
|
|