library(SVGAnnotation);library(lattice)
doc = svgPlot({plot(1:10); abline(v = 3); abline(h = 4)})
pts = getPlotPoints(doc)
guessSVGShape(pts[[1]][[1]])
sapply(pts[[2]], guessSVGShape)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.