#Bom dia, segue abaixo um exemplo hipotético!
#Agora fica complicado usar 117 linhagens, o dendograma vai ficar com uma difícil visualização!
x<- data.frame(matrix( c(205928,18102,25784,19197,7131,7562,52978,14600,12680),nrow = 9, ncol=1, byrow=TRUE,
dimnames = list(c("A","B","C","D","E","F","G","H","I"),c("Quantidade") ) ) )
x
#tipos de ligações: "single", "ward" , "complete", "average", "mcquitty", "median" , "centroid"
hc <- hclust(dist(x), "centroid");dend1=as.dendrogram(hc);dend1
nP <- list(col=3:1, cex=c(1.2, 0.7), pch= 21:22, bg= c("light blue", "red"), lab.cex = 1.2, lab.col="blue")
par(mar=c(11,0,0,0));plot(dend1, nodePar= nP, edgePar = list(col="dark gray", lwd=3), horiz = FALSE, dLeaf = 5555, yaxt = "n");
#leaflab = "textlike" >>> OBS: texto na horizontal
#Espero ter ajudado!
#Alexandro
De: Mauricio Silva. <mau.gm@hotmail.com>
Para: "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br>
Enviadas: Quarta-feira, 6 de Maio de 2015 10:40
Assunto: [R-br] Dendograma