# github/tallguyjenks
library(readxl)
library(tidyverse)
library(chron)
library(rmarkdown)
library(knitr)
ggplot(data = df) +
geom_bar(filter(df, Year == params$curYear,
SentToHQQM == "Y",
Inst != "R1"),
mapping = aes(x = Inst, fill = Inst)) +
xlab('2019 Emails By Inst') +
ylab('Count') +
facet_wrap(~ Month, ncol = 4) +
coord_flip() +
scale_x_discrete(limits = rev(levels(df$Inst))) +
ggtitle('2019 Received Emails to HQ by Inst Faceted by Month') +
theme(plot.title = element_text(hjust = 0.5))