[R] latticeExtra: useOuterStrips and axis.line$lwd

[tyler]

Deepayan Sarkar <deepayan.sarkar at gmail.com> writes:

> On Tue, Apr 28, 2009 at 7:40 AM, tyler <tyler.smith at mail.mcgill.ca> wrote:
>> Hi,
>>
>> I'm working on some lattice wireframe figures that have two conditioning
>> factors, and I want the strips labelled on the top and left of the
>> entire plot, rather than above each individual panel. useOuterStrips()
>> does this, but it draws internal axis lines, even after I explicitly set
>> axis.line to 0. Is there a way to use useOuterStrips but without axis
>> boxes?
>
> Those are actually not axis lines, but the borders of the
> 0-width/height strips that still get drawn. Here's a modified
> useOuterStrips() that doesn't draw the strips, which I'll include in
> the next release (also, see below regarding lwd=0).

Wonderful, thanks! I discovered this afternoon that lwd=0 wasn't doing
what I wanted - it looked fine on screen, but the resulting eps/pdf
still had the lines. I resolved that problem by setting alpha = 0, which
I guess is the same as col = "transparent"?

Thanks again!

Tyler

>
> useOuterStrips <-
>     function(x,
>              strip = strip.default,
>              strip.left = strip.custom(horizontal = FALSE),
>              strip.lines = 1,
>              strip.left.lines = strip.lines)
> {
>     dimx <- dim(x)
>     stopifnot(inherits(x, "trellis"))
>     stopifnot(length(dimx) == 2)
>     opar <- if (is.null(x$par.settings)) list() else x$par.settings
>     par.settings <-
>         modifyList(opar,
>                    list(layout.heights =
>                         if (x$as.table) list(strip = c(strip.lines,
> rep(0, dimx[2]-1)))
>                         else list(strip = c(rep(0, dimx[2]-1), 1)),
>                         layout.widths =
>                         list(strip.left = c(strip.left.lines, rep(0,
> dimx[1]-1)))))
>     if (is.character(strip))
>         strip <- get(strip)
>     if (is.logical(strip) && strip)
>         strip <- strip.default
>     new.strip <-
>         if (is.function(strip))
>         {
>             top.row <- if (x$as.table) 1 else nrow(trellis.currentLayout())
>             function(which.given, which.panel, var.name, ...) {
>                 if (which.given == 1 && current.row() == top.row)
>                     strip(which.given = 1,
>                           which.panel = which.panel[1],
>                           var.name = var.name[1],
>                           ...)
>             }
>         }
>         else strip
>     if (is.character(strip.left))
>         strip.left <- get(strip.left)
>     if (is.logical(strip.left) && strip.left)
>         strip.left <- strip.custom(horizontal = FALSE)
>     new.strip.left <-
>         if (is.function(strip.left))
>         {
>             function(which.given, which.panel, var.name, ...) {
>                 if (which.given == 2 && current.column() == 1)
>                     strip.left(which.given = 1,
>                                which.panel = which.panel[2],
>                                var.name = var.name[2],
>                                ...)
>             }
>         }
>         else strip.left
>     update(x,
>            par.settings = par.settings,
>            strip = new.strip,
>            strip.left = new.strip.left,
>            par.strip.text = list(lines = 0.5),
>            layout = dimx)
> }
>
>
>> I've included a short example. I know the example looks odd without axis
>> lines, but in my more complicated wireframe plots I think the axis
>> lines are just extra clutter, so I'd like them to disappear.
>>
>> Thanks,
>>
>> Tyler
>>
>>
>> library(lattice)
>> my.trellis.pars <- trellis.par.get("axis.line")
>> my.trellis.pars$lwd = 0
>
> You should use
>
> my.trellis.pars$col = "transparent"
>
> (lwd=0 is not what you think it is).
>
> -Deepayan
>
>> mtcars$HP <- equal.count(mtcars$hp)
>>
>> trellis.par.set("axis.line", my.trellis.pars)
>> xyplot(mpg ~ disp | HP + factor(cyl), mtcars)
>>
>> useOuterStrips(xyplot(mpg ~ disp | HP + factor(cyl), mtcars))
>>
>> --
>> The purpose of models is not to fit the data but to sharpen the
>> questions.                             --Samuel Karlin
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

-- 
What is wanted is not the will to believe, but the will to find out,
which is the exact opposite.           --Bertrand Russell