我已经有了我的分析和图形的脚本，但我应该切换什么来改变条形的顺序？抱歉我的英语不好。
dados<- read.table("anova2.txt",h=T)
dados
attach(dados)
analise<- aov(dados$germ~dados$trat, data=dados)
summary(analise)
tapply(dados3$germ,dados3$trat, mean)
mean<- tapply(dados2$germ,dados2$trat, mean)
se<- tapply(dados$germ,dados$trat, function (x) sd(x/sqrt(length(x))))
grafico<-barplot(mean, beside=T, names.arg=c("C", "EM", "EQ", "CT","AG"),
xpd=F,ylim=c(0,100),
xlab="Tratamento", ylab="Taxa de Germinação (%)", cex.lab=1.3)
arrows(grafico, mean+se, grafico, mean, angle=90, code=1, length=0.1)
arrows(grafico, mean+se, grafico, mean-se, angle=90, code=3, length=0.1)