#R

// Add new codez here:

cb322a60a72a "Make some pretty Charts"

# 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))