
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

Rodrigo, O comando plot (groups) do agricolae é um barplot especializado que pega as médias do objeto retornado por LSD.test (no seu caso o 'comparison'). Você pode plotar as médias achando dentro dele onde elas estão armazenadas. No caso do objeto em questão elas estão em comparison$groups e comparison$means, onde você pode pegar os valores de faixa, SE, mín, máx, etc. HTH -- Cesar Rabak 2018-02-02 14:38 GMT-02:00 Rodrigo Simetti via R-br < r-br@listas.c3sl.ufpr.br>:
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.

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

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 <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-br@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:nandodesouza@gmail.com <e-mail%3Anandodesouza@gmail.com> Lattes: http://lattes.cnpq.br/6519538815038307 Blog: https://producaoanimalcomr.wordpress.com/ ==========================================
participantes (4)
-
Cesar Rabak
-
Fernando Antonio de souza
-
Fernando Souza
-
Rodrigo Simetti