<div dir="ltr"><span style="font-family:arial,sans-serif;font-size:13px">Oi Bianca,</span><div style="font-family:arial,sans-serif;font-size:13px"><br></div><div style="font-family:arial,sans-serif;font-size:13px">O script fica assim</div>
<div style="font-family:arial,sans-serif;font-size:13px"><br></div><div style="font-family:arial,sans-serif;font-size:13px"><div>require(stats)</div><div><br></div><div>dados=read.csv("Dados csv/15C.csv", h=T, row.names=1, sep=";")</div>
<div>dados</div><div><br></div><div>dados_sca <- scale(dados, center = FALSE)</div><div><br></div><div>pca <- prcomp(dados_sca, scale = TRUE)</div><div><br></div><div>plot(pca)</div><div><br></div><div>summary(pca)</div>
<div><br></div><div>prop_var <- round(100*(pca$sdev^2)/sum(pca$sdev^2), 1)[1L:2L]</div><div><br></div><div>suffix <- paste("(", prop_var, "%)", sep = "")</div><div>prefix = "Componente"</div>
<div>pcalab <- paste(prefix, 1:2, suffix, sep = " ")</div><div><br></div><div>xlab = pcalab[1L]</div><div>ylab = pcalab[2L]</div><div><br></div><div><br></div><div>biplot(pca, col = c("black", "blue"), main="ACP - Análise de Componente Principais", xlab = xlab, ylab = ylab)</div>
</div><div style="font-family:arial,sans-serif;font-size:13px"><br></div><div style="font-family:arial,sans-serif;font-size:13px">att.</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2014-08-10 20:42 GMT-03:00 Bianca Schindler <span dir="ltr"><<a href="mailto:bia.schindler@gmail.com" target="_blank">bia.schindler@gmail.com</a>></span>:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_quote"><div dir="ltr">Olá pessoal!<div><br></div><div>Meu nome é Bianca Schindler, sou mestranda em Engenharia Florestal pela UFSM.</div>
<div>Estou tentando realizar uma PCA ou ACP (análise de componentes principais) com alguns dados da minha dissertação, porém no gráfico da ordenação os vetores que seriam os descritores estão muito aglomerados de forma que não é possível observá-los. Gostaria de expandir estes eixos para poder observar quais são os respectivos "descritores" dos "objetos". Neste caso, os dados que trabalho os descritores seriam constituintes químicos do óleo essencial e os objetos os órgãos vegetais de onde foram extraídos.</div>


<div><br></div><div>O pacote utilizado é o "<i>stats</i>"</div><div>O scrip utilizado segue abaixo:</div><div><br></div><div>#Principal Components Analysis</div><div>getwd()</div><div>dir()</div><div>dados=read.csv("dados.csv", h=T, row.names=1, sep=";")</div>


<div>dados</div><div>require(stats)</div><div>prcomp(dados, scale = FALSE)</div><div>plot(prcomp(dados))</div><div>summary(prcomp(dados, scale = FALSE))</div><div>biplot(prcomp(dados), col = c("black", "blue"), main="ACP - Análise de Componente Principais", xlab = "Componente 1(colocar a proporção da variância%)", ylab = "Componente 2 (colocar a proporção da variância%)") </div>


<div><br></div><div>Em anexo segue a imagem da ordenação. Onde em azul são os vetores aglomerados (descritores), os quais quero expandir. As demais siglas são os objetos.</div><div><div><br></div>Obs: Caso alguém precise dos dados, segue o link: <a href="http://www.datafilehost.com/d/29e3f3bc" target="_blank">http://www.datafilehost.com/d/29e3f3bc</a>.<div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%">


</div>
</div><div><br></div><div>Agradeço a atenção e qualquer ajuda.</div><div><br></div><div>Atenciosamente, </div><span class="HOEnZb"><font color="#888888"><span><font color="#888888"><div><br></div><div>Bianca Schindler.</div>
</font></span></font></span></div><span class="HOEnZb"><font color="#888888">
</font></span></div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><div><br></div>-- <br><font>Bianca Schindler.<br>Mestranda em Engenharia Florestal - UFSM.<br>Laboratório de Extrativos Vegetais (LABEVE)<br>
Tel: <a href="tel:%2855%29%209661-7429" value="+15596617429" target="_blank">(55) 9661-7429</a>.</font><br><div style="padding:0px;margin-left:0px;margin-top:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%">

</div>
</font></span></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a 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>
Leia o guia de postagem (<a 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.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr"><span style="color:rgb(34,34,34);font-family:arial,sans-serif;font-size:13px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:start;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;display:inline!important;float:none;background-color:rgb(255,255,255)">Alisson Lucrecio da Costa</span></div>

</div>