# NOT RUN {
library(dplyr)
library(tidyr)
ggplot2::mpg %>%
group_by(manufacturer, class) %>%
nest() %>%
mutate(panel = map_plot(data,
~ figure(xlab = "City mpg", ylab = "Highway mpg") %>%
ly_points(cty, hwy, data = .x))) %>%
trelliscope(name = "city_vs_highway_mpg")
# }
Run the code above in your browser using DataCamp Workspace