Javascript 如何在r中向工具提示NVD3添加图像

我有一个数据框架，我已经设法创建了一个伟大的图表，我非常满意的结果

但是，我想添加一个特定的图像，当用户将鼠标悬停在该图像上时，该图像与该点相关。由于这一切都是在一台计算机上完成的，我想象文件引用将作为数据帧的一部分保留，然后不知何故，工具提示将读取文件引用，然后显示图像预览。这可能都是用javascript实现的，但我不确定如何实现，或者这是否是最好的方法

这是我的数据帧（没有引用图像的文件名）：

TTypedAll2<-structure(list(V1 = c(6L, 13L, 8L, 11L, 6L), TissueType = c("GC","Co","BE", "Tu", "Tu"), Sample = c("SL.Tum_TB05_00.fq.gz", "S.Tum_TB06.fq.gz", "S.Tum_T573.fq.gz", "Tum_TB0578.fq.gz", "TumTB0106.fq.gz"),Samplenum = 1:5), .Names = c("V1", "TissueType", "Sample", "Samplenum"), row.names = c("SL.Tum_TB05_00.fq.gz", "S.Tum_TB06.fq.gz", "S.Tum_T573.fq.gz", "Tum_TB0578.fq.gz", "TumTB0106.fq.gz"), class = "data.frame")

---

TTypedAll2我不熟悉您的R设置，此JavaScript代码将更改工具提示以显示图像：

    nv.addGraph(function() {
    var chart = nv.models.scatterChart();
    chart.xDomain( [ 0, 10 ] ).yDomain( [ 0, 10 ] );

    chart.tooltipContent(function(key, x, y, z, e) {
        return '<img class="style-your-image" src="' + e.point.img + '">';
    });

    var myData = [
        {
            key: 'Group 1',
            values: [
                { x: 3, y: 5, size: 5, shape: 'circle', img: '/static/img/img_1.jpg' }, // image on local server
                { x: 7, y: 5, size: 5, shape: 'circle', img: 'http://placehold.it/150x150' } // Web image
            ]
        }
    ]

    d3.select('#chart svg').datum(myData).call(chart);
    nv.utils.windowResize(chart.update);

    return chart;
  });

nv.addGraph（函数（）{
var chart=nv.models.scatterChart（）；
图表.xDomain（[0,10]）.yDomain（[0,10]）；
图表.工具提示内容（函数（键，x，y，z，e）{
返回“”；
});
var myData=[
{
关键字：“第1组”，
价值观：[
{x:3，y:5，大小：5，形状：'circle'，img:'/static/img/img_1.jpg'}，//本地服务器上的图像
{x:7，y:5，尺寸：5，形状：'圆形'，img:'http://placehold.it/150x150'}//Web图像
]
}
]
d3.选择（“#chart svg”）.datum（myData.call（chart）；
nv.utils.windowResize（图表更新）；
收益表；
});

d3chart<-nPlot(V1~Samplenum, group='TissueType',  data=TTypedAll2,type="scatterChart")
d3chart$chart(tooltipContent = "#! function(item, x, y, e){ 
   return '' + e.point.Sample + '<img src=' + e.point.img + '>'
          } !#")
d3chart

d3chart<-nPlot(V1~Samplenum, group='TissueType',     data=TTypedAll2,type="scatterChart")
d3chart$chart(tooltipContent = "#! function(item, x, y, e,z){ 
return '' + e.point.Sample + '<img src=file:///Users/cer.png' + '>'
          } !#")
d3chart

    nv.addGraph(function() {
    var chart = nv.models.scatterChart();
    chart.xDomain( [ 0, 10 ] ).yDomain( [ 0, 10 ] );

    chart.tooltipContent(function(key, x, y, z, e) {
        return '<img class="style-your-image" src="' + e.point.img + '">';
    });

    var myData = [
        {
            key: 'Group 1',
            values: [
                { x: 3, y: 5, size: 5, shape: 'circle', img: '/static/img/img_1.jpg' }, // image on local server
                { x: 7, y: 5, size: 5, shape: 'circle', img: 'http://placehold.it/150x150' } // Web image
            ]
        }
    ]

    d3.select('#chart svg').datum(myData).call(chart);
    nv.utils.windowResize(chart.update);

    return chart;
  });