このコードを R で使用すると、
library("dendextend")
library("dendextendRcpp")
dist2 <- read.csv("distanceMatrix.csv",sep=";",header=TRUE)
mat <- as.matrix(dist2)
# using piping to get the dend
dend <- dist2 %>% dist %>% hclust %>% as.dendrogram %>% set("labels", colnames(mat))
foo <- function(k){
svg(filename = "dendrogram_newest.svg",width = 25,height = 14)
# plot + color the dend's branches before, based on k clusters:
dend %>% color_branches(k) %>% plot()
# add horiz line:
abline(h = heights_per_k.dendrogram(dend)[k], lwd = 2, lty = 2, col = "purple")
dev.off()}
foo(6)
私はこれを得る:
それで、これらの行を短くする方法。この方法はほとんど読めません。
はい、私のラベルは、distanceMatrix.csv の最初の行と同じように並べられています。この順序は、distanceMatrix 内のリレーションとは関係ありません。つまり、デンドログラムは問題ありませんが、ラベルの値が正しくありません。
ありがとう