樹狀圖中的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)