<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>