# use color_palette() to extend or shorten an existing palette
color_palette(album_palettes$lover, n = 10)
color_palette(album_palettes$fearless, n = 10)
color_palette(album_palettes$red, n = 3)
# you can also define your own color palette
(my_pal <- color_palette(pal = c("#264653", "#2A9D8F", "#E9C46A",
"#F4A261", "#E76F51")))
# and then use that palette for plotting
library(ggplot2)
ggplot(faithfuld) +
geom_tile(aes(waiting, eruptions, fill = density)) +
scale_fill_gradientn(colours = my_pal) +
theme_minimal()
Run the code above in your browser using DataLab