<html><body><div style="color:#000; background-color:#fff; font-family:garamond, new york, times, serif;font-size:18pt"><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt;"><span style="color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; font-size: 12px; background-color: transparent;">Oi, estou tentando delimitar os grupos no Cluster analysis, porém a função rect.hclust extrapola os limites dos retângulos, deixando-os abertos.</span><br></div><div style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: rgb(69, 69, 69); background-color: transparent; font-style: normal;"><span><span style="color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><br></span></span></div><div style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: rgb(69, 69, 69); background-color: transparent; font-style: normal;"><span><span style="color: rgb(69, 69, 69);
font-family: Arial, Helvetica, sans-serif; font-size: 12px;">O script que estou usando segue abaixo.</span></span></div><div style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: rgb(69, 69, 69); background-color: transparent; font-style: normal;"><span><span style="color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><br></span></span></div><div style="background-color: transparent; color: rgb(69, 69, 69); font-size: 12px; font-family: Arial, Helvetica, sans-serif; font-style: normal;"><span><span><div style="background-color: transparent;"><span style="font-size: 12px; color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; background-color: transparent;">#dissimilaridade EUCLIDIANA</span><br></div><div style="background-color: transparent;"><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">dis<-vegdist
(dados, method = "euclidean")</span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">dis</span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">range(dis)</span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">clust<- hclust(dis, "average")</span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">plot(clust, main="Análise de Agrupamento", sub="Ligação pela média", </span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">xlab="Locais e orgãos", ylab="Dissimilaridade
(Distância Euclidiana)")</span></font></div><div style="background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">cor(dis, cophenetic(clust))</span></font></div><div style="background-color: transparent; color: rgb(69, 69, 69); font-size: 12px; font-family: Arial, Helvetica, sans-serif; font-style: normal;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;"><div style="color: rgb(0, 0, 0); font-family: 'Times New Roman'; font-size: medium; background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">rect.hclust(clust, k=2, border="red")#desenhar dois retângulos</span></font></div><div style="color: rgb(0, 0, 0); font-family: 'Times New Roman'; font-size: 16px; background-color: transparent;"><font color="#454545" face="Arial, Helvetica, sans-serif"><span style="font-size: 12px;">x <-
rect.hclust(clust, h=40)#cortar na altura de 40</span></font></div></span></font></div></div><div style="color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal;"><br></div><div style="color: rgb(69, 69, 69); font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-style: normal;">Se alguém puder me ajudar, desde já agradeço.</div></span></span></div><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt;"></div><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt;"><br></div><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt;"><br></div><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt;"><font><span style="font-family: garamond, 'new york', times, serif; font-size: 16px;">Maurício Figueira<br>Mestrando em Engenharia Florestal (UFSM)<br>Herbário do Departamento de Ciências Florestais
(HDCF)</span></font></div><div style="font-family: garamond, 'new york', times, serif; font-size: 18pt; background-color: transparent; font-style: normal;"><font><span style="font-family: garamond, 'new york', times, serif; font-size: medium;">Currículo: <a rel="nofollow" target="_blank" href="http://lattes.cnpq.br/1022600405818850">http://lattes.cnpq.br/1022600405818850</a><br><span style="color:rgb(0, 0, 0);">Tel.:(55) 9663-4920 </span></span><br><span style="font-family: 'bookman old style', 'new york', times, serif; font-size: 10px; color: rgb(0, 0, 0); font-weight: bold;"> </span><br></font></div></div></body></html>