library(Rcartogram)
data(uspop)
out = cartogram(uspop)
if(FALSE) {
g = expand.grid(1:ncol(pop), 1:nrow(pop))
out = cartogram(pop, g[,1], g[,2])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.