On Wed, 2009-08-12 at 23:36 -0400, Scott Sherrill-Mix wrote: > I don't really use Word or .wmf but maybe try a high pixel count .png e.g. > png('test.png',height=480*5,width=480*5,res=72*5) > plot(1:10, col = "red", bg = "grey", pch=21, cex =1.7) > dev.off() > > > Scott
An EPS is likely to give better resolution if the document is intended to be printed. An EPS image will likely also have a much smaller file size, if that is important. One problem with EPS files in Word is that, at least in the versions I have used (up to Office 11), Word displays a low resolution preview of the image on screen, so it doesn't look quite so good on screen, but printing is fine. Jason, did you print your document containing the wmf? What you might be seeing could just be the effects of antialiasing or some other processing going on to display the image in Word on screen and not be present in the printed version. To get an eps, use postscript() with 'paper' and 'onefile' set appropriately eps('test.eps' height = 6, width = 7, pointsize = 10, paper = "special", onefile = FALSE) ## plotting dev.off() HTH G > > Scott Sherrill-Mix > Department of Microbiology > University of Pennsylvania > 402B Johnson Pavilion > 3610 Hamilton Walk > Philadelphia, PA 19104-6076 > > > > On Wed, Aug 12, 2009 at 6:17 PM, Jason Rupert<jasonkrup...@yahoo.com> wrote: > > This worked great. > > > > > > Regarding the second question - can you expound a bit more on the effect of > > the device? Right now, as shown by the test code because I am on a Windows > > machine and need to import the image to Word I am using WMF. Is there a > > better device that I should use that will help with the presolution of the > > points that are drawn? For example, I can see white pixesl on the blue > > circles, and notice that is not a perfect circle. Thanks for any > > information about a better way to go: > > > > win.metafile(file=as.character(figure_file_name_and_path), pointsize = 10) > > plot(-4:4, -4:4, type = "n")# setting up coord. system > > points(vals_201, vals_200, col = "red", bg = "grey", pch=21, cex =1..7) > > #points(vals_201, vals_200, col = "grey", bg = "white", pch=21, cex =1.5) > > points(rnorm(100)/2, rnorm(100)/2, col = "blue", bg = "blue", pch=21, cex > > =1.5) > > dev.off() > > > > > > Thanks again. > > > > --- On Wed, 8/12/09, Sarah Goslee <sarah.gos...@gmail.com> wrote: > > > >> From: Sarah Goslee <sarah.gos...@gmail.com> > >> Subject: Re: [R] Another Plotting Hint - changing fill color for points > >> To: "Jason Rupert" <jasonkrup...@yahoo.com>, "r-help" > >> <r-help@r-project.org> > >> Date: Wednesday, August 12, 2009, 4:56 PM > >> Yes, you can do that. You need to > >> specify pch in the range of 21-25, > >> and can then > >> specify both col and bg (background color). Oddly, the help > >> for this option is > >> under ?points rather than ?par or ?pch, but there are many > >> examples. > >> > >> Your second question would depend heavily on the device you > >> use and its > >> associated settings, but using the above solution should > >> solve your problem. > >> > >> Sarah > >> > >> On Wed, Aug 12, 2009 at 5:29 PM, Jason Rupert<jasonkrup...@yahoo.com> > >> wrote: > >> > > >> > Is it possible to change the fill color of a point? > >> For example, the outer color being "Blue" and inner color > >> being "Grey". > >> > I've tried changing "col" and "bg", but that does not > >> seem to have the desired effect. > >> > > >> > Below is another attempt, but the pixel resolution of > >> the points function does not appear to be high enough for > >> this to work: > >> > > >> > figure_file_name_and_path<-paste("Test.wmf", > >> sep="") > >> > > >> > vals_200<-rnorm(200) > >> > vals_201<-rnorm(200) > >> > > >> > > >> win.metafile(file=as.character(figure_file_name_and_path), > >> pointsize = 10) > >> > plot(-4:4, -4:4, type = "n")# setting up coord. > >> system > >> > points(vals_201, vals_200, col = "blue", bg = "white", > >> pch=19, cex =1.7) > >> > points(vals_201, vals_200, col = "grey", bg = "white", > >> pch=19, cex =1.5) > >> > points(rnorm(100)/2, rnorm(100)/2, col = "blue", bg = > >> "white", pch=19, cex =1.5) > >> > dev.off() > >> > > >> > As a second question, is there any way to increase the > >> pixel resolution of the points produced on the plot so that > >> they are perfect circles. I just noticed that the fill > >> does not perfectly fill the points on the plot and there are > >> some pixels outside the circle. > >> > > >> > Thanks again. > >> > > >> > >> > >> -- > >> Sarah Goslee > >> http://www.functionaldiversity.org > >> > > > > > > > > > > ______________________________________________ > > 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. -- %~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~% Dr. Gavin Simpson [t] +44 (0)20 7679 0522 ECRC, UCL Geography, [f] +44 (0)20 7679 0565 Pearson Building, [e] gavin.simpsonATNOSPAMucl.ac.uk Gower Street, London [w] http://www.ucl.ac.uk/~ucfagls/ UK. WC1E 6BT. [w] http://www.freshwaters.org.uk %~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~% ______________________________________________ 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.