Preamble

This is an analysis displaying the frequency of call volume by day of week at the South Burlington Fire Department for a six year period 2016-2021.

####   Import data and remove non-essential fields/variables ####

Pivot_Table_2016_2021.df <- read.csv(file = "pivot20162021.csv",header = TRUE, na.strings=c("", "NA"),sep = ",")

#### change day of week variable to a factor ####

Pivot_Table_2016_2021.df$dow <- as.factor(Pivot_Table_2016_2021.df$dow)

pivot20212016.csv: data file queried from Fire House database

Description: The data comprises SBFD run data including fields of the Nfirs basic module plus a number of calculated fields.

Format: A dataframe with 22412 observations (calls), on 86 variables.

Call Volume by Day of Week:

summary.factor(Pivot_Table_2016_2021.df$dow)
##    Friday    Monday  Saturday    Sunday  Thursday   Tuesday Wednesday 
##      3266      3376      3010      2786      3347      3197      3430

Wednesdays are the busiest. The Bar chart displays the breakdown:

Pivot_Table_2016_2021.df$dow %>%
     qplot(colour = I("red"))