<div dir="ltr"><div>Andre, boa noite!</div><div><br></div>Uma ideia que talvez possa ajudar...<div><br><div><div><font face="monospace, monospace">### <code r></font></div><div><font face="monospace, monospace">### dados fictícios!</font></div><div><font face="monospace, monospace">df <- data.frame(UF=rep(c("AC","AL","AM"), each=4), ano=rep(2003:2006, 3), V1=rnorm(12), V2=rnorm(12))</font></div><div><font face="monospace, monospace">df</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">### criando rownames únicos a partir dos dados...</font></div><div><font face="monospace, monospace">rownames(df) <- paste0(df$UF, df$ano)</font></div><div><font face="monospace, monospace">df</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">PCA <- prcomp(df[3:4],scale=T) ### informar as variáveis númericas</font></div><div><font face="monospace, monospace">hc  <- hclust(dist(df[3:4]), method='ward.D')</font></div></div><div><font face="monospace, monospace">### </code></font></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature"><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote"><br></div></div></div></div>