1. dat<- data.frame(
  2.   Gene_Name= LETTERS[1:15], 
  3.   Value1 = sample(-8:20,15,replace=TRUE),
  4.   Value2 =sample(-6:10,15,replace=TRUE)
  5. )
  6.  
  7. library(rCharts)
  8. r1<- nPlot(Value1~Value2,data=dat, type="scatterChart")
  9. r1$chart(tooltipContent = "#! function(key, x, y, e){
  10.   return '<b>Gene Name</b>: ' + e.point.Gene_Name
  11. } !#")
  12. r1