[R-br] Ajuda para elaboração de boxplot em painel

[Walmes Zeviani]

Segue CMR.

library(latticeExtra)

Parts$Sample <- factor(Parts$Sample,
                       levels = unique(sort(Parts$Sample)))
str(Parts)

nlev <- function(x) nlevels(droplevels(x))

resizePanels(
    bwplot(Diam ~ Sample | Machine,
           data = Parts,
           pch = "|",
           layout = c(NA, 1),
           scales = list(x = list(relation = "free")),
           par.settings = list(
               box.rectangle = list(col = 1, fill = c("gray70")),
               box.umbrella = list(col = 1, lty = 1))),
    w = with(Parts, tapply(Sample, Machine, nlev)))

À disposição.
Walmes.
​
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20170503/4fc37e97/attachment.html>