This is code accompanying my talk about Data Storytelling at the German Online Conference Data Science im Unternehmen.
The data has been collected from the Technology Subreddit.
The CSV-file can be found here: https://datanizing.com/data-science-day/transport-short.7z
Or the data can be accessed via this SQLite-databank: https://datanizing.com/data-science-day/technology-transport-short.7z
Libraries library(readr) library(tidyverse) library(tidytext) library(lubridate) library(reshape2) Setting up custom ggplot color scheme Colorblind-friendly according to https://shirinsplayground.netlify.app/2020/10/goodbadugly/ cbp2 <- c("#000000", "#E69F00", "#56B4E9", "#009E73", "#999999", "#0072B2", "#D55E00", "#CC79A7") ggplot <- function(.
