<html><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px"><div dir="ltr" id="yui_3_16_0_1_1429069878006_13222"><span id="yui_3_16_0_1_1429069878006_13221">Exatamente Éder,</span></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213"><span id="yui_3_16_0_1_1429069878006_13212">você chegou exatamente onde eu gostaria, mas continuando seu código ao plotar plot(as.dendrogram(hc),main = "")</span> cria os grupos e separa os <span style="font-family: monospace, monospace; font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_14312">ACs, os Als e os AMs no dendograma e eu gostaria de apenas um Estado no agrupamento! Pensei o seguinte! </span></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style=""><span style="font-size: 13px;" class=""><br class="" style=""></span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19861"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19862">V1=tapply(df$V1,df$UF, sum) # Ou trocar pelo mean</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19860"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19859">V2=tapply(df$V2,df$UF, sum) # Ou trocar pelo mean</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><span style="font-family: monospace, monospace; font-size: 13px;" id="yui_3_16_0_1_1429069878006_19865">dadostotal=cbind(V1,V2)</span><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style=""><span style="font-size: 13px;" class=""><br></span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19856"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19855">hc<-hclust(dist(dadostotal),method='ward.D')</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19854"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19853">plot(as.dendrogram(hc),main = "Cluster Dendrograma")</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19759"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19758">rect.hclust(hc, k = 2, border = "red")</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19866"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19867">require(bpca) </span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_20149"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_20148">summary(bpca(dadostotal, scale=TRUE))</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_21571"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_21570">plot(bpca(dadostotal, scale = T,d=1:2))</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style=""><span style="font-size: 13px;" class=""><br class="" style=""></span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><span style="font-size: 13px; font-family: monospace, monospace;" id="yui_3_16_0_1_1429069878006_25651">resultado=prcomp(dadostotal, scale=T)</span><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_19610"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_19609">summary(resultado)</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><font face="monospace, monospace" class="" style="" id="yui_3_16_0_1_1429069878006_20152"><span style="font-size: 13px;" class="" id="yui_3_16_0_1_1429069878006_20153">biplot(resultado)</span></font></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br class="" style=""></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style="">Ando estudando um pouco de multivariada sozinho aqui e me veio desde o primeiro poster a pergunta: Se eu teria e suporte técnico para argumentar o que fiz? Já que não consigo analisar com banco de dados repetidos (Com estas duas propostas e que não são as melhores!). Gostaria aqui de ouvir dos que conhecem do assunto, pois sempre tem dados da biologia com esta estrutura e muitas vezes o cara diz tal programa eu faço e eu no R não consigo andar. </div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style="">obrigado a todos! </div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213" class="" style=""><br></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213"><span style="font-family: monospace, monospace; font-size: 13px;" class=""><br></span></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213"><span style="font-family: monospace, monospace; font-size: 13px;" class=""><br></span></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213"><span style="font-family: monospace, monospace; font-size: 13px;" class=""><br></span></div><div dir="ltr" id="yui_3_16_0_1_1429069878006_13213"><br></div><div></div><div id="yui_3_16_0_1_1429069878006_13214"> </div><div id="yui_3_16_0_1_1429069878006_13014"><div id="yui_3_16_0_1_1429069878006_13013">
<br>
<br>André Oliveira Souza.
<br>Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
<br>
<br></div></div> <br><div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: bookman old style, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Terça-feira, 14 de Abril de 2015 23:10, Éder Comunello <comunello.eder@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container"><div id="yiv2057583698"><div><div dir="ltr"><div>Andre, boa noite!</div><div><br clear="none"></div>Uma ideia que talvez possa ajudar...<div><br clear="none"><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 clear="none"></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 clear="none"></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="yiv2057583698gmail_extra"><br clear="all"><div><div class="yiv2057583698gmail_signature"><div dir="ltr">Éder Comunello <<a rel="nofollow" shape="rect" ymailto="mailto:comunello.eder@gmail.com" target="_blank" href="mailto:comunello.eder@gmail.com">c</a><a rel="nofollow" shape="rect" ymailto="mailto:omunello.eder@gmail.com" target="_blank" href="mailto:omunello.eder@gmail.com">omunello.eder@gmail.com</a>> <br clear="none">Dourados, MS - [22 16.5'S, 54 49'W]<div class="yiv2057583698yqt0680686902" id="yiv2057583698yqtfd54977"><br clear="none"></div></div></div></div><div class="yiv2057583698yqt0680686902" id="yiv2057583698yqtfd16450">
<br clear="none"><div class="yiv2057583698gmail_quote"><br clear="none"></div></div></div></div></div></div></div><br><div class="yqt0680686902" id="yqtfd62194">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div><br><br></div> </div> </div> </div></div></body></html>