2014-11-17 27 views

Odpowiedz

3

Rozwiązanie: należy użyć funkcji set, z "labels_cex parametru" z pakietu 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

(zauważ, że zmiana odstępów pomiędzy etykietami nie jest obecnie realizowany)

Aby uzyskać więcej informacji na opakowaniu, można rzucić okiem at its vignette.