Дендрограмма в R по полной связи не разнесены правильно

Question

Я новичок с R. Если говорить в очень понятной форме, что я хочу достичь, это дендрограммы как этот What I want the dendrogram to look like

и как я получаю это как это, How I am getting it

Это код, который я побежал,

tb <- read.csv("COM_PDT.csv", row.names = 1) 
> d = as.dist(tb) 
> hc.c <- hclust(d) 
> plot(hc.c, hang = -1) 

А вот набор данных,

,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48 
1,,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,4,4,0,0,0,0,1,0,3,0,0,0,4,1 
2,0,,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,2,3,1,0,0,0,1,0,0,0,0 
3,0,0,,2,0,0,1,1,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1 
4,0,0,2,,1,1,1,1,0,1,0,0,0,1,0,1,0,0,0,1,0,0,1,0,1,1,0,1,0,1,1,0,1,0,0,0,0,0,0,0,0,2,0,0,0,0,0,1 
5,0,0,0,1,,3,0,0,0,1,0,1,0,0,1,0,2,0,2,1,1,0,3,2,3,0,0,1,2,1,1,1,2,2,0,0,2,1,1,1,1,2,0,0,2,2,0,0 
6,0,0,0,1,3,,0,1,0,2,0,2,0,1,1,1,3,0,3,1,1,0,4,2,3,0,0,1,3,1,1,0,3,3,0,0,2,0,0,0,2,1,0,0,3,3,0,1 
7,0,0,1,1,0,0,,3,0,0,0,2,0,3,0,2,1,0,0,1,3,0,0,2,0,1,0,0,1,0,0,0,0,1,0,0,2,0,0,0,1,1,0,0,1,1,0,2 
8,0,0,1,1,0,1,3,,0,1,0,3,0,4,0,3,2,0,1,1,2,0,1,1,0,1,0,0,2,0,0,0,1,2,0,0,1,0,0,0,2,1,0,0,2,2,0,3 
9,3,0,0,0,0,0,0,0,,1,3,0,3,0,2,0,0,3,0,0,0,3,0,0,0,1,3,2,0,2,2,0,1,0,3,3,0,0,0,0,1,0,3,0,0,0,3,1 
10,1,0,0,1,1,2,0,1,1,,1,1,1,1,1,1,1,1,1,0,0,1,2,0,1,0,1,2,1,2,2,0,3,1,1,1,0,0,0,0,2,1,1,1,1,1,1,2 
11,4,0,0,0,0,0,0,0,3,1,,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,4,1 
12,0,0,0,0,1,2,2,3,0,1,0,,0,3,1,2,3,0,2,2,3,0,2,2,1,0,0,0,3,0,0,0,2,3,0,0,2,0,0,0,3,0,0,0,3,3,0,2 
13,4,0,0,0,0,0,0,0,3,1,4,0,,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,4,1 
14,0,0,1,1,0,1,3,4,0,1,0,3,0,,0,3,2,0,1,1,2,0,1,1,0,1,0,0,2,0,0,0,1,2,0,0,1,0,0,0,2,1,0,0,2,2,0,3 
15,3,0,0,0,1,1,0,0,2,1,3,1,3,0,,0,1,3,1,1,1,3,1,1,2,1,3,2,1,2,2,0,2,1,2,3,1,0,0,0,2,0,2,0,1,1,3,1 
16,0,0,1,1,0,1,2,3,0,1,0,2,0,3,0,,2,0,1,2,1,0,1,1,0,2,0,0,2,0,0,0,1,2,0,0,1,0,0,0,2,1,0,0,2,2,0,3 
17,0,0,0,0,2,3,1,2,0,1,0,3,0,2,1,2,,0,3,2,2,0,3,3,2,0,0,0,4,0,0,0,2,4,0,0,3,0,0,0,3,0,0,0,4,4,0,2 
18,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,4,1 
19,0,0,0,0,2,3,0,1,0,1,0,2,0,1,1,1,3,0,,1,1,0,3,2,2,0,0,0,3,0,0,1,2,3,0,0,2,1,0,1,2,0,0,0,3,3,0,1 
20,0,0,0,1,1,1,1,1,0,0,0,2,0,1,1,2,2,0,1,,2,0,1,2,1,1,0,0,2,0,0,0,1,2,0,0,2,0,0,0,2,0,0,0,2,2,0,1 
21,0,0,0,0,1,1,3,2,0,0,0,3,0,2,1,1,2,0,1,2,,0,1,3,1,0,0,0,2,0,0,0,1,2,0,0,3,0,0,0,2,0,0,0,2,2,0,1 
22,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,,0,0,1,1,4,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,4,1 
23,0,0,0,1,3,4,0,1,0,2,0,2,0,1,1,1,3,0,3,1,1,0,,2,3,0,0,1,3,1,1,0,3,3,0,0,2,0,0,0,2,1,0,0,3,3,0,1 
24,0,0,0,0,2,2,2,1,0,0,0,2,0,1,1,1,3,0,2,2,3,0,2,,2,0,0,0,3,0,0,0,1,3,0,0,4,0,0,0,2,0,0,0,3,3,0,1 
25,1,0,0,1,3,3,0,0,0,1,1,1,1,0,2,0,2,1,2,1,1,1,3,2,,0,1,2,2,2,2,0,2,2,0,1,2,0,0,0,1,1,0,0,2,2,1,0 
26,1,0,1,1,0,0,1,1,1,0,1,0,1,1,1,2,0,1,0,1,0,1,0,0,0,,1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,1,1 
27,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,4,1 
28,3,0,0,1,1,1,0,0,2,2,3,0,3,0,2,0,0,3,0,0,0,3,1,0,2,0,3,,0,4,4,0,2,0,2,3,0,0,0,0,1,1,2,0,0,0,3,1 
29,0,0,0,0,2,3,1,2,0,1,0,3,0,2,1,2,4,0,3,2,2,0,3,3,2,0,0,0,,0,0,0,2,4,0,0,3,0,0,0,3,0,0,0,4,4,0,2 
30,3,0,0,1,1,1,0,0,2,2,3,0,3,0,2,0,0,3,0,0,0,3,1,0,2,0,3,4,0,,4,0,2,0,2,3,0,0,0,0,1,1,2,0,0,0,3,1 
31,3,0,0,1,1,1,0,0,2,2,3,0,3,0,2,0,0,3,0,0,0,3,1,0,2,0,3,4,0,4,,0,2,0,2,3,0,0,0,0,1,1,2,0,0,0,3,1 
32,0,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,0,0,0,4,3,3,0,1,0,0,0,0,0,0 
33,1,0,0,1,2,3,0,1,1,3,1,2,1,1,2,1,2,1,2,1,1,1,3,1,2,0,1,1,2,1,2,0,,2,1,1,1,0,0,0,3,1,1,0,2,2,1,2 
34,0,0,0,0,2,3,1,2,0,1,0,3,0,2,1,2,4,0,3,2,2,0,3,3,2,0,0,0,4,0,0,0,2,,0,0,3,0,0,0,3,0,0,0,4,4,0,2 
35,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,,4,0,0,0,0,1,0,3,0,0,0,4,1 
36,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,3,,0,0,0,0,1,0,3,0,0,0,4,1 
37,0,0,0,0,2,2,2,1,0,0,0,2,0,1,1,1,3,0,2,2,3,0,2,4,2,0,0,0,3,0,0,0,1,3,0,0,,0,0,0,2,0,0,0,3,3,0,1 
38,0,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,,3,3,0,1,0,0,0,0,0,0 
39,0,3,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,,2,0,1,0,0,0,0,0,0 
40,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,2,,0,2,0,0,0,0,0,0 
41,1,0,0,0,1,2,1,2,1,2,1,3,1,2,2,2,3,1,2,2,2,1,2,2,1,0,1,1,3,1,1,0,3,3,1,1,2,0,0,0,,0,1,0,3,3,1,3 
42,0,0,1,2,2,1,1,1,0,1,0,0,0,1,0,1,0,0,0,0,0,0,1,0,1,1,0,0,0,0,1,1,1,0,0,0,0,1,1,2,0,,0,0,0,0,0,1 
43,3,0,0,0,0,0,0,0,3,1,3,0,3,0,2,0,0,3,0,0,0,3,0,0,0,1,3,2,0,2,2,0,1,0,3,3,0,0,0,0,1,0,,0,0,0,3,1 
44,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,0,0 
45,0,0,0,0,2,3,1,2,0,1,0,3,0,2,1,2,4,0,3,2,2,0,3,3,2,0,0,0,4,0,0,0,2,4,0,0,3,0,0,0,3,0,0,0,,4,0,2 
46,0,0,0,0,2,3,1,2,0,1,0,3,0,2,1,2,4,0,3,2,2,0,3,3,2,0,0,0,4,0,0,0,2,4,0,0,3,0,0,0,3,0,0,0,4,,0,2 
47,4,0,0,0,0,0,0,0,3,1,4,0,4,0,3,0,0,4,0,0,0,4,0,0,1,1,4,3,0,3,3,0,1,0,3,4,0,0,0,0,1,0,3,0,0,0,,1 
48,1,0,1,1,0,1,2,3,1,2,1,2,1,3,1,3,2,1,1,1,1,1,1,1,0,1,1,1,2,1,1,0,2,2,1,1,1,0,0,0,3,1,1,0,2,2,1, 

Пожалуйста, помогите мне получить чистую дендрограмму, которая аккуратно разнесена и конечные узлы правильно на полу графика!

Answer 1

Думаю, вам нужно написать dist(tb), а не as.dist(tb). Это поможет разветвлению внешнего вида того, как он строится. Измените hang =, чтобы настроить маркировку, хотя изначально я не смог точно определить, как эти метки находятся на вашем желаемом участке.

d = dist(tb) 
hc.c <- hclust(d) 
plot(hc.c, hang = -1)