Playing around with ggforce package

geom_delaunay_tile function.R

library(tidyverse)
library(ggforce)

df <- tibble() %>%
  expand(x=c(0:32), y=c(0:16)) 

df %>%
  sample_n(nrow(df)-1) %>%
  ggplot(aes(x=x,y=y)) +
  geom_delaunay_tile(fill="#ffffffae", 
                     radius=unit(1,"mm"), expand=unit(-0.8,"mm")) +
  theme_void()+
  theme(panel.background = element_rect(fill="#000000de")) +
  coord_fixed()

ggsave("~/Downloads/geom_delaunay_tile_sample.png", width=16, height=9)