[R] trellis.focus with postscript device

From: Soukup, Mat <Mat.Soukup_at_fda.hhs.gov>
Date: Thu 20 Jul 2006 - 01:41:16 EST


First: R 2.3.1 on Windows XP.

I am trying to add information (sample size) to the Trellis strips which I am successful using the trellis.focus function with the default Windows device. However, I typically use the postscript device as I use LaTeX and \includegraphic for incorporating graphs into stat reviews.

Here's some example code (apologies for the lack of creativity and resemblance to a real example)

yy <- c(rnorm(20,2),rnorm(35,3), rnorm(30,2),rnorm(20,3),rnorm(4,2), rnorm(10,3))

xx <- c(1:20,1:35,1:30,1:20,1:4,1:10)
gg <- rep(c('A','B','A','B','A','B'), c(20,35,30,20,4,10))
pp <- rep(c('Cond 1','Cond 2','Cond 3'), c(55, 50, 14))

xyplot(yy ~ xx | pp, groups=gg)

trellis.focus('strip', 1, 1)
ltext(0,.5,'20',col='red', pos=4)
ltext(1,.5,'35',col='black', pos=2)

trellis.focus('strip', 2, 1)
ltext(0,.5,'30',col='red', pos=4)
ltext(1,.5,'20',col='black', pos=2)

trellis.focus('strip', 1, 2)
ltext(0,.5,'4',col='red', pos=4)
ltext(1,.5,'10',col='black', pos=2)

This works. But if I do,

# All code as above

I notice a problem with the graphic. When looking at the EPS figure, the only strip with added data is the first one (bottom left) with the strip still highlighted in red (i.e. it doesn't appear that trellis.unfocus() was executed). Work arounds that I can think of are to simply save the Windows device as postscript and save to the correct directory or better yet, write my own strip function. However, I was curious if there was another way using the strategy of postscript(), graph code, trellis.focus() code, dev.off().



Mat Soukup, Ph.D.
Food and Drug Administration
10903 New Hampshire Ave.
BLDG 22 RM 5329
Silver Spring, MD 20993-0002
Phone: 301.796.1005

        [[alternative HTML version deleted]]

R-help@stat.math.ethz.ch 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. Received on Thu Jul 20 03:05:04 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Thu 20 Jul 2006 - 04:17:44 EST.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.