data <- read.csv("../00_data/mydata.csv")
# Number of colors per painting (seasons 1 - 10) data %>% filter(season %in% c(1:10)) %>% ggplot(aes(x = num_colors)) + geom_bar()