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.ra...@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:nandodeso...@gmail.com
>> <https://n1.nylas.com/link/e28aad15389019c85551ba8cc4613f0873fcb8dda8de50184d40aeed3e24af26/0?redirect=mailto%3Ae-mail%253Anandodesouza%40gmail.com&recipient=r-br%40listas.c3sl.ufpr.br>
>> ==========================================
>>
>> 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 
>>> listr...@listas.c3sl.ufpr.brhttps://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:nandodeso...@gmail.com <e-mail%3anandodeso...@gmail.com>
Lattes: http://lattes.cnpq.br/6519538815038307
Blog: https://producaoanimalcomr.wordpress.com/
==========================================
_______________________________________________
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.

Responder a