Untitled

library(ggvis)
mtcars %>% 
  ggvis(~wt, ~mpg,
        size := input_slider(10,100),
        opacity := input_slider(0,1)
        ) %>%
  layer_points()

## Warning: Can't output dynamic/interactive ggvis plots in a knitr document.
## Generating a static (non-dynamic, non-interactive) version of the plot.