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")