# NOT RUN {
mtcars %>% ggvis(~wt, ~mpg, stroke = ~factor(cyl)) %>% layer_lines()
# Equivalent to
mtcars %>% ggvis(~wt, ~mpg, stroke = ~factor(cyl)) %>%
group_by(cyl) %>% dplyr::arrange(wt) %>% layer_paths()
# }
Run the code above in your browser using DataLab