library(RGraphicsDevice)
source("svgDev.R")
dev = rsvgDevice(file = "bob.svg")
plot(1:10, col = c("yellow", "blue"), main = "Hi there")
abline(v = 1:10, col = "blue", lty = 2)
abline(h = 1:10, col = "red", lwd = 3)
dev.off()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.