benjamin-chan · May 14, 2026 17:09 · benjamin-chan · May 14, 2026
diff --git a/OHA_palette.R b/OHA_palette.R
 pal <- c("#174375",  # OHA Blue
         "#ec5a24",  # OHA Orange
         "#00817f",  # Sea Glass
         "#752e71",  # Beauty Berry
         "#d5dae8",  # Blue BG
         "#fff2dd",  # Orange BG
         "#dceae8",  # Sea Glass BG
         "#ebdee8",  # Beauty Berry BG
         "#F2F2F2",  # Light gray; requires the use of a border
         "#949494",  # Medium gray (updated)
         "#606060")  # Dark gray; default for text

 # EXAMPLE
 # devtools::source_gist("https://gist.github.com/benjamin-chan/765d925783868cc68260ce296795fd97")
 # devtools::source_url("https://gist.github.com/benjamin-chan/765d925783868cc68260ce296795fd97/raw/OHA_palette.R")
 # pal
 # palette <- c("Discrete", "Background", "Gray")
 # df <- expand.grid(palette = palette, seq = LETTERS[1:4], id = seq(1, 50))
 # df <- cbind(df, x = rnorm(nrow(df)), y = rnorm(nrow(df)))
 # df$color <- factor((unclass(df$palette) - 1) * nlevels(df$seq) + unclass(df$seq))
 # library(ggplot2)
 # ggplot(df) +
 #   geom_density(aes(x = x, color = color, fill = color)) +
 #   scale_color_manual(values = c(pal[1:4], pal[1:4], pal[11], pal[10:11], "white")) +
 #   scale_fill_manual(values = c(pal[1:4], pal[5:8], pal[9:11], "white")) +
 #   facet_grid(palette ~ seq, switch = "y") +
 #   theme_void() +
 #   theme(legend.position = "none",
 #         strip.text.x = element_blank(),
 #         strip.text.y = element_text(hjust = 1))

 # SOURCES
 # https://sharedsystems.dhsoha.state.or.us/DHSForms/Served/le2022.pdf
	pal <- c("#174375", # OHA Blue
	"#ec5a24", # OHA Orange
	"#00817f", # Sea Glass
	"#752e71", # Beauty Berry
	"#d5dae8", # Blue BG
	"#fff2dd", # Orange BG
	"#dceae8", # Sea Glass BG
	"#ebdee8", # Beauty Berry BG
	"#F2F2F2", # Light gray; requires the use of a border
	"#949494", # Medium gray (updated)
	"#606060") # Dark gray; default for text

	# EXAMPLE
	# devtools::source_gist("https://gist.github.com/benjamin-chan/765d925783868cc68260ce296795fd97")
	# devtools::source_url("https://gist.github.com/benjamin-chan/765d925783868cc68260ce296795fd97/raw/OHA_palette.R")
	# pal
	# palette <- c("Discrete", "Background", "Gray")
	# df <- expand.grid(palette = palette, seq = LETTERS[1:4], id = seq(1, 50))
	# df <- cbind(df, x = rnorm(nrow(df)), y = rnorm(nrow(df)))
	# df$color <- factor((unclass(df$palette) - 1) * nlevels(df$seq) + unclass(df$seq))
	# library(ggplot2)
	# ggplot(df) +
	# geom_density(aes(x = x, color = color, fill = color)) +
	# scale_color_manual(values = c(pal[1:4], pal[1:4], pal[11], pal[10:11], "white")) +
	# scale_fill_manual(values = c(pal[1:4], pal[5:8], pal[9:11], "white")) +
	# facet_grid(palette ~ seq, switch = "y") +
	# theme_void() +
	# theme(legend.position = "none",
	# strip.text.x = element_blank(),
	# strip.text.y = element_text(hjust = 1))

	# SOURCES
	# https://sharedsystems.dhsoha.state.or.us/DHSForms/Served/le2022.pdf
No results found