[R] Raster images from sweave

[Roger Bivand]

On Fri, 24 Sep 2004, hadley wickham wrote:

> Is it possible to get sweave to produce raster (eg. png/jpg) plot
> images?  I'm writing a vignette that contains plots with tens of
> thousands of points which results in very large pdf files (13 megs
> before compression).

Yes. I do it by including these chunks after \begin{document}

<<echo=FALSE>>= 
.PngNo <- 0
@

<<label=afig,echo=FALSE,eval=FALSE>>= 
.PngNo <- .PngNo + 1; file <- paste("Fig-bitmap-", .PngNo, ".png", sep="")
png(file=file, width = 1200, height = 1200, pointsize = 24, bg = "white")
@

<<label=zfig,echo=FALSE,eval=FALSE>>= 
dev.null <- dev.off()
cat("\\includegraphics{", file, "}\n\n", sep="")
@

then for each figure e.g.:

<<label=quad,echo=FALSE,eval=FALSE>>= 
plot(drumlin.xy)
@

\begin{scriptsize}
<<fig=FALSE,echo=TRUE, eval=FALSE>>= 
<<quad>>
@ 
\end{scriptsize}

\begin{center} 
<<results=tex,echo=FALSE>>= 
<<afig>>
<<quad>>
<<zfig>>
@ 
\end{center}

maybe putting the graphic in a figure environment if it is not just a 
slide. I find I need to hand tune the output resultion and pointsize 
depending on the output medium.

Roger Bivand

> 
> Thanks,
> 
> Hadley
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
> 

-- 
Roger Bivand
Economic Geography Section, Department of Economics, Norwegian School of
Economics and Business Administration, Breiviksveien 40, N-5045 Bergen,
Norway. voice: +47 55 95 93 55; fax +47 55 95 93 93
e-mail: Roger.Bivand at nhh.no