Blacklight Ctenophore

blacklight_ctenophore.R

# Inspired by https://twitter.com/aschinchon/status/1090724402881314819
# Colors https://www.colourlovers.com/palette/565792/glow!!!!!!!!!!!!!!!!

library(tidyverse)
p1 <- seq(from = -5, to = 5, by = 0.02) %>%
  expand.grid(x = ., y = .) %>%
  ggplot() +
  geom_point(aes(y = (y + (1-cos(x)^3)), 
                 x = (x + (1-sin(y))^3)),
             alpha = 0.05, 
             shape = 20, 
             size = 0.1,
             color = "#AC05FF") +
  theme_void() +
  theme(panel.background = element_rect(fill = 'black',colour = 'black')) +
  coord_cartesian()

p2 <- seq(from = -5, to = 5, by = 0.02) %>%
  expand.grid(x = ., y = .) %>%
  ggplot() +
  geom_point(aes(y = (y - (1+cos(x)^3)), 
                 x = (x - (1+sin(y))^3)),
             alpha = 0.02, 
             shape = 20, 
             size = 0,
             color = "#FFC905") +
  theme_void() +
  theme(panel.background = element_blank())
PB = ggplotGrob(p2)
p1 + annotation_custom(grob = PB)