Untitled

library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.3.5     ✓ purrr   0.3.4
## ✓ tibble  3.1.2     ✓ dplyr   1.0.7
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.5.0

## Warning: package 'ggplot2' was built under R version 3.6.2

## Warning: package 'tibble' was built under R version 3.6.2

## Warning: package 'purrr' was built under R version 3.6.2

## Warning: package 'dplyr' was built under R version 3.6.2

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(ggstamp)  
set.seed(1243)
ggcanvas() + 
  stamp_wash(fill = "black", alpha = 1) + 
  stamp_text(x = rnorm(1200, sd = 2),
             y = rnorm(1200, sd = 2),
             alpha = runif(1200, min = 0, max = 1),
             label = sample(0:1, 1200, replace = T), 
             color = "green", size = 5) + 
  ggxmean::stamp_normal_dist(sd = .5, alpha = .8, height = 3, 
                             fill = "black", 
                             color = "green", size = .1) + 
  ggxmean::stamp_normal_dist(sd = .5, alpha = .2, height = 3, 
                             fill = "green", 
                             color = "green", size = .1) + 
  stamp_tile(width = 4, y = -.2, height =.4, alpha = .8,
             fill = "green", color = "black") + 
  stamp_text( y = -.2, 
             label = "ma206data",
             color = "black") + 
    coord_equal(xlim = c(-3,3), ylim = c(-2.3, 2.3)) + 
  stamp_text(angle = 30, label = "github.com/...",
             x = .7, y = -1.45, size = 1.8,
             color = "green") + 
    stamp_polygon(radius = 2, 
                alpha = 0, size = 7,
                color = alpha("black", .9)) +
    stamp_polygon_inverse(radius = 2, radius_outer = Inf, 
                        fill = "white", color = "red"
                        ) +
  theme_void_fill(fill = "white") +
  NULL

## Warning: Ignoring unknown aesthetics: x, y

## Coordinate system already present. Adding new coordinate system, which will replace the existing one.

ggsave("hex_sticker_ma_206.png", dpi = 320) 

## Saving 7 x 5 in image

magick::image_read("hex_sticker_ma_206.png") %>% 
  magick::image_fill("transparent",  "+40+40", fuzz = 40) %>% 
  magick::image_write("hex_sticker_ma_206.png")