source: branches/2886_SymRegGrammarEnumeration/ExpressionClustering_R/ClusteringScript.R @ 15903

Last change on this file since 15903 was 15903, checked in by gkronber, 4 years ago

#2886 worked on cluster analysis / visualization for GPTP

File size: 479 bytes
Line 
1library(largeVis)
2library(ggplot2)
3
4eval7 <- read.csv2("c:/Users/P24581/Desktop/evaluations_2018-04-11_12-50_TreeSize-7.csv",header = TRUE, sep = ";", dec=",")
5eval7_qs <- eval7[,3]
6eval7_x <- eval7[,5:105]
7lv <- largeVis(eval7_x, dim=2, K = 50, n_trees = 50) # TODO scale?
8clusters <- hdbscan(lv, minPts = 3, K=30)
9
10m <- data.frame(x=t(lv$coords)[,1], y=t(lv$coords)[,2], c=clusters$clusters, q=eval7_qs)
11
12
13ggplot(data=m, aes(x=x, y=y)) + geom_point(aes(color=q))
Note: See TracBrowser for help on using the repository browser.