lattice: par.settings with standard.theme() + additional arguments?

On Jan 4, 2011, at 8:39 AM, Marius Hofert wrote:

Dear David,

this I already tried. But as you can see, the plot itself *is*  
colored. However, I want to have color = FALSE, so, unfortunately,  
this approach does not work...

Quite right. I didn't see that until you pointed it out. I had many  
failed attempts at a solution and then searched for prior positngs  
using par.settings and standard.theme and found one by Ehlers  
earlier this year that seems to work when modified to your ends:

xyplot(x ~ 1:10, type = "l", par.settings =  
modifyList(standard.theme(color = FALSE),
     list(par.xlab.text = list(cex = 5) )))

I had tried various constructions that I thought would be  
equivalent, but I think I was getting the levels of the list  
structure wrong. This also works:

xyplot(x ~ 1:10, type = "l", par.setting=c(list(par.xlab.text =  
list(cex = 5), standard.theme(color = FALSE))  )

Notice the use of c() rather than list() to bind them together. When  
I looked at the output of standard.theme(color=FALSE), there was no  
par.xlab.text element so it seemed as though there should be no  
conflict and in fact there wasn't (except for the asynchrony between  
my brain and the R interpreter.)

best;
David.

Cheers,

Marius

On 2011-01-04, at 14:32 , David Winsemius wrote:

On Jan 4, 2011, at 5:57 AM, Marius Hofert wrote:

Dear expeRts,

I usually use par.settings = standard.theme(color = FALSE) to  
create lattice graphics
without colors, so something like

library(lattice)
x <- runif(10)
xyplot(x ~ 1:10, type = "l", par.settings = standard.theme(color  
= FALSE))

Now I would like to use an additional component in par.settings.  
I tried several things
like

xyplot(x ~ 1:10, type = "l", par.settings =  
c(standard.theme(color = FALSE), list(par.xlab.text = list(cex =  
5, col = "blue"))))

but it doesn't work. I know I could use lattice.options() but is  
there a way to get it
right ("locally") with par.settings?

Add it as a list element:

xyplot(x ~ 1:10, type = "l", par.settings =  
list(standard.theme(color = FALSE), par.xlab.text = list(cex = 5,  
col = "blue")))

-- 

David Winsemius, MD
West Hartford, CT

David Winsemius, MD
West Hartford, CT