I want to create a scatter plot that will link points that share a particular attribute when hovered over and also display a tooltip, similar to the example here <http://i.stack.imgur.com/fAWem.gif> 

I am currently using ggvis to make the plot, although I'm not sure it supports this functionality. The visualization will be displayed in shiny.This is what my code to make the visualization looks like at the moment. The categorical variable that I want the points to be joined by is `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")

```

Any help or references would be much appreciated.