<div dir="ltr">Alexandre,<div><br></div><div>Eu usei as funções do pacote <a href="http://www.sthda.com/english/wiki/factoextra-r-package-easy-multivariate-data-analyses-and-elegant-visualization">"factoextra"</a>.</div><div><br></div><div>A partir do seu CMR você pode seguir com:</div><div>
<span class="gmail-identifier" style="margin:0px;padding:0px;font-size:13px;box-sizing:border-box;color:rgb(0,0,0);font-family:monospace;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;text-decoration-style:initial;text-decoration-color:initial">> install.packages</span><span class="gmail-paren" style="margin:0px;padding:0px;font-size:13px;box-sizing:border-box;color:rgb(104,118,135);font-family:monospace;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;text-decoration-style:initial;text-decoration-color:initial">(</span><span class="gmail-string" style="margin:0px;padding:0px;font-size:13px;box-sizing:border-box;color:red;font-family:monospace;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;text-decoration-style:initial;text-decoration-color:initial">"factoextra"</span><span class="gmail-paren" style="margin:0px;padding:0px;font-size:13px;box-sizing:border-box;color:rgb(104,118,135);font-family:monospace;font-style:normal;font-variant-ligatures:normal;font-variant-caps:normal;font-weight:400;letter-spacing:normal;text-align:justify;text-indent:0px;text-transform:none;white-space:pre-wrap;word-spacing:0px;text-decoration-style:initial;text-decoration-color:initial">)</span> ## só vai ser necessário uma única vez<br></div><div><br></div><div>> library("factoextra") <br></div><div><br></div><div>> fviz_contrib(pca.object, choice = "var", axes = 1, top = 5)<br></div><div>> fviz_contrib(pca.object, choice = "var", axes = 2, top = 5)<br></div><div>> fviz_contrib(pca.object, choice = "var", axes = 3, top = 5)<br></div><div><br></div><div>O parâmetro "top = 5" foi colocado porque você explicitou seu desejo de obter as cinco primeiras variáveis. Se você usar o default do sistema, ele coloca uma linha vermelha tracejada indicando o número "recomendado" (baseado numa lógica decorrente da teoria da PCA [p/detalhes, v. a doc. do pacote]).</div><div><br></div><div>HTH</div><div>--</div><div>Cesar Rabak</div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-05-05 9:47 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 Cesar e Fernando pelas dicas estão ajudando muito a
solidificar os estudos que venho conduzindo,</p>
<p> Fernando obrigado pelo vídeo, tirando o inglês carregado no
francês que dificulta na compreensão ajudou muito e estou
explorando muito a ferramenta dimdesc().</p>
<p> Cesar, as figuras que me mandou representa bem o que eu
quero, qual a função que utilizou para gerar aquelas figuras de %
de contribuição de cada variável.</p>
<p>Obrigado a ajuda de todos,<br>
</p><span class="">
<pre class="m_-4233331014246575119moz-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_-4233331014246575119moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<wbr>yahoo.com.br</a>
<a class="m_-4233331014246575119moz-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_-4233331014246575119moz-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_-4233331014246575119moz-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_-4233331014246575119moz-txt-link-freetext">Mendeley:www.mendeley.com/<wbr>profiles/alexandre-dos-<wbr>santos6/</a>
==============================<wbr>==============================<wbr>==========</pre>
</span><div><div class="h5"><div class="m_-4233331014246575119moz-cite-prefix">Em 04/05/2018 17:36, Cesar Rabak
escreveu:<br>
</div>
<blockquote type="cite">
<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.<wbr>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(l<wbr>oad.rot[,2]),decreasing=TRUE)]<wbr>[1:topN])
e names(load.rot[,3][order(abs(l<wbr>oad.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>
<p>Alexandre<br>
</p>
<pre class="m_-4233331014246575119m_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_-4233331014246575119m_4094510819290899030moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yaho<wbr>o.com.br</a>
<a class="m_-4233331014246575119m_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_-4233331014246575119m_4094510819290899030moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/13604032<wbr>01088680</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_-4233331014246575119m_4094510819290899030moz-txt-link-abbreviated" href="http://www.researchgate.net/profile/Alexandre_Santos10" target="_blank">www.researchgate.net/profile/A<wbr>lexandre_Santos10</a>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" target="_blank">br.linkedin.com/in/alexandre-d<wbr>os-santos-87961635</a>
<a class="m_-4233331014246575119m_4094510819290899030moz-txt-link-freetext">Mendeley:www.mendeley.com/prof<wbr>iles/alexandre-dos-santos6/</a>
==============================<wbr>==============================<wbr>==========</pre>
</span><span>
<div class="m_-4233331014246575119m_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>
</blockquote>
<br>
</div></div></div>
</blockquote></div><br></div>