Flowers

As flores de plástico não morrem (Titas)

Plastic flowers don’t die.

library(tidyverse)


x = seq(from=-20, to=20, by = 0.01) %>%
  expand.grid(x=., y=.) 
p = x %>%
  ggplot() +
  aes(x=(pi*x + sin(x*pi)), 
      y=(y*pi * sin(x*pi)), 
      color = y) + 
  
  geom_point(alpha=.01, shape=20, size=0)+
  scale_color_viridis_c(option = "inferno", direction = 1) +
  theme_void()+
  theme(legend.position = "none" ) +
  coord_polar(); p