Javascript ggplot图表到rChart图表

我想复制这个图表

使用rCharts，因为我希望添加工具提示。这是此ggplot图表的代码：

auto_cols <- sample(x = colors(), size = 96)
well_letters <- rep(LETTERS[1:8], each = 12)
tt <- data.frame(Well = factor(c(well_letters),rev(unique(well_letters))), 
       ncols = factor(c(1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,
                        12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,
                        11,12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,
                        10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,
                        9,10,11,12)),
       Gene_Symbol = factor(c(NA,"AUV1","AUV2","AUV3","AUV4","AUV5","AUV6","AUV7","AUV8","AUV9","AUV10",NA,NA,"AUV13","AUV14","AUV15","AUV16","AUV17","AUV18","AUV19","AUV20","AUV21","AUV22",NA,NA,"VH1","VH2","VH3","VH4","VH5","VH6","VH7","VH8","VH9","VH10",NA,NA,"GH3","GH4","GH5","GH6","GH7","GH8","GH9","GH10","GH11","GH12",NA,NA,"JUI2","JUI3","JUI4","JUI5","JUI6","JUI7","JUI8","JUI9","JUI10","JUI11",NA,NA,"BKJ2","BKJ3","BKJ4","BKJ5","BKJ6","BKJ7","BKJ8","BKJ9","BKJ10","BKJ11",NA,NA,"CVG3","CVG4","CVG5","CVG6","CVG7","CVG8","CVG9","CVG10","CVG11","CVG12",NA,NA,"GH40","GH41","GH42","GH43","GH44","GH45","GH46","GH47","GH48","GH49",NA)),
Sequence =(c(NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA,NA,"CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC","CAUCUGACC",NA)),auto_cols = auto_cols)

ggplot(tt, aes(y = Well, x = ncols)) + 
  geom_point(aes(colour = Gene_Symbol), size =8) + 
  guides(col = guide_legend(nrow = 10, ncol = 10)) + 
  scale_color_manual(values = auto_cols) + 
  geom_text(aes(label = Gene_Symbol, size = 150, vjust = 2), show_guide=FALSE) +
  xlab(NULL) + ylab(NULL) + theme(legend.position="none")`

---

auto_cols对我来说，它现在很好。你缺少什么，或者你想改进/改变什么？我更喜欢在图版上添加gene_符号和序列作为工具提示。我认为实现这样一个目标与rCharts中可用的库相比是复杂的。我没有发现任何关于NVD3、Polycharts、dimple或Hurchaw的带有标签或文本框的散点图示例。如果你知道一些d3.js，你可以自己制作散点图。这里是Scott Murray的散点图示例：goo.gl/vKRFDp另一个选项是使用闪亮的应用程序并向ggplot添加工具提示。在这个问题的评论中，有一个关于如何做到这一点的小讨论：
r1 <- rPlot(y = list(var='Well',sort="Well") ,x = 'ncols', 
        data = tt, type = "point", color = 'Gene_Symbol', size = list(const = 8),
        tooltip = "#! function(item){return 'Sequence :' + item.Sequence +'//'+'Gene_Symbol :'+ item.Gene_Symbol} !#")
r1$set(legendPosition = 'none')
r1$guides(x = c(min = 0, max = 13))