Hyperlinks via gridSVG

library(gridSVG)
...
x <- rnorm(50)
y <- rnorm(50)
...
grid.hyperlink(grid.xaxis(), "dotx.html")
grid.hyperlink(grid.yaxis(), "doty.html")
...
grid.hyperlink(grid.text("Return to Scatterplot",
                         y=unit(1, "npc") + 
                           unit(1, "lines")),
               "slide15.html")
...
grid.hyperlink(grid.text("Return to Scatterplot",
                         y=unit(1, "npc") + 
                           unit(1, "lines")),
               "slide15.html")
...
gridToSVG()