# NOT RUN {
library(scales)
show_col(westeros_pal(palette = "Stark")(5))
show_col(westeros_pal(palette = "Stannis")(5))
library(ggplot2)
ggplot(airquality, aes(x = Day, y = Temp,
group = as.factor(Month), color = as.factor(Month))) +
geom_point(size = 2.5) +
scale_color_westeros(palette = "Stark")
ggplot(airquality, aes(x = Day, y = Temp,
group = as.factor(Month), color = as.factor(Month))) +
geom_point(size = 2.5) +
scale_color_westeros(palette = "Stannis")
ggplot(airquality, aes(x = Day, y = Temp,
group = as.factor(Month), color = as.factor(Month))) +
geom_point(size = 2.5) +
scale_colour_westeros(palette = "Stannis")
ggplot(mpg, aes(displ)) +
geom_histogram(aes(fill = class), col = "black", size = 0.1) +
scale_fill_westeros(palette = "Stannis")
# }
Run the code above in your browser using DataLab