# \donttest{
# Plotting iris dataset (using ggplot2 and unikn):
library('ggplot2') # theme_ds4psy() requires ggplot2
library('unikn') # for colors and usecol() function
ggplot(datasets::iris) +
geom_jitter(aes(x = Petal.Length, y = Petal.Width, color = Species), size = 3, alpha = 2/3) +
scale_color_manual(values = usecol(pal = c(Pinky, Seeblau, Seegruen))) +
labs(title = "Iris petals",
subtitle = "The subtitle of this plot",
caption = "Data from datasets::iris") +
theme_ds4psy()
ggplot(datasets::iris) +
geom_jitter(aes(x = Sepal.Length, y = Sepal.Width, color = Species), size = 3, alpha = 2/3) +
facet_wrap(~Species) +
scale_color_manual(values = usecol(pal = c(Pinky, Seeblau, Seegruen))) +
labs(tag = "A",
title = "Iris sepals",
subtitle = "Demo plot with facets and default colors",
caption = "Data from datasets::iris") +
coord_fixed(ratio = 3/2) +
theme_ds4psy()
# A unikn::Seeblau look:
ggplot(datasets::iris) +
geom_jitter(aes(x = Sepal.Length, y = Sepal.Width, color = Species), size = 3, alpha = 2/3) +
facet_wrap(~Species) +
scale_color_manual(values = usecol(pal = c(Pinky, Seeblau, Seegruen))) +
labs(tag = "B",
title = "Iris sepals",
subtitle = "Demo plot in unikn::Seeblau colors",
caption = "Data from datasets::iris") +
coord_fixed(ratio = 3/2) +
theme_ds4psy(col_title = pal_seeblau[[4]], col_strip = pal_seeblau[[1]], col_brdrs = Grau)
# }
Run the code above in your browser using DataLab