I can plot myself flowers

AE 15

library(tidyverse)
library(scico)

Function: build_art()

Write function:

build_art <- function(
  points,
  angle,
  adjustment
) {
  tibble(
    i = 1:points,
    t = (1:points) * angle + adjustment,
    x = sin(t),
    y = cos(t)
  )
}

Test function:

build_art(
  angle = pi * (3 - sqrt(5)),
  points = 500,
  adjustment = 0
) %>%
  ggplot(aes(x = x * t, y = y * t)) +
  geom_point(
    aes(size = t, color = t, fill = t),
    alpha = 0.5,
    shape = "square filled",
    show.legend = FALSE
  ) +
  coord_equal() +
  theme_void() +
  scale_color_scico(palette = "berlin") +
  scale_fill_scico(palette = "berlin")

Function: draw_art()

# add code here

Flower grid I

# add code here

Flower grid II

# add code here

Flower grid III

# add code here