powered by
waggle(min, max, value = (min + max)/2, step = (max - min)/50, fps = 10)
min
max
span <- waggle(0.2, 1) mtcars %>% ggvis(~mpg, ~wt) %>% layer_points() %>% layer_smooths(span = span)
Run the code above in your browser using DataLab