install.packages("horroR")Or the development version
devtools::install_github("jacobjameson/horroR")library("horroR")
names(horroR_palettes)
#> [1] "Suspiria" "Coraline" "Scream"
#> [4] "NightmareOnElmStreet" "TheShining" "TheNeonDemon"
#> [7] "Midsommar" "Silenceofthelambs"
horroR_palette("Suspiria")
horroR_palette("Midsommar")
horroR_palette("TheNeonDemon")
horroR_palette("Silenceofthelambs")
library("ggplot2")
ggplot(mtcars, aes(factor(cyl), fill=factor(vs))) + geom_bar() +
scale_fill_manual(values = horroR_palette("TheNeonDemon"))
pal <- horroR_palette("Suspiria", 21, type = "continuous")
image(volcano, col = pal)
library("gridExtra")
library("scales")
data("diamonds")
p1 <- ggplot(
subset(diamonds, carat >= 2.2),
aes(x = table, y = price, colour = cut)
) +
geom_point(alpha = 0.7) +
geom_smooth(method = "loess", alpha = 0.09, size = 1, span = 1) +
theme_bw()
#> Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
#> ℹ Please use `linewidth` instead.
p2 <- ggplot(
subset(diamonds, carat > 2.2 & depth > 55 & depth < 70),
aes(x = depth, fill = cut)
) +
geom_histogram(colour = "black", binwidth = 1, position = "dodge") +
theme_bw()
p1_npg <- p1 + scale_color_manual(values = horroR_palette("Midsommar"))
p2_npg <- p2 + scale_fill_manual(values = horroR_palette("Midsommar"))
grid.arrange(p1_npg, p2_npg, ncol = 2)
#> `geom_smooth()` using formula = 'y ~ x'
p <- ggplot(
data=subset(diamonds, cut != 'Fair'),
aes(x=price, group=cut, fill=cut)) +
geom_density(adjust=1.5, position="fill") +
theme_bw()
p + scale_fill_manual(values = horroR_palette("Silenceofthelambs"))