Thank you very much for your help, Duncan.

I do have another question, unrelated to the first one.  I need to plot points on the graph, but I want points to be letters instead of symbols.  Ideally, I would like to have circles with letters 'Rx' inside, for example.  Is that possible?  If not, is there a way to simply have Rx as a symbol without the circle?  When I tried to do that, only the first letter 'R' gets displayed.  Same thing with the legend.  Here is the sample code.  Any help would be greatly appreciated.

x<-c(1:7)
y1 <- c(20,NA,NA,20,20,NA,20)
y2 <- c(40,40,NA,NA,40,40,NA)
y3 <- c(NA,60,60,NA,NA,60,60)
y4 <- c(80,NA,NA,80,80,NA,80)
windows(width=6.25, height = 3.75)
par(pin=c(3.5,1.5),bty="l")
par(mar=c(2.5,4.1,2.2,10.5))
plot(x,y4,type="n",xlim=c(1,7),ylim=c(0,100),xlab="",xaxt="n")
axis(1, at=1:7, labels = FALSE, tcl = -0.2)
mtext("Week of",side=1, cex = 0.8,line=1.0)
 
points(x,y1,pch="HV",bg="blue",col="blue",cex=0.5)
points(x,y2,pch="ER",bg="orange",col="orange",cex=0.5)
points(x,y3,pch="Rx",bg="red",col="red",cex=0.5)
points(x,y4,pch="Sx",bg="green",col="green",cex=0.5)
par(xpd=TRUE)
legend(8,40, c("hospital visit", "ER visit","medication change", 
"symptoms reported"), col = c("blue","orange","red","green"), text.col= "black",
lty = c(-1, -1, -1,-1), pch = c("H","E","R","S"), bty="n",cex=0.85)

Irina


----- Original Message ----
From: Duncan Murdoch <murdoch@stats.uwo.ca>
To: Irina Burmenko <iburmen@yahoo.com>
Cc: r-help@r-project.org
Sent: Monday, November 19, 2007 4:54:13 PM
Subject: Re: [R] Using windows() and jpeg()

On 19/11/2007 3:09 PM, Irina Burmenko wrote:
> Hello,
> 
> I have the following question, which I haven't been able to resolve after days of trying.  I used to save my plots as jpegs using the savePlot command.  However, that seems to result in lost resolution.  So now I'm trying to use the jpeg( ) function, but am having trouble because it seems to be incompatible with the windows (width=, height=) command.   It's important for me to be able to specify the window size as well as other parameters.  Here is the sample code:
> 
> jpeg(filename="myplot.jpg",quality=100)
> windows(width=6.25, height = 3.75)

The jpeg() command should *replace* the windows() command.  They both
open new graphics devices.  One problem you'll have is that jpeg takes 
dimensions in pixels by default; if you want to express it in inches, 
you need to say so, and also say what resolution you're assuming.  For 
example,

jpeg(filename="myplot.jpg",quality=100,width=6.25, height = 3.75, 
units="in",res=96)

for 96 dpi resolution.

Duncan Murdoch


> par(pin=c(3.5,1.5),bty="l")
> par(mar=c(2.5,4.1,2.2,10.5))
> x<-c(1,2,3)
> y<-c(4,5,6)
> plot(x,y,"b")
> dev.off()
> 
> Using these commands results in an empty plot being saved.  However, skipping lines 2-4 saves the graph, but, of course, without the formatting, which is important to me.  Any help would be greatly appreciated.
> 
> Irina
> 
> 
>      ____________________________________________________________________________________
> Never miss a thing.  Make Yahoo your home page. 
> 
>     [[alternative HTML version deleted]]
> 
> ______________________________________________
> 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.


      ____________________________________________________________________________________
Never miss a thing.  Make Yahoo your home page. 

	[[alternative HTML version deleted]]

