# NOT RUN {
library(rbokeh)
library(dplyr)
ggplot2::mpg %>%
group_by(manufacturer, class) %>%
summarise(
panel = panel(
figure(xlab = "City mpg", ylab = "Highway mpg") %>%
ly_points(cty, hwy)))
# }
Run the code above in your browser using DataCamp Workspace