Espero que ajude.

library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
dados <- comparison$means
library(tibble)
dados <- rownames_to_column(dados, "TRAT")
dados <- rownames_to_column(dados, "ID")
dados<-data.frame(dados)
dados$ID<-as.numeric(as.factor(dados$ID))
par(bty="l",ljoin="mitre")
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))
axis(1, at=1:4, labels=c("cc","fc","ff","oo"),pos=5)
axis(2)
arrows(dados[,"ID"], dados[,"Min"],col=c("blue","blue","red","green"), dados[,"ID"], dados[,"Max"], length=0.05, angle=180, code=3)
text(c(1,2,3,4),c(34,22,47,46),labels=c("ab","b","a","a"))

Em 2 de fevereiro de 2018 17:14, Cesar Rabak <cesar.rabak@gmail.com> escreveu:
Fernando, 

É um bom começo, mas ainda não fica igual ao plot.group. . .🤔

2018-02-02 16:49 GMT-02:00 Fernando Antonio de souza via R-br <r-br@listas.c3sl.ufpr.br>:
Para ficar igual a saída da função plot.group é necessário formatar alguns parametros par()

model<-aov(yield~virus,data=dados)
comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
dados <- comparison$groups

with(dados,barplot(dados[,1][c(3,4,2,1)],names.arg = c("cc","fc","ff","oo")))

=========================================
Fernando Souza
Celular: (31)99796-8781 (Vivo)
E-mail:nandodesouza@gmail.com
==========================================

On Fev 2 2018, at 2:38 pm, Rodrigo Simetti via R-br <r-br@listas.c3sl.ufpr.br> wrote:
Prezados,

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. 
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. 


library(agricolae)
data(sweetpotato)
model<-aov(yield~virus,data=sweetpotato)
comparison<- LSD.test(model,"virus",alpha=0.01,group=TRUE)
plot(comparison)


--
Rodrigo Simetti
Engenheiro Industrial Madeireiro - UFPR
Mestre em Engenharia Florestal - UFPR
Doutorando em Ciência e Tecnologia da Madeira - UFLA

(41) 9 8870 0587 
(35) 9 9859 3966
Skype: rsimetti
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forne�a c�digo m�nimo reproduz�vel.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.




--
=========================================
Fernando Souza
Zootecnista, DSc. Produção e Alimentação Animal
Celular: (31)99796-8781 (Vivo)
E-mail:nandodesouza@gmail.com
Lattes: http://lattes.cnpq.br/6519538815038307
Blog: https://producaoanimalcomr.wordpress.com/
==========================================