[R-br] Barchart ordenado

[Odirley Campos]

# 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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150120/5c9cd1c3/attachment.html>