Awesome

ggCyberPunk

Joshua de la Bruere 4/2/2020

Installation

This isn’t on CRAN, so you’ll have to use devtools.

devtools::install_github("delabj/ggCyberPunk")

Dependancies

This package uses extrafont to install the cyberpunk font. If you don’t want to use this, you can always specify a font that your system has installed and the R recongnizes.

This package also uses ggplot2, this is required for the plot to actually function.

Additionally, dplyr is used to make some of the internal code a bit more readable.

Why?

The other day, I saw a post on reddit asking if there was a way to create a “CyberPunk plot” in R. This was based on plots produced in python using matplotlib as shown on this repo. Since it’s the end times, and I have nothing better to do at home than poke around with a theme, this seemed like a perfect fit.

If you want more cyberpunk themed plot options, palettes, and themes, check out vapoRwave, from which I totally stole the base theme for this package. A few modifications, but it’s very much the new_retro theme.

What’s in the box?

geom_glowing_area()

A glowing area plot for a cyberpunk/disco/neon vibe.

Useage

geom_glowing_area(alpha = 1, size = 1, glow_alpha = 0.03)

Arguments

alpha: the alpha level of the base line size: size of the base line glow_alpha: set the alpha level of the glow layers

Example

library(tidyverse)
library(ggCyberPunk)

df = data.frame(A=c(1,4,4,6,7,5,1),
               B=c(4,3,5,7,5,6,7),
               Time=c(1,2,3,4,5,6,7)) %>%
pivot_longer(cols = c(A,B),names_to = "group", values_to = "count")


df %>%
   ggplot(aes(x=Time, y = count, color = group, fill= group))+
     geom_glowing_area()+
     theme_cyberpunk()+
     scale_fill_cyberpunk("zune")+
     scale_color_cyberpunk("zune")+
  ggtitle("geom_glowing_area()", subtitle = "From ggCyberPunk")

geom_glowing_line()

A glowing line plot for a cyberpunk/disco/neon vibe.

Useage

geom_glowing_line(alpha = 1, size = 1, glow_alpha = 0.03)

Arguments

alpha: the alpha level of the base line size: size of the base line glow_alpha: set the alpha level of the glow layers

Example

library(tidyverse)
library(ggCyberPunk)

df = data.frame(A=c(1,4,4,6,7,5,1),
               B=c(4,3,5,7,5,6,7),
               Time=c(1,2,3,4,5,6,7)) %>%
pivot_longer(cols = c(A,B),names_to = "group", values_to = "count")


df %>%
   ggplot(aes(x=Time, y = count, color = group, fill= group))+
     geom_glowing_line()+
     theme_cyberpunk()+
     scale_color_cyberpunk()+
  ggtitle("geom_glowing_line()", subtitle = "From ggCyberPunk")

geom_linesaber()

A glowing line plot for a laser sword look.

Useage

geom_linesaber(alpha = 1, size = 1, glow_alpha = 0.03)

Arguments

alpha: the alpha level of the base line size: size of the base line glow_alpha: set the alpha level of the glow layers

Example

library(tidyverse)
library(ggCyberPunk)

df = data.frame(A=c(1,4,4,6,7,5,1),
               B=c(4,3,5,7,5,6,7),
               Time=c(1,2,3,4,5,6,7)) %>%
pivot_longer(cols = c(A,B),names_to = "group", values_to = "count")


df %>%
   ggplot(aes(x=Time, y = count, color = group, fill= group))+
     geom_linesaber()+
     theme_cyberpunk()+
     scale_color_linesaber(reverse = T)+
  ggtitle("geom_linesaber()", subtitle = "From ggCyberPunk")