<div dir="ltr">Espero que ajude.<br><br>library(agricolae)<br>data(sweetpotato)<br>model<-aov(yield~virus,data=sweetpotato)<br>comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)<br>dados <- comparison$means<br>library(tibble)<br>dados <- rownames_to_column(dados, "TRAT")<br>dados <- rownames_to_column(dados, "ID")<br>dados<-data.frame(dados)<br>dados$ID<-as.numeric(as.factor(dados$ID))<br>par(bty="l",ljoin="mitre")<br>with(dados,plot(dados[,"yield"]~ID,las=1,ylab="Yield",axes=FALSE,xlab="Tratamento",xaxt = "n",type="p",ylim=range(c(Min,Max+10)),dados,pch=19))<br>axis(1, at=1:4, labels=c("cc","fc","ff","oo"),pos=5)<br>axis(2)<br>arrows(dados[,"ID"], dados[,"Min"],col=c("blue","blue","red","green"), dados[,"ID"], dados[,"Max"], length=0.05, angle=180, code=3)<br>text(c(1,2,3,4),c(34,22,47,46),labels=c("ab","b","a","a"))<br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 2 de fevereiro de 2018 17:14, Cesar Rabak <span dir="ltr"><<a href="mailto:cesar.rabak@gmail.com" target="_blank">cesar.rabak@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Fernando, <div><br></div><div>É um bom começo, mas ainda não fica igual ao plot.group. . .🤔</div></div><div class="gmail_extra"><br><div class="gmail_quote"><div><div class="h5">2018-02-02 16:49 GMT-02:00 Fernando Antonio de souza 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>:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div>Para ficar igual a saída da função plot.group é necessário formatar alguns parametros par()</div><div><br></div>model<-aov(yield~virus,data=da<wbr>dos)<span><br>comparison<- LSD.test(model,"virus",alpha=0<wbr>.01,group=TRUE)<br></span>dados <- comparison$groups<br><br>with(dados,barplot(dados[,1][c<wbr>(3,4,2,1)],names.arg = c("cc","fc","ff","oo")))<br><br><u></u>==============================<wbr>===========<br>Fernando Souza<br>Celular: (31)99796-8781 (Vivo)<br><a href="https://n1.nylas.com/link/e28aad15389019c85551ba8cc4613f0873fcb8dda8de50184d40aeed3e24af26/0?redirect=mailto%3Ae-mail%253Anandodesouza%40gmail.com&recipient=r-br%40listas.c3sl.ufpr.br" style="background-color:rgb(255,255,255);outline:0px" target="_blank">E-mail:nandodesouza@gmail.com</a><br>==============================<wbr>============<u></u><img class="m_-624232765774780805m_509068315640414047n1-open" style="border:0;width:0;height:0" src="https://n1.nylas.com/open/e28aad15389019c85551ba8cc4613f0873fcb8dda8de50184d40aeed3e24af26?recipient=r-br%40listas.c3sl.ufpr.br" width="0" height="0">
          <div class="gmail_quote m_-624232765774780805m_509068315640414047nylas-quote m_-624232765774780805m_509068315640414047nylas-quote-id-837adff6b284bb1ca8f41fc7de69d44cb332a70b19259ecc87652b566c9d6eff"><div><div class="m_-624232765774780805h5">
            <br>
            On Fev 2 2018, at 2:38 pm, Rodrigo Simetti via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> wrote:
            <br>
            </div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="m_-624232765774780805h5">
              <div dir="ltr">Prezados,<div><br></div><div>Alguém saberia como posso reordenar a sequência do eixo X ao utilizar o plot.group() do pacote agricolae? O padrão do comando é plotar da maior média para a menor, mas preciso plotar em sequência alfabética. </div><div>Utilizando o exemplo do próprio pacotes temos como resultado a sequência oo, ff, cc e fc. Gostaria que fosse cc, fc, ff e oo. </div><div><br></div><div><br></div><div><div>library(agricolae)</div><div>data(sweetpotato)</div><div>model<-aov(yield~virus,data=sw<wbr>eetpotato)</div><div>comparison<- LSD.test(model,"virus",alpha=0<wbr>.01,group=TRUE)</div><div>plot(comparison)</div><div><br></div><div><br></div>-- <br><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><div dir="ltr"><b>Rodrigo Simetti<br></b><div style="color:rgb(136,136,136);font-size:12.8px"><div dir="ltr">Engenheiro Industrial Madeireiro - UFPR<br>Mestre em Engenharia Florestal - UFPR<br>Doutorando em Ciência e Tecnologia da Madeira - UFLA</div><div dir="ltr"><br></div><div><span style="color:rgb(0,0,0);font-family:Arial">(41) 9 8870 0587 </span><br></div></div><div style="color:rgb(136,136,136);font-size:12.8px"><span style="color:rgb(0,0,0);font-family:Arial">(35) 9 9859 3966</span></div><div style="color:rgb(136,136,136);font-size:12.8px">Skype: rsimetti</div></div></div></div></div></div></div></div></div></div>
</div></div>
</div></div><pre class="m_-624232765774780805m_509068315640414047nylas-plaintext">______________________________<wbr>_________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi<wbr>-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-g<wbr>uia</a>) e forne�a c�digo m�nimo reproduz�vel.</pre>
            </blockquote>
          </div>
<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></div></div>
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 forneça código mínimo reproduzível.<br></blockquote></div><br></div>
</blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div>