Valeu Walmes... na médida! Obrigado!
On 2 December 2013 07:51, walmes . <[email protected]> wrote: > Tenta assim Fernando, > > segplot(reorder(tratamento, media)~inferior+superior|fator, data=dados, > centers=media, draw.bands=FALSE, segments.fun=panel.arrows, > ends='both', angle=90, length=1, unit='mm', > panel=function(x, y, z, centers, subscripts, ...) { > wp <- which.packet() > panel.rect(dadosAUX[wp,"xleft"], min(as.numeric(z))-1, > dadosAUX[wp,"xright"], max(as.numeric(z))+1, > fill=rgb(0.5,0.5,0.5,0.7), border=FALSE) > panel.segplot(x, y, z, centers=centers, subscripts=subscripts, > ...) > }) > > À disposição. > Walmes. > > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça > código mínimo reproduzível. >
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
