artistry

Nymphaeaceae

Lilly Pads :) library(tidyverse) library(ggplot2) n_points <- 800 theta <- seq(0, 2 * pi, length.out = n_points) radius <- rep(c(0, 1), length.out = n_points) x <- radius * cos(theta) y <- radius * sin(theta) z <- radius * sin(theta/2) # Create a dataframe with the generated data data <- data.frame(x = x, y = y, z = z) # Create the generative art plot plot <- ggplot(data, aes(x = x, y = y)) + geom_line(color = "#5E8C61", size = 0.

Flower

Got me so high, and then she dropped me

Flowers

As flores de plástico não morrem

Rose

Hold me close and hold me fast, the magic spell you cast, this is la vie en rose…