如何创建一个散点图，它将链接鼠标悬停时来自同一类别的点？

Question

我想创建一个散点图，它会在悬停时链接共享特定属性的点并显示工具提示，类似于此处的示例http://i.stack.imgur.com/fAWem.gif

我目前正在使用ggvis制作情节，尽管我不确定它是否支持此功能。可视化将以闪亮的方式显示。这就是我的可视化目标的代码。我希望点加入的分类变量是Choice_2。

plot_data %>%
ggvis(x= ~X,y= ~Y,  size= ~Size_val,stroke := "white") %>%
layer_points(fill= ~Choice_1, opacity := I(2/5)) %>%
scale_numeric(property = 'size', domain = c(0.01,0.52),range = c(100,5200))%>%
hide_legend(scales = 'size') %>%
bind_shiny("ggvis", "ggvis_ui")

非常感谢任何帮助或参考。

Answer 1

如@vck所述，请查看Rcharts。请注意，该示例取自here

library(rCharts)
r1<- nPlot(mpg ~ wt, group = 'cyl', data = mtcars, type="scatterChart")
r1$chart(tooltipContent = "#! function(key, x, y, e,graph){
return '<b>carb</b>: ' + e.point.carb
} !#")
r1$chart(size = '#! function(d){return d.disp} !#')
r1

Answer 2

试试这个;

require(devtools)
install_github('rCharts', 'ramnathv')
library(rCharts)

x=rnorm(100)
y=rnorm(100)
data<-data.frame(y,x)
rPlot(y~x, data = data, type = "point")

rCharts是一个非常有用的软件包，你可以在R中使用polycharts和highcharts。