Marcelo td bem?<div><br></div><div><span class="Apple-style-span" style="font-family: monospace; font-size: 13px; line-height: 17px; white-space: pre-wrap; "><pre style="white-space: pre-wrap !important; font-family: monospace; font-size: 10pt !important; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.3; ">
<span style="color: blue; ">dados=read.csv2(file.choose(),h=T,row.names=1)
</span><span style="color: blue; ">dados=t(dados)
</span><span style="color: blue; ">dados=as.data.frame(dados)
</span><span style="color: blue; ">dados.pca=rda(dados,scale=TRUE)
</span><span style="color: blue; ">summary(dados.pca)<br></span><span style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Arial; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; font-size: medium; "><span style="font-family: monospace; font-size: 13px; line-height: 17px; text-align: -webkit-left; white-space: pre-wrap; "><pre style="white-space: pre-wrap !important; font-family: monospace; font-size: 10pt !important; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.3; ">
<span style="color: blue; ">simbolos=c(rep(19,7),rep(2,7),rep(3,7))
</span><span style="color: blue; ">pdf("teste.pdf")</span></pre><pre style="white-space: pre-wrap !important; font-family: monospace; font-size: 10pt !important; outline-style: none; outline-width: initial; outline-color: initial; border-top-style: none; border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; line-height: 1.3; ">
<span style="color: blue; ">plot(dados.pca,type="none",xlab="PC1 = 36%",ylab="PC2 = 14%")
</span><span style="color: blue; ">points(dados.pca,display="sites",pch=simbolos)
</span><span style="color: blue; ">legend("topleft",c("D","Sd","Eg"),pch=c(19,2,3))</span></pre></span></span></pre></span><div>dev.off()</div><div><br></div><div><br></div><div>Abs</div>
<br><div class="gmail_quote">Em 10 de junho de 2011 10:36, Marcelo Claro de Souza <span dir="ltr"><<a href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<table cellspacing="0" cellpadding="0" border="0"><tbody><tr><td valign="top" style="font:inherit">Estou rodando umas PCAs utilizando o R studio no Ubuntu 11, utilizando o pacote vegan pelos seguintes comandos:<br><span style="border-collapse:separate;color:rgb(0, 0, 0);font-family:Arial;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><span style="font-family:Monospace;font-size:13px;line-height:17px;text-align:-webkit-left;white-space:pre-wrap"><pre style="font-family:Monospace;font-size:10pt !important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap !important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.3">
<span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">dados=read.csv2(file.choose(),h=T,row.names=1)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">dados=t(dados)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">dados=as.data.frame(dados)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">dados.pca=rda(dados,scale=TRUE)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">summary(dados.pca)<br></span><span style="border-collapse:separate;color:rgb(0, 0, 0);font-family:Arial;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:normal;line-height:normal;text-align:auto;text-indent:0px;text-transform:none;white-space:normal;word-spacing:0px;font-size:medium"><span style="font-family:Monospace;font-size:13px;line-height:17px;text-align:-webkit-left;white-space:pre-wrap"><pre style="font-family:Monospace;font-size:10pt !important;outline-style:none;outline-width:initial;outline-color:initial;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-width:initial;border-color:initial;white-space:pre-wrap !important;margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;line-height:1.3">
<span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">simbolos=c(rep(19,7),rep(2,7),rep(3,7))
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">plot(dados.pca,type="none",xlab="PC1 = 36%",ylab="PC2 = 14%")
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">points(dados.pca,display="sites",pch=simbolos)
</span><span style="white-space:pre-wrap;color:blue">> </span><span style="color:blue">legend("topleft",c("D","Sd","Eg"),pch=c(19,2,3))</span></pre></span></span></pre></span></span>A análise está rodando certinha, mas na hora de exportar a figura não aprece a legenda na figura. Nem exportando como pdf e nem como png.<br>
Tem algum comando errado?<br>Muito obrigado.<br><br></td></tr></tbody></table><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>
<br></blockquote></div><br><br clear="all"><br>-- <br><div>Guilherme Moraes Ferraudo</div><div>Jaboticabal/Campinas - SP</div><div><a href="http://lattes.cnpq.br/2096118558794430" target="_blank">http://lattes.cnpq.br/2096118558794430</a></div>
<br>
</div>