<div dir="ltr">Jackson,<div><br></div><div>Eu tenho bastante experiência com ACP no R, tanto usando as funções do pacote base, como o do FactoMiner e ADE, mas não do vegan, e portanto minha observação pode ser incorreta:</div><div><br></div><div>Você parece estar misturando duas soluções de produção de gráficos do R, o vegan usa o lattice e você quer que ele use um objeto que define cores do plotrix.</div><div><br></div><div>Examinando seu CMR eu consegui fazer algo que <i>creio</i> seja o que você deseja desta forma:</div><div><br></div><div>> plot(test.pca,display="sites", cex=1, type="none",scaling=-3)<br></div><div>> points(test.pca,display="sites", cex=1, scaling=-3, col=agecol)<br></div><div><br></div><div>Não consigo interpretar o resultado para ver se as cores fazem sentido 🤔. . .</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">2016-05-24 11:42 GMT-03:00 Jackson Rodrigues <span dir="ltr"><<a href="mailto:jacksonmrodrigues@gmail.com" target="_blank">jacksonmrodrigues@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p dir="ltr">Oi pessoal,</p>
<p dir="ltr">Eu preciso fazer um PCA que varie as cores em função dos anos. O mais antigo em vermelho e a medida que chega as datas mais recentes vai ficando roxo (uma escala de cor).</p>
<p dir="ltr">eu tenho esse exemplo hipotético.</p>
<p dir="ltr">mat5 <- matrix(rnorm(2000), ,4) # minha matriz<br>
mat5<br>
ages<-seq(1, 50000, by = 100) #idades<br>
ages</p>
<p dir="ltr">library(plotrix)<br>
agecol<-color.scale(ages,extremes=c("purple","red")) # encaixando a escala de cor nas idades</p>
<p dir="ltr">rownames(mat5) <- c(seq ) # fazendo as idades os nomes da linhas da matriz</p>
<p dir="ltr">library("vegan")<br>
test.pca<-rda(mat5) # calculando componentes principais <br>
plot(test.pca,display="sites", cex=1, type="p",scaling=-3) # plotando componentes princiapais.</p>
<p dir="ltr">O problema é: Como fazer os pontos do gráfico ficarem coloridos como estabelecido  em " agecol<-color.scale(ages,extremes=c("purple","red")) "</p>
<p dir="ltr">Agradeço desde já a ajuda</p>
<p dir="ltr">Abraços<span class="HOEnZb"><font color="#888888"><br>
Jackson</font></span></p>
<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" rel="noreferrer" 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" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>