<div dir="ltr">Você viu o resumo na primeira resposta no link do SO que você postou?<div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, May 2, 2018 at 6:02 PM, ASANTOS via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Prezados Membros,<br>
<br>
Gostaria de selecionar as 5 variáveis resposta no primeiro componente principal mais correlacionadas usando a PCA, através da função prcomp(), conforme o post <a href="https://stats.stackexchange.com/questions/115032/how-to-find-which-variables-are-most-correlated-with-the-first-principal-compone" rel="noreferrer" target="_blank">https://stats.stackexchange.co<wbr>m/questions/115032/how-to-find<wbr>-which-variables-are-most-corr<wbr>elated-with-the-first-principa<wbr>l-compone</a>, sendo o meu CRM:<br>
<br>
##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])<br>
<br>
Então cheguei as variáveis resposta, mas gostaria que alguém me explicasse o por que disso fazendo um favor, pois quando utilizo os meus dados originais, são sempre as variáveis resposta com maior valor numérico que são selecionadas, mesmo utilizando a função scale().<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<br>
<br>
-- <br>
==============================<wbr>==============================<wbr>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT CEP: 78.200-000<br>
Fone: (+55) 65 99686-6970 (VIVO) (+55) 65 3221-2674 (FIXO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@yaho<wbr>o.com.br</a><br>
<a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<wbr>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" rel="noreferrer" target="_blank">http://lattes.cnpq.br/13604032<wbr>01088680</a><br>
OrcID: <a href="http://orcid.org/0000-0001-8232-6722" rel="noreferrer" target="_blank">orcid.org/0000-0001-8232-6722</a> - ResearcherID: A-5790-2016<br>
Researchgate: <a href="http://www.researchgate.net/profile/Alexandre_Santos10" rel="noreferrer" target="_blank">www.researchgate.net/profile/A<wbr>lexandre_Santos10</a><br>
LinkedIn: <a href="http://br.linkedin.com/in/alexandre-dos-santos-87961635" rel="noreferrer" target="_blank">br.linkedin.com/in/alexandre-d<wbr>os-santos-87961635</a><br>
Mendeley:<a href="http://www.mendeley.com/profiles/alexandre-dos-santos6/" rel="noreferrer" target="_blank">www.mendeley.com/prof<wbr>iles/alexandre-dos-santos6/</a><br>
==============================<wbr>==============================<wbr>==========<br>
<br>
______________________________<wbr>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e fornea cdigo mnimo reproduzvel.</blockquote></div><br></div>