2014-11-17 38 views

cevap

3

Çözüm: dendextend paketinden "labels_cex" parametresi ile set işlevini kullanın.

enter image description here

# 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") 

(etiketler arasındaki açıklığın henüz uygulanmamaktadır unutmayın) paket üzerinde daha ayrıntılı bilgi için

, bir göz at its vignette sahip olabilir.