2014-11-17 29 views

回答

3

解決方法:使用set功能,具有從dendextend包 「labels_cex」 參數。

# install.packages("dendextend") 
library(dendextend) 

dend <- as.dendrogram(hclust(dist(USArrests[1:5,]))) 
# Like: 
# dend <- USArrests[1:5,] %>% dist %>% hclust %>% as.dendrogram 

# By default, the dend has no text size to it (showing only the first leaf) 
get_leaves_nodePar(dend)[[1]] 
par(mfrow = c(1,2), mar = c(10,4,4,2)) 
plot(dend, main = "Original dend") 

# let's increase the size of the labels: 
dend <- set(dend, "labels_cex", 2) 
# Now each state has a larger label 
get_leaves_nodePar(dend)[[1]] 
plot(dend, main = "A larger font for labels") 

enter image description here

(注意更改標籤之間的間距目前未實現)

有關程序包的詳細信息,你可以去看看at its vignette