January 14th - Aesemic

Published
January 14, 2023
< Prev: January 13th - Something You’ve Always Wanted to Learn | Next: January 15th - Sine Waves>
A mostly red circle with different layers of black and white indescribable text on a beige background with a faded grid texture
Show code
#=============================================================================#
#Library Load-in---------------------------------------------------------------
#=============================================================================#
library(dplyr) #Data Wrangling
library(purrr) #List Manipulation/Iterations
library(ggplot2) #Plotting

#=============================================================================#
#Data Set-up-------------------------------------------------------------------
#=============================================================================#

#Number of circles#
n = 20

#Setting angles of circle#
theta <- seq(0,2*pi, length = 1000)

#Making base circle#
circle <- tibble(x = cos(theta),
                 y = sin(theta))

#Setting options for iterations#

#circle radi#
radi <- seq(1,50, length = n)

#Groupings#
group_names <- paste0("group", radi)

#Jitter settings#
jitter_trans <- seq(.5,.01, length = n)

#colors for circles#
colors <- colorRampPalette(c("#EB382A","#000000","#EB382A","#000000","#EB382A","#000000","#EB382A"))(n)

#Colors for text#
text_colors <- colorRampPalette(c("#000000","#ffffff","#000000","#ffffff","#000000","#ffffff","#000000"))(n)

#Accounting for border jitter#
last_group <- tail(group_names,1)

#Circle Options#
circle_options <- list(radi,
                       group_names,
                       jitter_trans,
                       colors,
                       text_colors)

#=============================================================================#
#Data Compilation--------------------------------------------------------------
#=============================================================================#

#For circles#
circles <- pmap_df(circle_options, ~circle |>
                     mutate(x = x * ..1,
                            y = y * ..1,
                            group = ..2) |>
                     mutate(x = if_else(group == last_group, x, jitter(x, amount = ..3)),
                            y = if_else(group == last_group, y, jitter(y, amount = ..3)),
                            fill = ..4,
                            color = ..5))

#For overall texture#
texture <- tibble(x = seq(-51,51, length = 100),
                  y = x) |> 
  expand.grid()


#=============================================================================#
#Final Piece-------------------------------------------------------------------
#=============================================================================#

circles |>
  ggplot(aes(x,y, group = group))+
  theme_void()+
  theme(plot.background = element_rect(fill = "#E4C8A6"))+
  geom_path(data = texture, 
            linewidth = sample(seq(.01,.9, length = 20), nrow(texture), replace = TRUE), 
            aes(group = x), 
            color = "#845244", 
            position = position_jitter(width = .002, height = .003),
            alpha = sample(seq(.01,.7, length = 20), nrow(texture), replace = TRUE))+
  geom_path(data = texture, 
            linewidth = sample(seq(.01,.9, length = 20), nrow(texture), replace = TRUE), 
            color = "#845244", 
            position = position_jitter(width = .002, height = .003),
            alpha = sample(seq(.01,.7, length = 20), nrow(texture), replace = TRUE), aes(group = y))+
  geom_path(linewidth = 15, 
            color = circles$fill)+
  geom_point(data = texture, aes(x,y), 
             inherit.aes = FALSE, 
             size = sample(seq(5,10, length = 20), nrow(texture), replace = TRUE), 
             color = "#845244", 
             position = position_jitter(width = .02, height = .03),
             alpha = sample(seq(.01,.08, length = 20), nrow(texture), replace = TRUE))+
  geom_path(linewidth = sample(seq(.1, .5, length = 50), nrow(circles), replace = TRUE), 
            position = position_jitter(width = .05, height = .08),
            color = circles$color)+
  coord_equal(expand = FALSE)