The goal of ggshadow is to provide shadow and glow geoms for points and lines plots created with ‘ggplot2’.
You can install the development version of ggshadow from GitHub with:
# install.packages("devtools")
pak::pkg_install("marcmenem/ggshadow")
## after installing the package
# vignette("ggshadow", package = "ggshadow")
library(ggplot2)
library(ggshadow)
ggplot(economics_long, aes(date, value01, colour = variable)) +
geom_shadowline()
ggplot(economics_long, aes(date, value01, colour = variable)) +
geom_line()
ggplot(
economics_long,
aes(date, value01,
group = variable,
colour = value01,
shadowlinewidth = 5 * (1 - value01)
)
) +
geom_shadowline(
shadowcolour = "grey",
shadowalpha = 0.5
)
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")
)
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")
)
ggplot(
economics_long[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")
)