bakeoff_palette("showstopper")
if (require('scales')) {
show_col(bakeoff_palette("finale"))
}
if (require('ggplot2')) {
line_plot <- ggplot(ratings, aes(x = episode, y = viewers_7day,
color = as.factor(series), group = series)) + facet_wrap(~series) + geom_line(lwd = 2)
line_plot + scale_color_manual(values = bakeoff_palette(), guide = "none")
ggplot(episodes, aes(episode, bakers_appeared, fill = as.factor(series))) +
geom_col() + facet_wrap(~series) +
scale_fill_manual(values = bakeoff_palette("signature"), guide = "none") +
scale_x_continuous(breaks = scales::pretty_breaks())
}
# If you need more colors than normally found in a palette, you
# can use a continuous palette to interpolate between existing
# colours
pal <- bakeoff_palette(palette = "finale", n = 20, type = "continuous")
if (require('scales')) {
show_col(pal)
}
Run the code above in your browser using DataLab