library(SVGAnnotation)
doc = svgPlot(plot(1:10, main = "The SVGAnnotation Package"))
nodes = getPlotPoints(doc)
addLink(nodes,
paste("http://ww.r-project.org", seq(along = nodes), sep =""))
if(length(getPlotPoints(doc)) == 0) {
stop("Failed")
} else
saveXML(doc, "links.svg")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.