Skip to content

Instantly share code, notes, and snippets.

@charliejhadley

charliejhadley/gpcds-branding-script.R

Created April 10, 2025 12:49
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save charliejhadley/55f3cadbbb6912ad7dd6022440886f51 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save charliejhadley/55f3cadbbb6912ad7dd6022440886f51 to your computer and use it in GitHub Desktop.
Download ZIP
G|P|C|DS branding script
Raw
gpcds-branding-script.R
library("tidyverse")
library("ggforce")
cols_gpcds <- list(graph_primary = "#30CED1", graph_tertiary_darker = "#105052",
graph_tertiary_lighter = "#1E8F91", graph_tertiary = "#1B8385",
graph_secondary = "#D13BA4", plot_primary = "#E0BE36", plot_tertiary_darker = "#615216",
plot_tertiary_lighter = "#A18826", plot_tertiary = "#947A14",
plot_secondary = "#4CE0D0", chart_primary = "#FA8A5B", chart_tertiary_darker = "#80452E",
chart_tertiary_lighter = "#C06845", chart_tertiary = "#B3542F",
chart_secondary = "#A7FF75", story_primary = "#EB526F", story_tertiary_darker = "#6B2332",
story_tertiary_lighter = "#AA3D4F", story_tertiary = "#9E283D",
story_secondary = "#EBE46A", other_primary = "#D8F794", other_tertiary_darker = "#697847",
other_tertiary_lighter = "#A1B86D", other_tertiary = "#90AB55",
other_secondary = "#AEC6F8", grey_dark = "#656370", grey_mid = "#BBBBBD",
grey_light = "#DCDCDE", ux_blue_mid = "#4464AD", ux_blue_dark = "#2A3E6E",
ux_blue_light = "#6B8EF3")
ident_linewidth <- 5
ident_disk_size <- 25
ident_textsize <- 40
ident_minor_disk_factor <- sqrt(5)
ident_font <- "Futura"
# Solve (x - 50)² + (y - 50)² = 37.5² and y = x
chart_equ_solution <- 50 - 75 / {2 * sqrt(2)}
chart_minor_center_circle_radius <- 37.5
logomarkfill_colour_geoms_colourful <- "white"
logomarkstroke_colour_geoms_colourful <- "#4F4F4F"
logomarkstroke_size <- 5
logomarkstroke_segment_adjustment <- 8
logomarkstroke_curve_adjustment <- 2
logomarkstory_arrow_x_adjustment <- 2.5
logomarkstory_arrow_y_adjustment <- 15
logomarkstory_x_coords <- list(min = 25, max = 75)
# LOGOMARKS ---------------------------------------------------------------
## ==== Colour mark
gg_logomark_colour <- ggplot() +
## ==== graph
annotate("rect",
xmin = -100, xmax = 0, ymin = 0, ymax = 100,
fill = cols_gpcds$graph_primary,
colour = cols_gpcds$graph_primary) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + logomarkstroke_segment_adjustment,
colour = logomarkstroke_colour_geoms_colourful) +
annotate("point",
x = c(-20, -80),
y = c(50, 50),
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + 2,
colour = logomarkfill_colour_geoms_colourful) +
## ==== plot
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = 100,
fill = cols_gpcds$plot_primary,
colour = cols_gpcds$plot_primary) +
annotate("point",
x = c(30, 70),
y = c(70, 30),
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
## ==== chart
annotate("rect",
xmin = -100, xmax = 0, ymin = -100, ymax = 0,
fill = cols_gpcds$chart_primary,
colour = cols_gpcds$chart_primary) +
geom_circle(aes(x0 = -50, y0 = -50, r = chart_minor_center_circle_radius),
linewidth = logomarkstroke_size - 1,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful) +
annotate("point",
x = -chart_equ_solution,
y = -chart_equ_solution,
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
## ==== story
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = -100,
fill = cols_gpcds$story_primary,
colour = cols_gpcds$story_primary) +
annotate("point",
x = c(25, 75),
y = -50,
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = logomarkfill_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = logomarkfill_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
## ==== seperators
geom_segment(aes(y = -100, yend = 100, x = 0, xend = 0),
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size - 2) +
geom_segment(aes(x = -100, xend = 100, y = 0, yend = 0),
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size - 2) +
annotate("rect",
xmin = -100, xmax = 100, ymin = -100, ymax = 100,
fill = NA,
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size) +
## ==== scales
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0)) +
coord_fixed(xlim = c(-100, 100), ylim = c(-100, 100)) +
theme_void()
gg_logomark_colour %>%
ggsave("logomark_colour.png",
.,
width = 10,
height = 10)
## ==== Black on white
gg_logomark_black_on_white <- ggplot() +
## ==== graph
annotate("rect",
xmin = -100, xmax = 0, ymin = 0, ymax = 100,
fill = "white",
colour = cols_gpcds$graph_primary) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + logomarkstroke_segment_adjustment,
colour = logomarkstroke_colour_geoms_colourful) +
annotate("point",
x = c(-20, -80),
y = c(50, 50),
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkstroke_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + 2,
colour = logomarkstroke_colour_geoms_colourful) +
## ==== plot
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = 100,
fill = "white",
colour = cols_gpcds$plot_primary) +
annotate("point",
x = c(30, 70),
y = c(70, 30),
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkstroke_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
## ==== chart
annotate("rect",
xmin = -100, xmax = 0, ymin = -100, ymax = 0,
fill = "white",
colour = cols_gpcds$chart_primary) +
geom_circle(aes(x0 = -50, y0 = -50, r = chart_minor_center_circle_radius),
linewidth = logomarkstroke_size - 1,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkstroke_colour_geoms_colourful) +
annotate("point",
x = -chart_equ_solution,
y = -chart_equ_solution,
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkfill_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
## ==== story
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = -100,
fill = "white",
colour = cols_gpcds$story_primary) +
annotate("point",
x = c(25, 75),
y = -50,
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = logomarkstroke_colour_geoms_colourful,
stroke = logomarkstroke_size,
pch = 21) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = logomarkstroke_colour_geoms_colourful,
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
## ==== seperators
geom_segment(aes(y = -100, yend = 100, x = 0, xend = 0),
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size - 2) +
geom_segment(aes(x = -100, xend = 100, y = 0, yend = 0),
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size - 2) +
annotate("rect",
xmin = -100, xmax = 100, ymin = -100, ymax = 100,
fill = NA,
colour = logomarkstroke_colour_geoms_colourful,
linewidth = logomarkstroke_size) +
## ==== scales
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0)) +
coord_fixed(xlim = c(-100, 100), ylim = c(-100, 100)) +
theme_void()
gg_logomark_black_on_white %>%
ggsave("logomark_black_on_white.png",
.,
width = 10,
height = 10)
## ==== White on black
gg_logomark_white_on_black <- ggplot() +
## ==== graph
annotate("rect",
xmin = -100, xmax = 0, ymin = 0, ymax = 100,
fill = logomarkstroke_colour_geoms_colourful,
colour = cols_gpcds$graph_primary) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + logomarkstroke_segment_adjustment,
colour = "white") +
annotate("point",
x = c(-20, -80),
y = c(50, 50),
size = ident_disk_size,
colour = "white",
fill = "white",
stroke = logomarkstroke_size,
pch = 21) +
annotate(
"segment",
x = -20,
xend = -80,
y = 50,
yend = 50,
linewidth = ident_linewidth + 2,
colour = "white") +
## ==== plot
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = 100,
fill = logomarkstroke_colour_geoms_colourful,
colour = cols_gpcds$plot_primary) +
annotate("point",
x = c(30, 70),
y = c(70, 30),
size = ident_disk_size,
colour = "white",
fill = "white",
stroke = logomarkstroke_size,
pch = 21) +
## ==== chart
annotate("rect",
xmin = -100, xmax = 0, ymin = -100, ymax = 0,
fill = logomarkstroke_colour_geoms_colourful,
colour = cols_gpcds$chart_primary) +
geom_circle(aes(x0 = -50, y0 = -50, r = chart_minor_center_circle_radius),
linewidth = logomarkstroke_size - 1,
colour = "white",
fill = "white") +
annotate("point",
x = -chart_equ_solution,
y = -chart_equ_solution,
size = ident_disk_size,
colour = logomarkstroke_colour_geoms_colourful,
fill = "white",
stroke = logomarkstroke_size,
pch = 21) +
## ==== story
annotate("rect",
xmin = 0, xmax = 100, ymin = 0, ymax = -100,
fill = logomarkstroke_colour_geoms_colourful,
colour = cols_gpcds$story_primary) +
annotate("point",
x = c(25, 75),
y = -50,
size = ident_disk_size,
colour = "white",
fill = "white",
stroke = logomarkstroke_size,
pch = 21) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = "white",
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = logomarkstory_x_coords$min + logomarkstory_arrow_x_adjustment,
y = -50 + logomarkstory_arrow_y_adjustment,
xend = logomarkstory_x_coords$max - logomarkstory_arrow_x_adjustment,
yend = -50 + logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = "white",
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth + logomarkstroke_curve_adjustment,
colour = "white",
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
annotate("curve",
x = 100 - logomarkstory_x_coords$min - logomarkstory_arrow_x_adjustment,
y = -50 - logomarkstory_arrow_y_adjustment,
xend = 100 - logomarkstory_x_coords$max + logomarkstory_arrow_x_adjustment,
yend = -50 - logomarkstory_arrow_y_adjustment,
linewidth = ident_linewidth - logomarkstroke_curve_adjustment,
colour = "white",
arrow = arrow(length = unit(0.6, "cm"), type = "closed"),
curvature = -0.5,
ncp = 1000) +
## ==== seperators
geom_segment(aes(y = -100, yend = 100, x = 0, xend = 0),
colour = "white",
linewidth = logomarkstroke_size - 2) +
geom_segment(aes(x = -100, xend = 100, y = 0, yend = 0),
colour = "white",
linewidth = logomarkstroke_size - 2) +
annotate("rect",
xmin = -100, xmax = 100, ymin = -100, ymax = 100,
fill = NA,
colour = "white",
linewidth = logomarkstroke_size) +
## ==== scales
scale_x_continuous(expand = c(0, 0)) +
scale_y_continuous(expand = c(0, 0)) +
coord_fixed(xlim = c(-100, 100), ylim = c(-100, 100)) +
theme_void()
gg_logomark_white_on_black %>%
ggsave("logomark_white_on_black.png",
.,
width = 10,
height = 10)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment