You might want to look at the dev.copy function. I just tried with your example and the postscript device, used the print(plot) command with the postscript device open, then switched to the windows graphics device and did dev.copy then closed the postscript file, the result had 2 pages, the first like you described looked different from the screen, the 2nd (from dev.copy) had the same colors and general appearance (I did not compare super closely) as the plot on the screen.
Hope this helps, -- Gregory (Greg) L. Snow Ph.D. Statistical Data Center Intermountain Healthcare greg.s...@imail.org 801.408.8111 > -----Original Message----- > From: r-help-boun...@r-project.org [mailto:r-help-boun...@r- > project.org] On Behalf Of Dimitri Liakhovitski > Sent: Monday, February 16, 2009 10:14 AM > To: R-Help List > Subject: [R] Printing out a graph using different graphics devices > > Hello, everyone! > The code below allows me to produce the graph I want (I know - the > colors are strange, but it's just for the sake of an example). > After you run the plot<- part and then do print(plot) - that's what I > want. > However, when I run the bits of code below (with graphics devices) - > what they print is different from the original plot. In .png, .emf, > and .tiff - my dots change their shape and my lines (I think) become > thinner. And in .ps format - the dots stay what they are supposed to > be but they change their color. > Could you please explain to me what the reasons are for those changes? > Also - should I specify my chart characteristics differently depending > on the device I'll be using? > Thank you very much! > Dimitri > > library(lattice) > d=data.frame(xx=c(2.2,2.1,3.3),yy=c(0.1,0.2,0.3),zz=c(2.5,2.0,1.8)) > d[[2]]<-as.factor(as.numeric((d[[2]]))) > > trellis.par.set(superpose.line = list(col=c("green","red"), lwd = 2), > superpose.symbol = list(col=c("yellow","blue"),cex = > 1.3, pch = 20), > reference.line = list(col = "gray", lty ="dotted")) > > plot<-dotplot(c(d[[1]],d[[3]])~rep(d[[2]],2), > groups=rep(c("Group 1","Group 2"), each=nrow(d)), > main=list("Chart Title",cex=1), > > type="b", > auto.key = list(space = "top", points = TRUE, lines = TRUE), > > xlab=list("Title for X",cex=.9,font=2), > ylab=list("Title for Y",cex=.9,font=2), > > panel = function(y,x,...) { > panel.grid(h = -1, v = -1) > panel.xyplot(x, y, ...) > > ltext(x, y, labels=round(y,3), > cex=.8,col="black",font=2, > adj=c(-0.2,1)) > > }) > print(plot) > > win.metafile(file="test.emf") > print(plot) > dev.off() > > postscript(file="test.ps") > print(plot) > dev.off() > > png(file="test.png") > print(plot) > dev.off() > > tiff(file="test.tiff") > print(plot) > dev.off() > > -- > Dimitri Liakhovitski > MarketTools, Inc. > dimitri.liakhovit...@markettools.com > > ______________________________________________ > R-help@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. ______________________________________________ R-help@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.
