analysis/scripts/hex_sticker.R

In KevinSee/damEscapement: Estimate escapement past a dam with a window and trap facility

# Author: Kevin See
# Purpose: create a hexagon sticker as a logo for R package
# Created: 2/1/2021
# Last Modified: 2/1/2021
# Notes: Based on hexSticker package. GitHub site: https://github.com/GuangchuangYu/hexSticker

#-----------------------------------------------------------------
# load needed libraries
# library(tidyverse)
library(hexSticker)

#-----------------------------------------------------------------
# Biomark colors
# Primary
# dark blue
"#282D46"
# light blue
"#879FC2"
# black
"#000000"
# gray
"#A6A6A6"

# Secondary
# orange
"#F28031"
# green
"#A0B63A"
# dark blue
"#00677F"
# yellow
"#F3D03E"

# Tertiary
# orange
"#ECA154"
"#EFBE7D"
"#EFD19F"
# green
"#C4D600"
"#CEDC00"
"#E2E868"
# blue
"#0092BC"
"#00A9CE"
"#6AD1E3"
# yellow
"#F3D54E"
"#F3DD6D"


#-----------------------------------------------------------------
# image to use
img_path = "analysis/figures/fish_ladder_trans.png"

# nm_color = "#F28031"
nm_color = "#282D46"

# create a logo sticker and save it
s = sticker(magick::image_read(img_path),
            s_x = 1,
            s_y = 0.75,
            s_width = 1,
            s_height = 1,
            package = "STADEM",
            p_size = 9,
            p_family = "sans",
            p_fontface = "bold",
            p_color = nm_color,
            # p_y = 0.6,
            h_fill = "#ECA154",
            h_color = nm_color,
            filename = "analysis/figures/STADEM.png")

plot(s)