map <- function(mapToPlot, nameColumnToPlot, ...){
par(mai=c(0,0,0.2,0), xaxs="i", yaxs="i");
mapCountryData(mapToPlot, nameColumnToPlot, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.