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)  
library(ggxmean)
set.seed(1243)
ggcanvas() + 
  stamp_wash(fill = "linen", alpha = 1) + 
  stamp_chisq_dist(df = 3,  fill = "steelblue", sd = .22, height = 10, color = "snow") +
  stamp_chisq_dist(df = 5,  fill = "goldenrod", sd = .22, height = 10, color = "snow") +
  stamp_chisq_dist(df = 7,  fill = "plum", sd = .22, height = 10, color = "snow") +
  stamp_chisq_dist(df = 11, fill = "sienna", sd = .22, height = 10, color = "snow") +
  stamp_text( y = -.2, x = 1,
             label = "ggdistribution",
             color = "lightblue4") + 
    # coord_equal(xlim = c(-3,3), ylim = c(-2.3, 2.3)) + 
  stamp_text(angle = 30, label = "github.com/...",
             x = 1.7, y = -1.45, size = 1.8, 
             color = "brown") + 
    stamp_polygon(radius = 2, x0 = 1, y0 = .5,
                alpha = 0, size = 7,
                color = alpha("rosybrown4", .9)) +
    stamp_polygon_inverse(radius = 2, radius_outer = Inf, x0 = 1, y0 = .5,
                        fill = "white", color = "red"
                         ) +
  theme_void_fill(fill = "white") +
  NULL

## Warning: Ignoring unknown aesthetics: x, y

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

## Saving 7 x 5 in image

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