The following is code that adds three sets of interactive data to figure 2:

Adding Information to set of three data points
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" )

Adding Information to set of two data points
Set up data
y.lbls = as.data.frame(list(xLabel1.xyType=c("point1", "point2"), xLabel1.asLinks=c("im not a link", "im not a link")))
y.links = as.data.frame(matrix(rep(NA, 6), nrow=2))
y.links[,1] = "code.html/codeFigure2.html, code.html/initializeObject.html"
y.links[,2] = "code.html/twopoints.interactive.html, code.html/interactiveFigure2.html"
y.links[,3] = "code.html/completeCodeFigure2.html, code.html/completeCode.html"

Add to object
Splot = makeImap(Splot, figure=2, xy.type="circle", x.pos=1:2, y.pos=2:3,
                               x.labels = list(tooltip=c("default settings", "default settings")),
                               y.labels = y.lbls, fname.root="sendPlotEx", y.links=y.links,
                               bb.cex=5,spot.radius=15)
Adding Information to polygon
Set up data
x.links = as.data.frame(matrix(rep(NA, 3), nrow=1))
x.links[,1] = "code.html/codeFigure2.html, code.html/initializeObject.html"
x.links[,2] = "code.html/polygon.interactive.html, code.html/interactiveFigure2.html"
x.links[,3] = "code.html/completeCodeFigure2.html, code.html/completeCode.html"
names(x.links) = c("code", "interactive", "completeCode")

Add to object
Splot = makeImap(Splot, figure=2, xy.type="polygon", x.pos=c(2,2.5,3,2.5), y.pos=c(1,2.5,1,1.5),
                               x.labels = as.data.frame(list(xLabel.xyType = "Polygon")), asLinks="code.html/interactiveFigure2.html",
                               x.links=x.links,fname.root="exToy", bb.cex=5,
                               y.labels = as.data.frame(list(yLabel1.asLinks="Im a link", tooltip.fonttype="san-serif",
                                                                            tooltip.fontsize="30",tooltip.fontcolor="purple" )),
                               font.size=30, font.type="sans-serif", font.color="purple")