ggshadow: Shadow Geoms for ggplot2

:arrow_double_down: Installation

Get the development version from github:

## install.packages("devtools")
devtools::install_github("marcmenem/ggshadow")

:book: Vignette

## after installing the package
vignette("ggshadow", package="ggshadow")

:chart: Example

With ggshadow

library(ggplot2)
library(ggshadow)

ggplot(economics_long, aes(date, value01, colour = variable)) + geom_shadowline()
example with

Without ggshadow

library(ggplot2)

ggplot(economics_long, aes(date, value01, colour = variable)) + geom_line()
example without

ggshadow supports varying the line color

library(ggshadow)
library(ggplot2)

ggplot(economics_long, 
        aes(date, value01, 
            group = variable, 
            colour=value01, 
            shadowcolor='grey', 
            shadowalpha=0.5, 
            shadowsize=5*(1-value01))) + 
    geom_shadowline()
color varying

ggshadow also provides a Neon glow style

```{r fig.height=7, fig.width=7}

ggplot(economics_long, aes(date, value01, color = variable)) + geom_glowline() + guides(color=‘none’) + theme(plot.background = element_rect(fill = “#190132”), panel.background = element_rect(fill = “#190132”))


![glowline](example-glow.png)


### Neon glow points

```{r}

ggplot(mtcars, aes(wt, mpg)) + 
  geom_glowpoint(color='yellow') + 
  guides(color='none') + 
  theme(plot.background = element_rect(fill = "#190132"),
        panel.background = element_rect(fill = "#190132"))
glowpoint

Adding a fill below the neon glow line

library(dplyr)

ggplot(filter( economics_long, variable %in% c('pop', 'unemploy') ), 
    aes(date, value01-0.5, color = variable, fill=variable)) + 
    geom_glowline() + guides(color='none', shadowcolour='none', fill='none') + 
    theme(plot.background = element_rect(fill = "#190132"),
           panel.background = element_rect(fill = "#190132"))
glowlinefll