Create R Package Logo

create-logo.R

# Load packages
library(hexSticker)
library(cowplot)
library(showtext)


# Add a great Google Font
font_add_google("Do Hyeon")


# Import a image to R
png <- ggdraw() + draw_image("./statistics.png", scale = 1.65)


# Draw sticker (logo) and save
sticker(
  subplot  = png,
  package  = "meedr", # package name: MacroEconomic Expectations Data in R
  s_x      = 1,
  s_y      = 0.7,
  p_color  = "#3A7190",
  p_family = "Do Hyeon",
  p_size   = 42,
  p_y      = 1.35,
  h_fill   = "#AED6E9",
  h_color  = "#3A7190",
  url      = "github.com/schoulten/meedr",
  u_color  = "#3A7190",
  u_size   = 4.6,
  filename = "meedr.png"
  )