doubleYScale from latticeExtra, problems with style

Hi:

This *partially* works, although I don't see why it shouldn't work

update(sd,
    par.settings = list(axis.text = list(cex = 1.2),
                        par.ylab.text = list(cex = 1.5)))

It fixes the y-axis text sizes, but it doesn't fix the size of the
Y-variable names. See pp. 125-126 of the Lattice book for a
description.

Dennis

On Tue, Aug 5, 2014 at 10:22 AM, Troels Ring <tring at gvdnet.dk> wrote:

Dear friends - below is a small example showing a problem I have
understanding doubleYScale from latticeExtra -
R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

Both obj1 and obj2 are formatted as I wanted - but when combined the
formatting is lost. How comes?
Best wishes
Troels Ring
Aalborg, Denmark

library(latticeExtra)
T <- seq(1,200,length=100)
Y1 <- 10+2*T+0.05*T^2 + rnorm(100,0,40)
Y2 <- 0.1 + sqrt(T)+rnorm(100,1,1)
tesobj <- data.frame(T=T,Y1=Y1,Y2=Y2)


obj1 <-
xyplot(Y1~T,tesobj,xlab=list(label="Time",cex=1.5),ylab=list(label="Y1",
cex=1.5),scales=list(y=list(cex=1.2),x=list(cex=1.2)),
panel = function(x,y,...){
panel.xyplot(x,y,...,pch=19)
panel.loess(x,y,...,lwd=3)
})
obj1

obj2 <-
xyplot(Y2~T,tesobj,xlab=list(label="Time",cex=1.5),ylab=list(label="Y2",
cex=1.5),scales=list(y=list(cex=1.2),x=list(cex=1.2)),
panel = function(x,y,...){
panel.xyplot(x,y,...,pch=20)
panel.loess(x,y,...,lwd=3)})
obj2

(sd <- doubleYScale(obj1,obj2,add.ylab2=TRUE))

(sd1 <- doubleYScale(obj1,obj2,add.ylab2 = TRUE, use.style = FALSE))

update(sd1,
     par.settings = list(axis.text = list(cex = 1.2),
                         par.ylab.text = list(cex = 1.5)))