<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Segue CMR.<br><br><span style="font-family:monospace,monospace">library(latticeExtra)<br><br>Parts$Sample <- factor(Parts$Sample,<br>                       levels = unique(sort(Parts$Sample)))<br>str(Parts)<br><br>nlev <- function(x) nlevels(droplevels(x))<br><br>resizePanels(<br>    bwplot(Diam ~ Sample | Machine,<br>           data = Parts,<br>           pch = "|",<br>           layout = c(NA, 1),<br>           scales = list(x = list(relation = "free")),<br>           par.settings = list(<br>               box.rectangle = list(col = 1, fill = c("gray70")),<br>               box.umbrella = list(col = 1, lty = 1))),<br>    w = with(Parts, tapply(Sample, Machine, nlev)))</span><br><br>À disposição.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Walmes.<br></div>​</div>