4

このコードを 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 内のリレーションとは関係ありません。つまり、デンドログラムは問題ありませんが、ラベルの値が正しくありません。

ありがとう

4

0 に答える 0