Nothing
## ----include=FALSE------------------------------------------------------------
knitr::opts_chunk$set(warning = FALSE, message = TRUE)
library(ggplot2)
library(ggshadow)
## ----fig.height=7, fig.width=7------------------------------------------------
library(ggshadow)
ggplot(economics_long, aes(date, value01, colour = variable)) + geom_shadowline()
## ----fig.height=7, fig.width=7------------------------------------------------
library(ggshadow)
ggplot(economics_long, aes(date, value01, group = variable, colour=value01, shadowcolor='grey', shadowalpha=0.5, shadowsize=5*(1-value01))) + geom_shadowline()
## ----fig.height=7, fig.width=7------------------------------------------------
ggplot(mtcars, aes(wt, mpg)) + geom_shadowpoint(aes( color = carb, shadowcolour = ifelse(vs == 1, 'red', 'blue') ))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.