2014-11-17 9 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.

Powiązane problemy