% Reusable Graphics
% Paul Murrell
% The University of Auckland

<link rel="stylesheet" href="custom.css" />

```{r setup, include=FALSE}
# set global chunk options
opts_chunk$set(tidy=FALSE, highlight=TRUE)
```

# Reusing Raster Images in Plots

```{r eval=FALSE}
library(png)
map <- readPNG("map.png")

plot(data)
rasterImage(map)
```

# Reusing Raster Images in Plots

   <object class="sidebyside" data="rasterplot.svg" type="image/svg+xml" 
           width="240px" height="240px"> </object>
+
   <object class="sidebyside" data="map.svg" type="image/svg+xml" 
           width="240px" height="240px"> </object>
&rarr;
   <object class="sidebyside" data="mapoverlay.svg" type="image/svg+xml" 
           width="240px" height="240px"> </object>