library(ggplot2)
# Discrete data
data(iris)
disc <- ggplot(iris, aes(x = Species, y = Petal.Length, fill = Species)) +
geom_boxplot() + theme_classic()
disc <- disc + scale_fill_doypa(palette = "buzz", discrete = TRUE)
print(disc)
# Continuous data
cont <- ggplot(faithfuld, aes(waiting, eruptions, fill = density)) +
geom_tile() + theme_classic()
cont <- cont + scale_fill_doypa(palette = "buzz")
print(cont)
# Colorblind-friendly palette
disc_colorblind <- ggplot(iris, aes(x = Species, y = Petal.Length, fill = Species)) +
geom_boxplot() + theme_classic()
disc_colorblind <- disc_colorblind + scale_fill_doypa(colorblind = TRUE, discrete = TRUE)
print(disc_colorblind)
Run the code above in your browser using DataLab