# NOT RUN {
library(dplyr)
library(tidyr)
library(plotly)
ggplot2::mpg %>%
nest(data = !one_of(c("manufacturer", "class"))) %>%
mutate(
additional_cogs = map_cog(data, function(x) {
tibble(
max_city_mpg = cog(max(x$cty), desc = "Max city mpg"),
min_city_mpg = cog(min(x$cty), desc = "Min city mpg"))
}),
panel = map_plot(data, function(x) {
plot_ly(data = x, x = ~cty, y = ~hwy,
type = "scatter", mode = "markers")
})
) %>%
trelliscope(name = "city_vs_highway_mpg", nrow = 1, ncol = 2)
# }
Run the code above in your browser using DataLab