linkvis.R

library(tidyverse)
library(ggvis)

## this column needs to be unique for each row (primary key)!
mtcars$url <- paste0("https://en.wikipedia.org/wiki/", 1:nrow(mtcars))

mtcars %>%
  ggvis(~mpg, ~hp) %>%
  layer_points(size := 50, size.hover := 200,
               fillOpacity := 0.4, fillOpacity.hover := 0.7,
               key := ~url) %>%
  add_tooltip(html=function(point) 
    paste0('<a href=', point$url, '>LINK</a>'), on = "click")