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")
(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.
Nguồn
2015-01-31 09:31:27