<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Tenta assim Fernando,<br><br><span style="font-family:courier new,monospace">segplot(reorder(tratamento, media)~inferior+superior|fator, data=dados,<br>
        centers=media, draw.bands=FALSE, segments.fun=panel.arrows,<br>        ends='both', angle=90, length=1, unit='mm',<br>        panel=function(x, y, z, centers, subscripts, ...) {<br>            wp <- which.packet()<br>
            panel.rect(dadosAUX[wp,"xleft"], min(as.numeric(z))-1,<br>                       dadosAUX[wp,"xright"], max(as.numeric(z))+1,<br>                       fill=rgb(0.5,0.5,0.5,0.7), border=FALSE)<br>
            panel.segplot(x, y, z, centers=centers, subscripts=subscripts, ...)<br>        })</span><br><br>À disposição.<br>Walmes.<br><br></div></div>