# NOT RUN {
library(ggplot2)
# Prep msleep data
msleep <- ggplot2::msleep[, c("vore", "sleep_rem", "sleep_total")]
msleep <- msleep[complete.cases(msleep), ]
msleep$vore <- paste0(msleep$vore, "vore")
# Base plot
basic_msleep_plot <- ggplot(msleep) +
aes(x = sleep_rem, y = sleep_total, color = vore) +
geom_point(size = 2) +
labs(color = NULL)
# Just your standard ggplot
basic_msleep_plot
# With pomological colors
basic_msleep_plot <- basic_msleep_plot + scale_color_pomological()
basic_msleep_plot
# With pomological theme
basic_msleep_plot + theme_pomological()
# With transparent background
basic_msleep_plot + theme_pomological_plain()
# Or with "fancy" pomological settings
pomological_msleep <- basic_msleep_plot + theme_pomological_fancy()
# Painted!
paint_pomological(pomological_msleep, res = 110)
# }
Run the code above in your browser using DataLab