Logo!

datasauRus.R

library(hexSticker)
library(datasauRus)
library(ggplot2)
library(dplyr)
library(svglite)

p <- ggplot(aes(x, y), data = datasaurus_dozen) +
  geom_point(colour = "khaki",
             alpha = .1,
             size = 1) +
  geom_point(
    aes(x, y),
    data = filter(datasaurus_dozen, dataset == "dino"),
    colour = "white",
    size = .5
  )
p <- p + theme_void() + theme_transparent()

sticker(
  p,
  package = "",
  url = "datasauRus",
  s_x = 1,
  s_y = 1,
  s_width = 1.5,
  s_height = 1.5,
  u_color = "white",
  u_size = 3,
  #p_x=1, p_y=1,
  h_fill = "darkolivegreen",
  h_color = "khaki",
  filename = "datasauRus.svg"
)