The following is code that makes the set of three points in figure 2 interactive:

Set up data
x.lbls = as.data.frame(list(xLabel1:xyType=c("point1", "point2", "points3"), xLabel1:asLinks=c("im a link", "im a link", "im a link"))
y.links = as.data.frame(matrix(rep(NA, 9), nrow=3))
y.links[,1] = "code.html/codeFigure2.html, code.html/initializeObject.html"
y.links[,2] = "code.html/threepoints.interactive.html, code.html/interactiveFigure2.html"
y.links[,3] = "code.html/completeCodeFigure2.html, code.html/completeCode.html"
asLinks=c("code.html/completeCodeFigure2.html","code.html/completeCodeFigure2.html","code.html/completeCodeFigure2.html")

Add to object
Splot = makeImap(Splot, figure=2, xy.type="circle", x.pos=1:3, y.pos=1:3,
                               y.labels = list(tooltip.fontcolor=c("green", "green", "green"),tooltip.size=c("14", "14", "14"),
                                                      tooltip.background=c("transparent", "transparent", "transparent")),
                               asLinks = asLinks, x.labels = x.lbls, fname.root="sendPlotEx", y.links=y.links,
                               bb.cex=5, spot.radius=20, font.color="green",bg.color="", font.size="14" )