Visualization with ggvis

library(ggvis)
p <- ggvis(mtcars, x = ~wt, y = ~mpg, fill=~cyl)
layer_points(p)

#same output can be achieved in a different, flexible way
#%>% is interpreted at 'then'
mtcars %>% 
  ggvis(x= ~wt, y= ~mpg, fill= ~cyl) %>%
  layer_points() %>%

  layer_smooths()

#What about adding some interactivity?
#add input_slider
mtcars %>% 
  ggvis(x= ~wt, y= ~mpg, fill= ~cyl) %>%
  layer_points() %>%

  layer_smooths(span=input_slider(.2,1))

# With more options  
mtcars %>% 
  ggvis(x= ~wt, y= ~mpg, fill= ~cyl) %>%
  layer_points() %>%

  layer_smooths(span=input_slider(.2,1), se=TRUE, fill := "green", stroke:="red", strokeWidth:=4)

#Play on
mtcars %>% 
  ggvis(x= ~wt, y= ~mpg, fill= ~cyl) %>%
  layer_points() %>%

  layer_smooths(span=input_slider(.2,1), se=TRUE, fill := "green", stroke:="red", strokeWidth:=4)