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