R help - Mar 2014 - Specifying strip.names in Lattice plots

I've read Deepayan's book, ?strip, and ?strip.default, without learning
how to specify strip names on xyplots. The following command produces the
attached plot:

xyplot(cbind(dalles.disch.ts, dalles.temp.ts), strip.left, main = "Columbia
River @ The Dalles", xlab = "Date (Year.Month)", ylab =
c("Temperature
(C)","Discharge (cfs)"))

   However, when I try to specify names for each strip using panel functions
I either get a blank plot or error messages. What I want to learn how to do
is either 1) put the ylab in the strip or 2) eliminate the strip as
redundant.

TIA,

Rich


-------------- next part --------------
A non-text attachment was scrubbed...
Name: col-riv-ts.pdf
Type: application/pdf
Size: 12943 bytes
Desc: 
URL:
<https://stat.ethz.ch/pipermail/r-help/attachments/20140304/bca6ed23/attachment.pdf>

Hi Rich

The first arguments for strip.default are

which.given, which.panel, var.name, factor.levels,

which means they take the names from the factors of each strip

without  a reproducible example here is something that may help

  data(esoph)
  
  levels(esoph$alcgp)


  xyplot(ncontrols ~ncases|alcgp, esoph,
         as.table = TRUE,
           par.settings = list(strip.background = list(col =
"transparent"),
                               axis.text = list(cex = 0.65),
                               par.xlab.text = list(cex = 0.75),
                               par.ylab.text = list(cex = 0.75)
                          ),
          scales   = list(x = list(alternating = FALSE,
                                   relation    = "same",
                                   rot         = 0),
                          y = list(alternating = FALSE,
                                    relation    = "same",
                                    rot         = 0)
                     ),
           strip    = strip.custom(factor.levels =
paste(gsub("[a-z/]","",
levels(esoph$alcgp)), "g/day"),
                                   par.strip.text = list(cex = 0.65) ),
         )

If you have multiple conditioning see 

library(latticeExtra)
?useOuterStrips

which have the arguments strip and strip.left there and you fill the text
there
levels(esoph$alcgp))

  useOuterStrips(strip      = strip.custom(factor.levels
paste(gsub("[a-z/]","", levels(esoph$alcgp)),
"g/day"),
                                           par.strip.text = list(cex 0.75)),
                 strip.left = strip.custom(factor.levels
as.character(levels(esoph$agegp)),
                                           par.strip.text = list(cex 0.75)),
  xyplot(ncontrols ~ncases|alcgp*agegp, esoph,
         as.table = TRUE,
           par.settings = list(strip.background = list(col =
"transparent"),
                               axis.text = list(cex = 0.65),
                               par.xlab.text = list(cex = 0.75),
                               par.ylab.text = list(cex = 0.75)
                          ),
          scales   = list(x = list(alternating = FALSE,
                                   relation    = "same",
                                   rot         = 0),
                          y = list(alternating = FALSE,
                                    relation    = "same",
                                    rot         = 0)
                     ),
         )
  ) ## useOuterStrips

Duncan

Duncan Mackay
Department of Agronomy and Soil Science
University of New England
Armidale NSW 2351
Email: home: mackay at northnet.com.au


-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
On
Behalf Of Rich Shepard
Sent: Wednesday, 5 March 2014 05:49
To: r-help at r-project.org
Subject: [R] Specifying strip.names in Lattice plots

   I've read Deepayan's book, ?strip, and ?strip.default, without
learning
how to specify strip names on xyplots. The following command produces the
attached plot:

xyplot(cbind(dalles.disch.ts, dalles.temp.ts), strip.left, main = "Columbia
River @ The Dalles", xlab = "Date (Year.Month)", ylab =
c("Temperature
(C)","Discharge (cfs)"))

   However, when I try to specify names for each strip using panel functions
I either get a blank plot or error messages. What I want to learn how to do
is either 1) put the ylab in the strip or 2) eliminate the strip as
redundant.

TIA,

Rich

On Tue, 4 Mar 2014, Rich Shepard wrote:
> What I want to learn how to do is either 1) put the ylab in the strip or
> 2) eliminate the strip as redundant.
   The latest iteration, and the accompanying warning message:

xyplot(cbind(dalles.disch.ts, dalles.temp.ts), main = "Columbia River @ The
Dalles", xlab = "Date (Year.Month)", ylab = c("Temperature
(C)","Discharge
(cfs)"), strip = FALSE, strip.left = strip.custom(par.strip.text
trellis.par.get(c("Mean Temperature","Mean Discharge"))))

Warning message: In if (name %in% names(lattice.theme[[.Device]]))
lattice.theme[[.Device]][[name]] else NULL :
   the condition has length > 1 and only the first element will be used

   Please correct the syntax in the xyplot() function so the two strips have
the desired text.

Thanks,

Rich