In aamangold/companycolors: What the Package Does (One Line, Title Case)

knitr::opts_chunk$set(error = TRUE,
                      collapse = TRUE,
                      comment = "#>",
                      fig.path = "man/figures/README-",
                      out.width = "100%")



pacman::p_load(companycolors, ggplot2, patchwork)
theme_set(theme_minimal())

companycolors

companycolors is an R helper package for using company-specific color palettes in charts.

Usage

Pull list of company colors and HEX codes

measure_colors()

Find HEX code from specific color

measure_colors("Navy")

Get shades between two colors

measure_palette("secondary", reverse = TRUE)(4)

Preview your color palettes

measure_palette_preview(palette = "mixed")

mixed <- measure_palette_preview()
primary <- measure_palette_preview(palette = "primary")
dark <- measure_palette_preview(palette = "dark")
tertiary <- measure_palette_preview(palette = "tertiary")
accent <- measure_palette_preview(palette = "accent", n = 15)
green <- measure_palette_preview(palette = "green", n = 15)
mixed + primary + dark + tertiary + accent + green + plot_layout(ncol = 2)

Plot!

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Sepal.Length)) +
    geom_point(size = 4, alpha = 0.6) +
    scale_color_measure(discrete = FALSE, palette = "mixed", reverse = TRUE)

ggplot(iris, aes(Sepal.Width, Sepal.Length, color = Species)) +
   geom_point(size = 4) +
   scale_color_measure(palette = "primary", reverse = FALSE)