Defining Factors

#Reading in Summary file
Chicago_Summary <- read.table("Chicago-2016-Summary.csv", sep = ",", header = T)

#Changing Month from numbers into names of the month
Chicago_Summary$month <- month.name[Chicago_Summary$month]

#Checking that the data worked correctly
str(Chicago_Summary$month)

##  chr [1:72131] "March" "March" "March" "March" "March" "March" "March" ...

#Changing Hours into specific time of day by using "lubridate" and "hms" libraries
library(lubridate)

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

#library(hms)

Chicago_Summary$time <- format(strptime(Chicago_Summary$hour, format = "%H"), "%I:%M %p")

#Checking that the data worked correctly
str(Chicago_Summary$time)

##  chr [1:72131] "11:00 PM" "10:00 PM" "10:00 PM" "10:00 PM" "10:00 PM" ...