To embed a ggvis plot just call ggvis:

library(ggvis)
mtcars %>% ggvis(x = ~wt, y = ~mpg) %>% layer_points()

mtcars %>% ggvis(x = ~wt, y = ~mpg) %>%
  layer_points() %>%
  layer_smooths()