Nothing
#' Add alpha transparency to a color defined in hexadecimal
#'
#' @param col Original color code in hex
#' @param alpha Level of alpha transparency to add
#'
#' @return color codes with alpha added
#'
#' @export
#'
hex_add_alpha <- function(col, alpha) {
sprintf("%s%02X", col, floor(alpha * 256))
}
dd_palettes <- list(
# ColorPalette = c(dd_light_blue, dd_orange, dd_pink)
three_color_palette = c("#72B4F3", "#F38672", "#C6227F"),
# GreyPalette = c(dd_light_blue, dd_orange, dd_pink, dd_light_gray)
grey_palette = c("#72B4F3", "#F38672", "#C6227F", gray(0.8)),
# quilt_palette = c(dd_light_gray, dd_pink, dd_purple , dd_light_blue, dd_orange)
quilt_palette = c(gray(0.8), "#C6227F", "#7E43B6" , "#72B4F3", "#F38672"),
# two_color_palette = c(dd_dark_blue, dd_pink)
two_color_palette = c("#3564ED", "#C6227F"),
# c(dd_light_gray, "#72B4F366", dd_light_blue)
quilt_three_color_palette = c(gray(0.8), "#72B4F366", "#72B4F3"),
# dark blue, light gray
two_color_gray = c("#3564ED", gray(0.8)),
dd_dark_blue = "#3564ED",
dd_light_blue = "#72B4F3",
dd_orange = "#F38672",
dd_purple = "#7E43B6",
dd_gray = gray(0.2),
dd_pink = "#C6227F",
dd_light_gray = gray(0.8),
dd_dark_blue_alpha = "#3564EDA0",
dd_light_blue_alpha = "#72B4F3A0"
)
# one_color_palette <- dd_light_blue
# two_color_palette <- c(dd_dark_blue, dd_pink)
# three_color_palette <- c(dd_light_blue, dd_orange, dd_pink)
#
# one_color_palette_gray <- c(dd_dark_blue, dd_light_gray)
# two_color_palette_gray <- c(two_color_palette, dd_light_gray)
# three_color_palette_gray <- c(three_color_palette, dd_light_gray)
#' Access color palette used in the book "Research Design: Declare, Diagnose, Redesign" (Blair, Coppock, Humphreys)
#'
#' Based on Karthik Ram's wesanderson package (https://github.com/karthik/wesanderson)
#'
#' @param name Color palette name (character)
#' @param n Number of colors
#'
#' @details
#'
#' Available color palettes:
#'
#' color_palette = c("#72B4F3", "#F38672", "#C6227F")
#'
#' grey_palette = c("#72B4F3", "#F38672", "#C6227F", gray(0.8))
#'
#' dd_dark_blue = "#3564ED"
#'
#' dd_light_blue = "#72B4F3"
#'
#' dd_orange = "#F38672"
#'
#' dd_purple = "#7E43B6"
#'
#' dd_gray = gray(0.2)
#'
#' dd_pink = "#C6227F"
#'
#' dd_light_gray = gray(0.8)
#'
#' dd_dark_blue_alpha = "#3564EDA0"
#'
#' dd_light_blue_alpha = "#72B4F3A0"
#'
#' @return character vector of colors
#'
#' @export
#'
dd_palette <- function(name, n) {
pal <- dd_palettes[[name]]
if (is.null(pal))
stop("Palette not found.")
if (missing(n)) {
n <- length(pal)
}
pal[1:n]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.