data(sbsData)
tmSave <- tmPlot(sbsData,
index=c("section", "subsection"),
vSize=c("employees09", "value added09", "turnover09", "salaries09"),
vColor=c("employees08", "value added08", "turnover08", "salaries08"),
type="comp")
# capture mouseclick
npcClick <- tmClick()
# locate clicked object
print(tmLocate(npcClick, tmSave))
Run the code above in your browser using DataLab