2014-11-17 19 views

Trả lời

3

Giải pháp: sử dụng set chức năng, với "labels_cex" tham số từ gói dendextend.

# 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

(lưu ý rằng việc thay đổi khoảng cách giữa các nhãn hiện chưa được thực hiện)

Để biết thêm chi tiết về các gói, bạn có thể có một cái nhìn at its vignette.

Các vấn đề liên quan