Preamble

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

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

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

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

Calls_2016_2021.df$hour <- as.factor(Calls_2016_2021.df$hour)

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. The hour of day field “hour”, is parsed from the time of call field. The integer is then converted to a factor variable for this analysis.

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

Call Volume by Hour of the Day:

summary.factor(Calls_2016_2021.df$hour)
##    0    1    2    3    4    5    6    7    8    9   10   11   12   13   14   15 
##  524  434  421  407  408  405  540  761 1039 1261 1253 1408 1418 1371 1379 1283 
##   16   17   18   19   20   21   22   23 
## 1363 1272 1183 1113  956  875  696  642

The Bar chart displays the breakdown:

Calls_2016_2021.df$hour %>%
     qplot(colour = I("red"))