# Boa noite a todos!# Estou tentando criar graficos de barra utilizando a funções do pacote lattice KinA37.5<-KinA[[1]][5] #extraindo da lista de testes KinA37.5<-as.data.frame(KinA$`37.5`$groups) #de list para data.frame KinA37.5<-KinA37.5[sort(KinA37.5$trt,decreasing=T),] #ordenando por trt KinA37.5 #visualizando KinA50<-KinA[[2]][5] #extraindo da lista de testes KinA50<-as.data.frame(KinA$`50`$groups) #de list para data.frame KinA50<-KinA50[sort(KinA50$trt,decreasing=T),] #ordenando por trt KinA50 KinA62.5<-KinA[[3]][5] #extraindo da lista de testes KinA62.5<-as.data.frame(KinA$`62.5`$groups) #de list para data.frame KinA62.5<-KinA62.5[sort(KinA62.5$trt,decreasing=T),] #ordenando por trt KinA62.5 #---juntando em um único data----# resumoKinA<-rbind(KinA37.5,KinA50, KinA62.5) id<-as.factor(rep(c(37.5, 50, 62.5),each=5)) resumoKinA<-cbind(id,resumoKinA) resumoKinA ##--- graficando ---# require(lattice) barchart(means~trt|id, data=resumoKinA, horiz=FALSE, layout=c(3,1), ylim=c(0,max(resumoKinA$means*1.3)), panel=function(x, y, subscripts, ...){ panel.barchart(x, y, subscripts= subscripts,...) panel.text(x, y, label=resumoKinA[subscripts,"M"], pos=3) } ) # Mas as barras dentro de cada grafico não estão ordenadas como os dados em "means" no resumoKinA.# Existe alguma função para ordenar os dados dentro da função barchart?# Tentei sort e order, mas não consegui. # Antecipadamente agradeço! Odirley R. Campos Engenheiro Agrônomo UFV/MGDoutorando em Solos e Nutrição de Plantas UFV/MG Tell:(31)88452031