ggCyberPunk.R

geom_glowing_area <- function(
  alpha =  1,
  size = 1.5,
  glow_alpha = 0.05,
  layers = 10,
  glow_size = .65){
  geoms <- list(ggplot2::geom_area(alpha = .5, position = "identity",color =  "#08f7fe"))


  for(i in (layers+1):1){
    geoms <- c(
      geoms ,
      ggplot2::geom_line(size = size + (glow_size*i), alpha = alpha*glow_alpha, colour = "#08f7fe")
    )

  }

  geoms <- c(geoms,
             ggplot2::geom_line(size = size * 1, alpha = alpha, colour = "#08f7fe"),
             ggplot2::geom_point(size = size * 2, alpha = alpha, colour = "#08f7fe")
             )


}

ggCyberPunk_theme <- theme(
    text = element_text(
      family = 'Aldrich'
      ),
    axis.text = element_text(color = "#EE9537"),
    axis.title = element_text(color = "#EE9537"),
    plot.title = element_text(color = "#EE9537"),
    legend.title = element_text(color = "#EE9537"),
    panel.background = element_rect(fill="#212946", color = NA),
    plot.background = element_rect(fill="#212946", color = NA),
    panel.grid.major = element_blank(), panel.grid.minor = element_blank()
  )

code is ggCyberpunk package