powered by
left_right(min, max, value = (min + max)/2, step = (max - min)/40)up_down(min, max, value = (min + max)/2, step = (max - min)/40)
up_down(min, max, value = (min + max)/2, step = (max - min)/40)
min
max
value
size <- left_right(1, 801, value = 51, step = 50) opacity <- up_down(0, 1, value = 0.9, step = 0.05) mtcars %>% ggvis(~mpg, ~wt, size := size, opacity := opacity) %>% layer_points()
Run the code above in your browser using DataLab