更新

Question

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

但是，我想添加一个特定的图像，该图像与用户将鼠标悬停在其上时的点相关。由于这一切都是在一台计算机上完成的，我想文件引用将作为数据帧的一部分保留，然后以某种方式工具提示将读取文件引用，然后显示图像预览。这可能都是在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$Sample<-as.character(TTypedAll2$Sample)
TTypedAll2$Samplenum<-1:nrow(TTypedAll2)
d3chart<-nPlot(V1~Samplenum, group='TissueType',     data=TTypedAll2,type="scatterChart")

d3chart$chart(tooltipContent = "#! function(key, x, y, e){ 
  return '' + e.point.Sample
} !#")
d3chart

require(rCharts)
n1 <- nPlot(mpg ~ wt, group = 'gear', data = mtcars, type = 'scatterChart')
n1$chart(tooltipContent = "#! function(key, x, y){ 
         return 'x: ' + x + '  y: ' + y 
         } !#")

更新

我更改了提供的代码，以便将我感兴趣的完整图像路径添加到我的数据框中，然后尝试了这个：

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

如何将图像添加到r中的工具提示NVD3

更新

更新

0 个答案: