% Reusable Graphics
% Paul Murrell
% The University of Auckland

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




# Reusing Raster Images in Plots


```r
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>