Creating very small plots (2.5 cm wide) in Sweave

From: Andrew Robinson <A.Robinson at ms.unimelb.edu.au>
To: R-Help Discussion <r-help at stat.math.ethz.ch>
Subject: [R] Creating very small plots (2.5 cm wide) in Sweave
Date: Thu, 8 Sep 2005 13:40:17 +1000

Hi everyone,

I was wondering if anyone has any code they could share for creating
thumbnail plots in Sweave.  For example, I'd like a plot like the
following:

y <- c(40, 46, 39, 44, 23, 36, 70, 39, 30, 73, 53, 74)
x <- c(6, 4, 3, 6, 1, 5, 6, 2, 1, 8, 4, 6)
opar <- par(mar=c(3,3,0,0))
plot(x, y, xlab="", ylab="")
abline(h=mean(y), col="red")
par(opar)

to come out about 2.5 cm wide.

Thanks for any assistance,

Andrew
--
Andrew Robinson
Senior Lecturer in Statistics                       Tel: +61-3-8344-9763
Department of Mathematics and Statistics            Fax: +61-3-8344-4599
University of Melbourne, VIC 3010 Australia
Email: a.robinson at ms.unimelb.edu.au    Website: 
http://www.ms.unimelb.edu.au

Others may propose more elegant solutions but, in windows one quick an 
dirty option would be to change the argument 'pin' and 'fin' within par to 
get an image of exactly 1 inch (2.54 cm) i.e.

y <- c(40, 46, 39, 44, 23, 36, 70, 39, 30, 73, 53, 74)
x <- c(6, 4, 3, 6, 1, 5, 6, 2, 1, 8, 4, 6)
par(pin=c(1,1), fin=c(1,1))
plot(x, y, xlab="", ylab="")
abline(h=mean(y), col="red")

#Save the plot in bmp format
savePlot("myplot", "bmp")

and then manually crop the picture using your favorite picture package or 
even within a word processor.

I hope this helps

Francisco

From: Andrew Robinson <A.Robinson at ms.unimelb.edu.au>
To: R-Help Discussion <r-help at stat.math.ethz.ch>
Subject: [R] Creating very small plots (2.5 cm wide) in Sweave
Date: Thu, 8 Sep 2005 13:40:17 +1000

Hi everyone,

I was wondering if anyone has any code they could share for creating
thumbnail plots in Sweave.  For example, I'd like a plot like the
following:

y <- c(40, 46, 39, 44, 23, 36, 70, 39, 30, 73, 53, 74)
x <- c(6, 4, 3, 6, 1, 5, 6, 2, 1, 8, 4, 6)
opar <- par(mar=c(3,3,0,0))
plot(x, y, xlab="", ylab="")
abline(h=mean(y), col="red")
par(opar)

to come out about 2.5 cm wide.

Thanks for any assistance,

Andrew
--
Andrew Robinson
Senior Lecturer in Statistics                       Tel: +61-3-8344-9763
Department of Mathematics and Statistics            Fax: +61-3-8344-4599
University of Melbourne, VIC 3010 Australia
Email: a.robinson at ms.unimelb.edu.au    Website: 
http://www.ms.unimelb.edu.au