<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:13px"><div dir="ltr" id="yui_3_16_0_1_1421717780178_7373"><span id="yui_3_16_0_1_1421717780178_7397"># Boa noite a todos!</span></div><div id="yui_3_16_0_1_1421717780178_7398" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"># Estou tentando criar graficos de barra utilizando a funções do pacote lattice</span></div><div id="yui_3_16_0_1_1421717780178_7402" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"><br></span></div><div id="yui_3_16_0_1_1421717780178_7478" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397">KinA37.5<-KinA[[1]][5] #extraindo da lista de testes<br style="" class="">KinA37.5<-as.data.frame(KinA$`37.5`$groups) #de list para data.frame<br style="" class="">KinA37.5<-KinA37.5[sort(KinA37.5$trt,decreasing=T),] #ordenando por trt<br style="" class="">KinA37.5 #visualizando</span></div><div id="yui_3_16_0_1_1421717780178_7579" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"><br></span></div><div id="yui_3_16_0_1_1421717780178_7580" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397">KinA50<-KinA[[2]][5] #extraindo da lista de testes<br style="" class="">KinA50<-as.data.frame(KinA$`50`$groups) #de list para data.frame<br style="" class="">KinA50<-KinA50[sort(KinA50$trt,decreasing=T),] #ordenando por trt<br style="" class="">KinA50</span></div><div id="yui_3_16_0_1_1421717780178_7582" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"><br></span></div><div id="yui_3_16_0_1_1421717780178_7583" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397">KinA62.5<-KinA[[3]][5] #extraindo da lista de testes<br style="" class="">KinA62.5<-as.data.frame(KinA$`62.5`$groups) #de list para data.frame<br style="" class="">KinA62.5<-KinA62.5[sort(KinA62.5$trt,decreasing=T),] #ordenando por trt<br style="" class="">KinA62.5<br style="" class=""></span></div><div id="yui_3_16_0_1_1421717780178_7489" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"><br></span></div><div id="yui_3_16_0_1_1421717780178_7490" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397">#---juntando em um único data----#<br style="" class="">resumoKinA<-rbind(KinA37.5,KinA50, KinA62.5)<br style="" class="">id<-as.factor(rep(c(37.5, 50, 62.5),each=5))<br style="" class="">resumoKinA<-cbind(id,resumoKinA)<br style="" class="">resumoKinA</span></div><div id="yui_3_16_0_1_1421717780178_7511" dir="ltr"><br><span id="yui_3_16_0_1_1421717780178_7397"></span></div><div id="yui_3_16_0_1_1421717780178_7498" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397">##--- graficando ---#<br style="" class="">require(lattice)<br style="" class="">barchart(means~trt|id, data=resumoKinA, horiz=FALSE, layout=c(3,1),<br style="" class=""> ylim=c(0,max(resumoKinA$means*1.3)),<br style="" class=""> panel=function(x, y, subscripts, ...){<br style="" class=""> panel.barchart(x, y, subscripts= subscripts,...)<br style="" class=""> panel.text(x, y, label=resumoKinA[subscripts,"M"], pos=3)<br style="" class=""> }<br style="" class=""> )</span></div><div id="yui_3_16_0_1_1421717780178_7520" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7550" class="" style="color: blue; ">
</span> </div><div id="yui_3_16_0_1_1421717780178_7549" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7548" class="" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: 'Lucida Console'; font-size: 13px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: 15px; orphans: 2; text-align: -webkit-left; text-indent: 0px; text-transform: none; white-space: pre-wrap; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; background-color: rgb(225, 226, 229); "></span><br><span id="yui_3_16_0_1_1421717780178_7397"></span></div><div id="yui_3_16_0_1_1421717780178_7521" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"># Mas as barras dentro de cada grafico não estão ordenadas como os dados em "means" no resumoKinA.</span></div><div id="yui_3_16_0_1_1421717780178_7522" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"># Existe alguma função para ordenar os dados dentro da função barchart?</span></div><div id="yui_3_16_0_1_1421717780178_7566" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"># Tentei sort e order, mas não consegui.<br></span></div><div id="yui_3_16_0_1_1421717780178_7443" dir="ltr"># Antecipadamente agradeço!<br><span id="yui_3_16_0_1_1421717780178_7397"></span></div><div id="yui_3_16_0_1_1421717780178_7442" dir="ltr"><span id="yui_3_16_0_1_1421717780178_7397"></span></div><div id="yui_3_16_0_1_1421717780178_7372"> </div><div id="yui_3_16_0_1_1421717780178_7370" class="signature"><div id="yui_3_16_0_1_1421717780178_7371" style="text-align:center;">Odirley R. Campos<br>Engenheiro Agrônomo UFV/MG</div><div id="yui_3_16_0_1_1421717780178_7369" style="color:rgb(0, 0, 0);font-size:13px;font-family:arial, helvetica, clean, sans-serif;background-color:transparent;font-style:normal;text-align:center;">Doutorando em Solos e Nutrição de Plantas UFV/MG<br>Tell:(31)88452031</div></div></div></body></html>