@@ -49,12 +49,13 @@ cb_friendly_palettes <- list(
4949 `cool` = cb_friendly_cols(" blue" , " dark_purple" , " purple" , " sky_blue" ),
5050 `hot` = cb_friendly_cols(" yellow" , " light_orange" , " dark_orange" ),
5151 `grey` = cb_friendly_cols(" black" , " dark_grey" , " blue_grey" ),
52- `heatmap` = cb_friendly_cols(" blue" , " white" , " brown" )
52+ `heatmap` = cb_friendly_cols(" blue" , " white" , " brown" ),
53+ `white_to_blue` = cb_friendly_cols(' white' , ' blue' )
5354)
5455
5556# ' access cb friendly palette by name, reversing if necessary
5657# '
57- # ' @param palette name of the palette to be returned
58+ # ' @param palette name of the palette to be returned (main, cool, hot, grey, white_to_blue, or heatmap)
5859# ' @param reverse boolean, reverse order of colors in palette
5960# ' @param ... pass to ggplot
6061# ' @export
@@ -66,7 +67,7 @@ cb_friendly_pal <-function(palette = 'main', reverse = F, ...){
6667
6768# ' use cb friendly colors as color aesthetic with ggplot
6869# '
69- # ' @param palette name of the palette to be returned
70+ # ' @param palette name of the palette to be returned (main, cool, hot, grey, white_to_blue, or heatmap)
7071# ' @param discrete boolean, whether to make palette discretely divided into colors or continuous
7172# ' @param reverse boolean, reverse order of colors in palette
7273# ' @param ... pass to ggplot
@@ -83,7 +84,7 @@ scale_color_cb_friendly <- function(palette = "main", discrete = TRUE, reverse =
8384
8485# ' use cb friendly colors as fill aesthetic with ggplot
8586# '
86- # ' @param palette name of the palette to be returned
87+ # ' @param palette name of the palette to be returned (main, cool, hot, grey, white_to_blue, or heatmap)
8788# ' @param discrete boolean, whether to make palette discretely divided into colors or continuous
8889# ' @param reverse boolean, reverse order of colors in palette
8990# ' @param ... pass to ggplot
0 commit comments