# 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/MG
Doutorando em Solos e Nutrição de Plantas UFV/MG
Tell:(31)88452031