<div dir="ltr">Sim Alexandre.<br><br>Aliás, eu recomendo que você teste os resultados da pesquisa com os comandos (para os dados e resultados da PCA do seu CMR):<br><br>> biplot(pca.object)<div><br></div><div>e</div><div><br></div><div>> biplot(pca.object, choice=2:3)</div><div><br></div><div>Nessa representação você pode ver como as variáveis estão correlacionadas em relação às componentes da PCA <b>lembrando que a representação por ser espacial pode ter uma distorção devido às outras dimensões</b>.</div><div><br></div><div>Por isso outros pacotes, como o FactoMiner (um dos meus favoritos junto com o ade4) permitem que se faça um corte nas variáveis que aparecem nesses gráficos levando em conta a assim chamada "qualidade da representação" em cada plano.</div><div><br></div><div>Vou eludir discussão sobre um número muito reduzido de casos versus o número de variáveis neste caso porque entendo que o CMR é só para discutir a técnica.</div><div><br></div><div>HTH</div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-05-03 16:30 GMT-03:00 ASANTOS <span dir="ltr"><<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.br</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div text="#000000" bgcolor="#FFFFFF">
<p>Obrigado Cezar,</p>
<p> Então mudando
names(load.rot[,2][order(abs(<wbr>load.rot[,2]),decreasing=TRUE)<wbr>][1:topN])
e
names(load.rot[,3][order(abs(<wbr>load.rot[,3]),decreasing=TRUE)<wbr>][1:topN]),
vou ter as cinco variáveis mais correlacionadas com a segunda e
terceira componentes principais respectivamente?</p>
<p>Novamente obrigado,</p><span class="">
<p>Alexandre<br>
</p>
<pre class="m_4094510819290899030moz-signature" cols="72">--
==============================<wbr>==============================<wbr>==========
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)
<a class="m_4094510819290899030moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<wbr>yahoo.com.br</a>
<a class="m_4094510819290899030moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a>
Lattes: <a class="m_4094510819290899030moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<wbr>1360403201088680</a>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" target="_blank">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016
Researchgate: <a class="m_4094510819290899030moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10" target="_blank">www.researchgate.net/profile/<wbr>Alexandre_Santos10</a>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank">br.linkedin.com/in/alexandre-<wbr>dos-santos-87961635</a>
<a class="m_4094510819290899030moz-txt-link-freetext">Mendeley:www.mendeley.com/<wbr>profiles/alexandre-dos-<wbr>santos6/</a>
==============================<wbr>==============================<wbr>==========</pre>
</span><span class=""><div class="m_4094510819290899030moz-cite-prefix">Em 02/05/2018 23:57, Cesar Rabak
escreveu:<br>
</div>
<blockquote type="cite">##Banco
de dados<br>
<br>
set.seed(12345)<br>
mat <- matrix(rnorm(120,0,0.5),nrow=6<wbr>,byrow=TRUE)<br>
rownames(mat) <- paste("s",1:6,sep="")<br>
colnames(mat) <- paste("g",1:20,sep="")<br>
head(mat)<br>
<br>
## Espectros com maior correlação<br>
pca.object <- prcomp(mat,center=TRUE,scale.=<wbr>FALSE)<br>
plot(pca.object)<br>
<br>
#Quero os cinco mais correlacionados<br>
topN <- 5<br>
load.rot <- scale(pca.object$rotation)<br>
names(load.rot[,1][order(abs(l<wbr>oad.rot[,1]),decreasing=TRUE)]<wbr>[1:topN])</blockquote>
<br>
</span></div>
</blockquote></div><br></div>