require(ggvis)
mtcars %>%
ggvis(x=~cyl, y=~wt, fill=~mpg) %>%
group_by(mpg) %>%
layer_bars() %>%
add_title_pos(title = "title", angle=310, dy=0, dx=0) %>%
set_options(width = 400, height = 350)
Run the code above in your browser using DataLab