spatial.plot <-
function(x,y,add=TRUE,cx=1){
nc<-as.numeric(cut(y,20))
if(!add) plot(x,pch=" ")
points(x,pch=20,col=terrain.colors(20)[nc],cex=cx)
image.scale(y,col=terrain.colors(20))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.