Hello.
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.unfocus()
trellis.focus('strip', 2, 1)
ltext(0,.5,'30',col='red', pos=4)
ltext(1,.5,'20',col='black', pos=2)
trellis.unfocus()
trellis.focus('strip', 1, 2)
ltext(0,.5,'4',col='red', pos=4)
ltext(1,.5,'10',col='black', pos=2)
trellis.unfocus()
This works. But if I do,
postscript('C:/TEMP/example.eps')
# All code as above
dev.off()
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().
Thanks,
Mat
***********************************************************************
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]]
______________________________________________
[email protected] 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.
