library(ggplot2)
library(see)
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
geom_boxplot() +
theme_modern() +
scale_fill_okabeito()
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
geom_violin() +
theme_modern() +
scale_fill_oi(palette = "black_first")
# for the original brighter yellow color suggested by Okabe and Ito
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
geom_violin() +
theme_modern() +
scale_fill_oi(palette = "full")
ggplot(iris, aes(x = Species, y = Sepal.Length, fill = Species)) +
geom_violin() +
theme_modern() +
scale_fill_oi(order = c(1, 5, 6, 2, 4, 3, 7))
Run the code above in your browser using DataLab