On Jul 19, 2011, at 5:40 AM, creamers wrote:
> Hi.....I am relatively new to R but was quite pleased with myself at
> having
> generated a series of lattice plots as PDFs. I was very surprised when
> plotting these out as jpegs (or png or tiff) that the strip title
> information above each lattice plot vanished. The pdf was fine. Has
> anybody
> any ideas? I can't add an image as the information is sensitive.
You have obviously advance far in you understanding of the
underpinnings of lattice plots, farther than I in many respects. I was
surprised, therefore, to see that you were directly accessing elements
of your data in the global environment. Generally lattice functions
work best when they are given data.frames as arguments.
The other (more specific to your problem) comment is that replacement
strip functions are generally constructed with the function
strip.custom(). I get the impression for the docs that this may be
required, but apparently you succeeded with single plot testing and it
may be a device issue, so I may be off base. You could still take a
look at the examples in the help page and see if using that wrapper
gets you better delivery of arguments to the operative code.
Obviously not able to do any testing, since you have not constructed a
minimal test dataframe. Device issues often require knowing OS and
other information that the Posting Guide requests you provide with
sessionInfo().
--
David.>
> Many Thanks
> Steve Creamer
>
> Here is the code snippet
>
> #jpeg("Z:\\My Documents\\PROJECTS\\Access
> Policy\\AccessDAPlots_1.jpg",height=600,width=600)
> pdf("Z:\\My Documents\\PROJECTS\\Access
Policy\\AccessDAPlots_1.pdf")
> #png("Z:\\My Documents\\PROJECTS\\Access
Policy\\AccessDAPlots_1.png")
> #tiff("Z:\\My Documents\\PROJECTS\\Access Policy\
> \AccessDAPlots_1.tiff")
> while (irec <= nrec)
> {
> con_new<-consultants[irec]
> spec_new<-specialty[irec]
> spec_cons_new<-spec_cons[irec]
>
> if (spec_cons_new!=spec_cons_old || irec==nrec )
> {
> strip_name[con_count]<-paste(spec_old,'\n',con_old)
> if (spec_new!=spec_old || irec==nrec)
> {
> spec_old<-spec_new
> }
> con_count<-con_count+1
> if (con_count > 36 || irec==nrec )
> {
>
> #
>
-------------------------------------------------------------------------------------------------
> # Use xyplot for the lattice - plot from iStartRec to irec
> each times
> - this will be 36 consultants
> # /specialties per device plot.
> #
>
-------------------------------------------------------------------------------------------------
>
>
> tplot<-xyplot(DAtotals[irecStart:(irec-1)]~dates[irecStart:(irec-1)]
>
> |spec_cons[irecStart:(irec-1)],group=nf[irecStart:
> (irec-1)],layout=c(6,6),
> type='b',as.table=TRUE,
> main=paste("Monthly Appts Provided After 1 DNA
> \n by
> Specialties/Consultants - ",iSuffix),
> auto.key = list(cex=0.5,lines=TRUE,
> points=FALSE,border = TRUE, x=0.05,y=0.90,corner=c(0,0)),
> ylab = "Number of Monthly Attended Appts
> Following a
> DNA ",xlab="Date",
> scales = list(x = list(rot =
90,format="%b-%y",
> cex=0.6)),xaxt="n",
> strip = function(which.panel,...)
> {
>
> panel.fill(trellis.par.get("strip.background")$col[1])
> type <- strip_name[which.panel]
> grid::grid.text(label = type,x = 0.5,
> y > 0.5,gp=grid::gpar(fontsize=5))
> grid::grid.rect()
> }
> )
> print(tplot) # plot the lattice plot
> con_count<-1
> irecStart<-irec
> iSuffix<-iSuffix+1 # create suffix
> if (irec != nrec)
> {
>
> # ------------------------------------------------
> # Open new device and direct to jpeg with new name
> # ------------------------------------------------
> dev.off()
> graphics.off() # turn graphics off to clear memory
> dev.new()
>
> # jpeg(paste("Z:\\My
> Documents\\PROJECTS\\AccessPolicy\
> \AccessDAPlots_",toString(iSuffix),".jpg",sep=""),
> # height=600,width=600)
> pdf(paste("Z:\\My Documents\\PROJECTS\\Access
>
Policy\\AccessDAPlots_",toString(iSuffix),".pdf",sep=""))
> # png(paste("Z:\\My Documents\\PROJECTS\\Access
>
Policy\\AccessDAPlots_",toString(iSuffix),".png",sep=""))
> # tiff(paste("Z:\\My Documents\\PROJECTS\\Access
>
Policy\\AccessDAPlots_",toString(iSuffix),".tiff",sep=""))
> }
> }
> con_old<-con_new
> spec_cons_old<-spec_cons_new
> }
> irec<-irec+1
> }
>
>
> --
> View this message in context:
http://r.789695.n4.nabble.com/Lattice-plot-problem-outputting-to-jpeg-tp3677705p3677705.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org 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.
David Winsemius, MD
West Hartford, CT